AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
xline指令精簡 Oo-2-110 xline指令精簡 Ia15010 xline指令精簡 Ziao1510 xline指令精簡 BPl3tjj xline指令精簡 Uos15010 xline指令精簡 Uos15011

xline指令精簡

向下

xline指令精簡 Empty xline指令精簡

發表 由 lcskc 于 2019-02-16, 18:05

我常用xline的指令來做輔助線,有水平,垂直,偏移等用法,但一般都要按兩次,寫了超簡單lisp把它結合,但無法把他放到固定的圖層,求助各位高手

(DEFUN C:NEWXLINE-O()
(COMMAND "LAYER" "S" "TEMP" "")
(command "linetype" "s" "CONTINUOUS" "" "color" "161")
(COMMAND "XLINE" "O")
)

這個程式在autocad 2014 是可以成功的,但因autocad改變販售方式,公司買了別種cad軟體變不行,不知這操作過程如何改?

lcskc
lcskc
一般會員
一般會員

文章總數 : 58
年齡 : 46
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 2217
威望值 : 31
注冊日期 : 2014-05-02
男 處女座 鼠

回頂端 向下

xline指令精簡 Empty 回復: xline指令精簡

發表 由 immortal20092 于 2019-02-17, 15:35

前段時間有研究新增圖層這個問題,以下是我寫的時候用的,給你參考

(setq ot (getvar "CLAYER"))
;抓出目前圖層名稱


(command "layer" "m" "TSDIM" "")
;;m 表示有"TSDIM"該名稱圖層則不建立,無則建立
(setvar "CLAYER" "TSDIM")
;;將TSDIM設置為當前圖層,這樣你畫出來的線就會在該圖層
===
中間為運作內容
===

(setvar "CLAYER" ot)
;回復原來圖層


藍字代碼應該就可以做到你要的事
如果你希望線畫完再跳回該圖層,上下加這兩行(紅字)
immortal20092
immortal20092
一般會員
一般會員

文章總數 : 4
年齡 : 27
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 374
威望值 : 6
注冊日期 : 2018-08-13
男 天秤座 羊

回頂端 向下

xline指令精簡 Empty 回復: xline指令精簡

發表 由 lcskc 于 2019-02-17, 20:26

感謝分享,解決了!
lcskc
lcskc
一般會員
一般會員

文章總數 : 58
年齡 : 46
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 2217
威望值 : 31
注冊日期 : 2014-05-02
男 處女座 鼠

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
xline指令精簡 Uos15011 xline指令精簡 Uos15010 xline指令精簡 BPl3tjj xline指令精簡 Ziao1510 xline指令精簡 Ia15010 xline指令精簡 Oo-2-110