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

选择后Lisp结束

大家好，我有一个简单的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

好的，试试这个
对于单个对象。
对于多对象，(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)
)。
(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

很高兴听到这个消息，不客气。
页: [1]
查看完整版本: 选择后Lisp结束