xline指令精簡

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

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

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

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

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

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


藍字代碼應該就可以做到你要的事
如果你希望線畫完再跳回該圖層，上下加這兩行（紅字）

感謝分享，解決了!