[求助]如何对(ssget)获得的选择集，进行命令操作？

netrope

例如，通过以下命令选取0层的所有“图块”，并将它们加入到选择集SS1中，现在要将选择集SS1中的所有图形分解（炸开），也就是要执行“explode"命令，应该怎么做？
(setq SS1 (ssget "X" '((0 . "INSERT") (8 . "0") )))

非常感谢！

caoyin

(command "_.EXPLODE" ss1 "")

netrope

楼上的方法虽然可以实现，但只能分解选择集中的一个图块，其它图块还是没有分解呀，难道要一个一个的执行？

jdhszh

是的，在CAD下可以用EXPLODE把选中图元全部炸开，但在LISP中只能一个一个实现

无痕

(SETVAR "QAFLAGS" 1)

(COMMAND ".EXPLODE" SS "")

zzh-lsp

(setq j4 (ssget "x" '((-4 . "<and")
     (8 . "GCD")
    (0 . "POINT")
    (-4 . "and>"))))
   (if (/= j4 nil)
     (progn
   (setq k4 0 sm4 (sslength j4))
  (while (< k4 sm4)
    (setq dz-gcd (ssname j4 k4))
    (setq dz-gcd-ty (entget dz-gcd))
    (setq dz-gcd-xy (cdr (assoc 10 dz-gcd-ty)))
    (command "-insert" "*dz-gcd" dz-gcd-xy "" "")

可作为一个参照， 将选择集内对象一个一个取出依次进行操作