大家好
請教 lisp 開啟選擇層問題
網路上,下載 lisp 開啟選擇層
---------- 如下列 ------------------
(defun C:tom8 (/ a b b1 c n c2 index )
;; (setvar "cmdecho" 0)
(command"-layer""ON""*""")
(setq a (ssget))
(setq n(sslength a))
(setq c(ssname a 0))
(setq b1 (entget c))
;(entmod b1)
;(setq b1(entget (ssname a index)))
; (setq index (1+ index))
(setq b(assoc 8 b1))
(setq c1(cdr b))
(command"-layer" "OFF" "*" "Y" "")
(command"-layer" "ON" c1 "" )
)
---------- -----------------
但有來圖 ...
↧