有没有像这样的高级purge lisp？

Elektrik · 发表于 2022-10-16 17:41:51

有没有像这样的高级purge lisp？
我想将所有绘图转换为当前使用的图层，然后逐层设置所有绘图，然后清除它，然后 -purge regapps（不验证要清除的每个名称），最后
laydel（删除当前图层以外的所有图层）。想谢。
[color=rgb( var(--theme-text_light) )]

admin · 发表于 2022-10-18 15:35:43

试试这个：

copy

;;----------------------------------------------------------------------------;;
;; 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)
)

[编程交流] 有没有像这样的高级purge lisp？

发表回复

精选推荐