选择后Lisp结束

loudy000 · 发表于 2022-7-5 16:57:27

大家好，我有一个简单的Lisp程序下面，只是想知道如何结束后，选择它？谢谢非常感谢你的帮助

(defun c:GH ()
 (SSGET)
 (command "layer" "M" "L-HATCH" "")
 (command "layer" "c" "8" "L-HATCH" "")  
 (COMMAND "CHANGE" "P" "" "P" "LA" "L-HATCH" "")
 (command "clayer" "L-HATCH")
 (command "layer" "on" "L-HATCH" "")
 (command "layer" "LT" "CONTINUOUS" "")
)

mostafa badran · 发表于 2022-7-5 17:13:08

您好，loudy000，您需要学习autolisp还是只需要结束此lisp？

loudy000 · 发表于 2022-7-5 17:26:31

我在努力，但我不知道如何结束这一次，我只知道基本的。

mostafa badran · 发表于 2022-7-5 17:37:38

好的，试试这个
对于单个对象。
对于多对象，

copy

(defun c:GH()
(setq sel (entsel));for single object
(command "_.Layer" "_Make" "L-HATCH" "_Color" "8" "" "_LType" "Continuous" "" "" "CHANGE" sel "" "_P" "_LA" "L-HATCH" "")
 (princ)
 )

。

copy

(defun c:chglayr (/ CNT DXDT DXFDNEW DXFNEW DXFOLD ENT SSET )
 (command "_.Layer" "_Make" "L-HATCH" "_Color" "8" "" "_LType" "Continuous" "" "")
 (setq sset (ssget))
 (setq cnt 0)
 (repeat (sslength sset)
   (setq ent (ssname sset cnt))
   (setq dxdt (entget ent))
   (setq dxfold (assoc 8 dxdt))
   (setq dxfnew '(8 . "L-HATCH"))
   (setq dxfdnew (subst dxfnew dxfold dxdt))
   (entmod dxfdnew)
   (setq cnt (1+ cnt))
 )
 (princ)
)

loudy000 · 发表于 2022-7-5 17:54:10

很好，非常感谢mostafa

mostafa badran · 发表于 2022-7-5 17:59:53

很高兴听到这个消息，不客气。

[编程交流] 选择后Lisp结束

发表回复

精选推荐