如何删除所有实体

samifox · 发表于 2022-7-5 16:09:57

你好

如何删除选择集中的所有图元？


(setq ss (ssget '((0 . "DIMENSION") (3 . "AR-DS-50"))))
;_ delete all ss members off the model space

谢谢
S

Tharwat · 发表于 2022-7-5 16:17:24

这

copy


(if ss (command "_.Erase" ss ""))

samifox · 发表于 2022-7-5 16:23:11

开箱即用解决方案
干得好，塔尔瓦！

autolisppic解决方案呢？

Tharwat · 发表于 2022-7-5 16:23:59

循环浏览选择集中的每个实体，然后使用函数entdel删除实体名称。我认为你应该能写你的，不是吗？

samifox · 发表于 2022-7-5 16:29:28

是的，当然。。。我喜欢你挑战我！

copy


(setq ss (ssget '((0 . "DIMENSION") (3 . "AR-DS-50"))) i 0)
(repeat (sslength ss)
 (entdel (ssname ss i))
)

但它不起作用

Tharwat · 发表于 2022-7-5 16:37:09

它不起作用，因为变量i等于零

copy


(repeat (setq i (sslength ss)) [color="gray"];; i = the quantity of selection set[/color]
 (entdel (ssname ss (setq i (1- i)))) [color="gray"];; variable i would be decreased till it is equal to zero logically with the usage of repeat function .[/color]
)