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.
[討論] 請教使用Lisp選取特定條件聚合線 Io15011 [討論] 請教使用Lisp選取特定條件聚合線 2020-310 [討論] 請教使用Lisp選取特定條件聚合線 Oiu15010 [討論] 請教使用Lisp選取特定條件聚合線 2020-211 [討論] 請教使用Lisp選取特定條件聚合線 Oo-2-110 [討論] 請教使用Lisp選取特定條件聚合線 BPl3tjj

[討論] 請教使用Lisp選取特定條件聚合線

2 posters

向下

[討論] 請教使用Lisp選取特定條件聚合線 Empty [討論] 請教使用Lisp選取特定條件聚合線

發表 由 mk25817261 2021-07-19, 14:06

請教各位前輩
想測試的程式如下
因為我想設定只有符合0層與7層黃色的線段才能執行
但因為我先測試只有在0層執行就卡住,可以框選直接掉過指令的輸入,請問是什麼問題?
謝謝

代碼:

(defun C:TTT()
     (setq abc(ssget))
  (if abc (="0" layer)  
  (command "pedit" "m" abc "" "y" "j" "" "")
)
)
mk25817261
mk25817261
一般會員
一般會員

文章總數 : 5
年齡 : 32
來自 : 台中
職業 : 板金繪圖
愛好 : 玩遊戲
個性 : 內向
使用年資 : 10
使用版本 : 2016
經驗值 : 106
威望值 : 0
注冊日期 : 2021-07-12
男 摩羯座 龍

回頂端 向下

[討論] 請教使用Lisp選取特定條件聚合線 Empty 回復: [討論] 請教使用Lisp選取特定條件聚合線

發表 由 naruto018 2021-07-19, 17:46

1.因為if用法用錯了
(if 判斷表達式 thenexpr [elseexpr])
2.比較物件性質方式也錯了

直接改成ssget 篩選物件性質

代碼:
(defun C:TTT ()
  (setq abc (ssget '((8 . "0") (62 . 2))))
  (command "pedit" "m" abc "" "y" "j" "" "")
  )
naruto018
naruto018
中級會員
中級會員

文章總數 : 183
年齡 : 29
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 3083
威望值 : 461
注冊日期 : 2016-11-29
藍鵲726號
男 摩羯座 羊

Tiger&蘋果爸 likes this post

回頂端 向下

[討論] 請教使用Lisp選取特定條件聚合線 Empty 回復: [討論] 請教使用Lisp選取特定條件聚合線

發表 由 mk25817261 2021-07-19, 19:11

naruto018 寫到:1.因為if用法用錯了
(if 判斷表達式 thenexpr [elseexpr])
2.比較物件性質方式也錯了

直接改成ssget 篩選物件性質

代碼:
(defun C:TTT ()
  (setq abc (ssget '((8 . "0") (62 . 2))))
  (command "pedit" "m" abc "" "y" "j" "" "")
  )

原來如此
可是我剛剛測試他目前只有執行黃色的現有做指令(要如何排除?)
想再請教一下,如果想要先執行圖層0先做聚合在抓黃色再做一次聚合要如何編寫(不好意思,才剛使用1個月)
先謝謝了。
mk25817261
mk25817261
一般會員
一般會員

文章總數 : 5
年齡 : 32
來自 : 台中
職業 : 板金繪圖
愛好 : 玩遊戲
個性 : 內向
使用年資 : 10
使用版本 : 2016
經驗值 : 106
威望值 : 0
注冊日期 : 2021-07-12
男 摩羯座 龍

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論] 請教使用Lisp選取特定條件聚合線 Uos15010 [討論] 請教使用Lisp選取特定條件聚合線 BPl3tjj [討論] 請教使用Lisp選取特定條件聚合線 Ziao1510 [討論] 請教使用Lisp選取特定條件聚合線 Oo-2-110 [討論] 請教使用Lisp選取特定條件聚合線 Oooo-110 [討論] 請教使用Lisp選取特定條件聚合線 2020-211