[分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
3 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
- 代碼:
;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
- 附件
____________________________________________________________________________________
djh1006- 中級會員
- 文章總數 : 177
年齡 : 53
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 6094
威望值 : 359
注冊日期 : 2011-06-16
李青繡- 初級會員
- 文章總數 : 12
年齡 : 47
來自 : 彰化
職業 : 會計
愛好 : 看書
個性 : 一板一眼
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
經驗值 : 3888
威望值 : 6
注冊日期 : 2014-04-17
meet_emily- 高級會員
- 文章總數 : 125
年齡 : 54
來自 : 宜蘭
職業 : 學習
愛好 : 電影,音樂
個性 : 有點呆板,但不古板!有點天真,但不失真!有點強硬,但不強勢!
使用年資 : 6
使用版本 : 2010
積分 : 12
經驗值 : 6150
威望值 : 62
回帖精華 : 1
注冊日期 : 2008-10-12
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章