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

代碼:


(defun C:TTT()
     (setq abc(ssget))
  (if abc (="0" layer)  
  (command "pedit" "m" abc "" "y" "j" "" "")
)
)


代碼:

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

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

直接改成ssget 篩選物件性質

代碼:

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