有没有像这样的高级purge lisp？
有没有像这样的高级purge lisp？我想将所有绘图转换为当前使用的图层，然后逐层设置所有绘图，然后清除它，然后 -purge regapps（不验证要清除的每个名称），最后
laydel（删除当前图层以外的所有图层）。想谢。
试试这个：
;;----------------------------------------------------------------------------;;
;; Condence Drawing to one layer
(defun C:OOF (/ SS)
(setq SS (ssget "_X" '((410 . "Model")))) ;select everything in model space
;change selection set SS to current layer and color to bylayer
(vl-cmdf "_Chprop" SS "" "LA" (getvar 'clayer) "C" "Bylayer" "")
(repeat 3 (vl-cmdf "_.Purge" "A" "*" "N")) ;purge 3 times
(princ)
)
页:
[1]