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.
xline指令精簡 Aoe1-113xline指令精簡 Ioaoe110xline指令精簡 2020-310xline指令精簡 Oiu15010xline指令精簡 2020-211xline指令精簡 Ia15010xline指令精簡 Aizyao10xline指令精簡 Uos15010xline指令精簡 BPl3tjjxline指令精簡 Ziao1510
xline指令精簡 Aoe15010xline指令精簡 Oo-2-110xline指令精簡 Zuoiy_10xline指令精簡 Aizyao11xline指令精簡 Iyb_1510xline指令精簡 Aoe1-112xline指令精簡 Uos15011xline指令精簡 Aoe2da10xline指令精簡 Aoe2da11xline指令精簡 Aoe10

xline指令精簡

2 posters

向下

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軟體變不行,不知這操作過程如何改?


____________________________________________________________________________________
xline指令精簡 Acad2010 xline指令精簡 Acad1810
xline指令精簡 Acad1211xline指令精簡 Acad1311xline指令精簡 Acad1511
lcskc
lcskc
一般會員
一般會員

文章總數 : 59
年齡 : 52
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 4158
威望值 : 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
一般會員
一般會員

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

回頂端 向下

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

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

感謝分享,解決了!

____________________________________________________________________________________
xline指令精簡 Acad2010 xline指令精簡 Acad1810
xline指令精簡 Acad1211xline指令精簡 Acad1311xline指令精簡 Acad1511
lcskc
lcskc
一般會員
一般會員

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
xline指令精簡 Aoe1-113xline指令精簡 Ioaoe110xline指令精簡 2020-310xline指令精簡 Oiu15010xline指令精簡 2020-211xline指令精簡 Ia15010xline指令精簡 Aizyao10xline指令精簡 Uos15010xline指令精簡 BPl3tjjxline指令精簡 Ziao1510
xline指令精簡 Aoe15010xline指令精簡 Oo-2-110xline指令精簡 Zuoiy_10xline指令精簡 Aizyao11xline指令精簡 Iyb_1510xline指令精簡 Aoe1-112xline指令精簡 Uos15011xline指令精簡 Aoe2da10xline指令精簡 Aoe2da11xline指令精簡 Aoe10