AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe1-113 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ioaoe110 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 2020-310 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oiu15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 2020-211 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ia15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aizyao10 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 BPl3tjj [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ziao1510
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oo-2-110 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Zuoiy_10 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aizyao11 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Iyb_1510 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe1-112 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15011 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe2da10 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe2da11 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe10

[分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

3 posters

向下

 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 djh1006 2014-10-07, 14:01

代碼:
;XAN.lsp
;作圖線-任意角度

(defun C:XAN()
  (graphscr)
  (setvar "CMDECHO" 0)

;===作圖線建構於TEMP圖層===
  (command "-LAYER" "P" "N" "0" "")
  (setq LAY_CURRENT (getvar "CLAYER"))
  (command "-LAYER" "ON" LAY_CURRENT "T" LAY_CURRENT "U" LAY_CURRENT "")
  (setq LL (tblsearch "LAYER" "TEMP"));偵測是否有TEMP圖層
  (if (= LL nil)(command "-LAYER" "N" "TEMP" ""));若無則新建TEMP圖層
  (command "-LAYER" "ON" "TEMP" "T" "TEMP" "U" "TEMP" "C" "47" "TEMP"  "P" "N" "TEMP""")
  ;打開TEMP並解鎖,解凍,設為不出圖
;===

  (setq
    OSP (getvar "OSMODE")
    OCT (getvar "CTAB")
    OCV (getvar "CVPORT")
  )
  (setq PT1 (getpoint "\n作圖線第一點:"))
  (while (/= PT1 nil)
    (command "UNDO" "BE")
    (princ "\n作圖線另一點 [Esc 離開]:")
    (command ".XLINE" PT1 pause "")
    (setq PT2 (getvar "LASTPOINT"))
    (setq P1 (polar PT1 (/ (* 135 PI) 180) 10))
    (setq P2 (polar PT1 (/ (* 315 PI) 180) 10))
    (setvar "OSMODE" 0)
    (if (or (= OCT "Model")(= OCV 1))(command "ZOOM" P1 P2))
    (setq PTN (ssget PT1))
    (if (/= PTN nil)
      (command "CHANGE" PT1 "" "P" "LA" "TEMP" "C" "BYLAYER" "LT" "BYLAYER" "")
    )
    (if (or (= OCT "Model")(= OCV 1))(command "ZOOM" "P"))
    (setvar "OSMODE" OSP)
    (command "UNDO" "E")
    (setvar "OSMODE" 4151)
    (setq PT1 (getpoint "\n作圖線第一點:"))
  )
  (prin1)
)

程式載入後,直接輸入XAN
附件
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Attachment
xan.zip 您無權下載這里的附件。(1 Kb) 下載 58 次

____________________________________________________________________________________
微笑
djh1006
djh1006
中級會員
中級會員

文章總數 : 177
年齡 : 53
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 6094
威望值 : 359
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 李青繡 2014-10-13, 13:53

謝謝無私的分享
李青繡
李青繡
初級會員
初級會員

文章總數 : 12
年齡 : 47
來自 : 彰化
職業 : 會計
愛好 : 看書
個性 : 一板一眼
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
經驗值 : 3888
威望值 : 6
注冊日期 : 2014-04-17
經典問與答讀者 2014聚會勳章 女 雙子座 蛇

回頂端 向下

 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 meet_emily 2014-10-14, 07:00

~謝謝分享~受益了~
meet_emily
meet_emily
高級會員
高級會員

文章總數 : 125
年齡 : 54
來自 : 宜蘭
職業 : 學習
愛好 : 電影,音樂
個性 : 有點呆板,但不古板!有點天真,但不失真!有點強硬,但不強勢!
使用年資 : 6
使用版本 : 2010
積分 : 12
經驗值 : 6150
威望值 : 62
回帖精華 : 1
注冊日期 : 2008-10-12
女 處女座 狗

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe1-113 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ioaoe110 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 2020-310 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oiu15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 2020-211 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ia15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aizyao10 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 BPl3tjj [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ziao1510
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe15010 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oo-2-110 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Zuoiy_10 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aizyao11 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Iyb_1510 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe1-112 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15011 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe2da10 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe2da11 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Aoe10