xline指令精簡
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
xline指令精簡
我常用xline的指令來做輔助線,有水平,垂直,偏移等用法,但一般都要按兩次,寫了超簡單lisp把它結合,但無法把他放到固定的圖層,求助各位高手
(DEFUN C:NEWXLINE-O()
(COMMAND "LAYER" "S" "TEMP" "")
(command "linetype" "s" "CONTINUOUS" "" "color" "161")
(COMMAND "XLINE" "O")
)
這個程式在autocad 2014 是可以成功的,但因autocad改變販售方式,公司買了別種cad軟體變不行,不知這操作過程如何改?
(DEFUN C:NEWXLINE-O()
(COMMAND "LAYER" "S" "TEMP" "")
(command "linetype" "s" "CONTINUOUS" "" "color" "161")
(COMMAND "XLINE" "O")
)
這個程式在autocad 2014 是可以成功的,但因autocad改變販售方式,公司買了別種cad軟體變不行,不知這操作過程如何改?
lcskc- 一般會員
- 文章總數 : 59
年齡 : 52
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 4158
威望值 : 31
注冊日期 : 2014-05-02
回復: xline指令精簡
前段時間有研究新增圖層這個問題,以下是我寫的時候用的,給你參考
(setq ot (getvar "CLAYER"))
;抓出目前圖層名稱
(command "layer" "m" "TSDIM" "")
;;m 表示有"TSDIM"該名稱圖層則不建立,無則建立
(setvar "CLAYER" "TSDIM")
;;將TSDIM設置為當前圖層,這樣你畫出來的線就會在該圖層
===
中間為運作內容
===
(setvar "CLAYER" ot)
;回復原來圖層
藍字代碼應該就可以做到你要的事
如果你希望線畫完再跳回該圖層,上下加這兩行(紅字)
(setq ot (getvar "CLAYER"))
;抓出目前圖層名稱
(command "layer" "m" "TSDIM" "")
;;m 表示有"TSDIM"該名稱圖層則不建立,無則建立
(setvar "CLAYER" "TSDIM")
;;將TSDIM設置為當前圖層,這樣你畫出來的線就會在該圖層
===
中間為運作內容
===
(setvar "CLAYER" ot)
;回復原來圖層
藍字代碼應該就可以做到你要的事
如果你希望線畫完再跳回該圖層,上下加這兩行(紅字)
immortal20092- 一般會員
- 文章總數 : 9
年齡 : 33
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 2345
威望值 : 6
注冊日期 : 2018-08-13
回復: xline指令精簡
感謝分享,解決了!
lcskc- 一般會員
- 文章總數 : 59
年齡 : 52
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 4158
威望值 : 31
注冊日期 : 2014-05-02
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章