[求助]：在样将一个矩形（是块形式的）先选择，再炸开，最后重新得到选择集？？？？？

nuomandi

在样将一个矩形（是块形式的）先选择，得到一个选择集，再炸开，最后重新得到选择集？？？？？？？？
两个选择集应该不同吧，在么得到后面 的选择集呀？？
谁知道呀？？

cy956

(setq e(entlast))
.......
任意编辑
.......
(setq s(get-ss e) )

;;)
(Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集
  (setq ss (ssadd) ep e)
  (if (not ep) (setq ep (entnext)))
  (while (/= (setq ep (entnext ep)) nil)
    (ssadd ep ss)
  )
  ss
)

梦断江南

炸开后(ssget "p")
或在回应选择命令的时候用"p"(前一个选集)

nuomandi

感谢2位版主，但是好像还不行！
1.我画了3个对象（一个矩形pline；一个圆；一个六边形polygon），选择集为S1，
长度为3。
2.explode 炸开3个对象后，在样建造一个选择集S1,可以得到炸开后的11个对象（4+1+6＝11）呀？？
3.好像在命令窗口可以用梦断江南版主的方法，但是在lisp中没法用呀！版主可以帮我解决
这个问题吗？？


  谢谢

梦断江南

你不是说是块形式么？怎么没做块？
第三个问题，我第二贴的第一句就是用在程序中的。炸开命令可以用command调用，详细看cad帮助

nuomandi

请问版主，我说的这种功能用lisp好像实现不了吧？？

zjpvictory

www

sdwy19691229

(ssget "p")
是可以选择到炸开后的图元的。

nuomandi

(ssget "p")
是可以选择到炸开后的图元的。
是对的，但是我的问题还解决　不了呀！！
我的问题如下：：

1.我画了3个对象（一个矩形pline；一个圆；一个六边形polygon），选择集为S1，
长度为3。
2.explode 炸开3个对象后，在样建造一个选择集S1,可以得到炸开后的11个对象（4+1+6＝11）呀？？
3.好像在命令窗口可以用梦断江南版主的方法，但是在lisp中没法用呀！版主可以帮我解决
这个问题吗？？

它山之石

LISP程序中似乎不能对一个选择集进行以下命令。需要遍历每个实体后用实体名来炸开。然后再用“P”的方式加入新选择集中。或者在炸开之前做个标记，将炸开后形成的实体一次得到。
(command "explode" s1 "")

xyp1964

圆是炸不开的，(ssget "p")的结果只有10个对象！

试试，有点绕：
[php]
(defun c:test ()
  (setq        s1 (ssget)
        SS S1
        i  -1
  )
  (while (setq e (ssname s1 (setq i (1+ i))))
    (if        (or (= (dxf 0 (entget e)) "POLYLINE")
            (= (dxf 0 (entget e)) "INSERT")
        )
      (command "explode" e)
    )
    (setq s2 (ssget "p"))
    (command "select" SS "a" s2 "")
    (setq s3 (ssget "p")
          SS S3)
  )
  (setq num (sslength SS))
  (princ"\n选择集 ： !SS")
  ;num
)
(defun dxf (code elist) (cdr (assoc code elist)))
[/php]

Free-Lancer

最初由 nuomandi 发布
[B](ssget "p")
是可以选择到炸开后的图元的。
是对的，但是我的问题还解决　不了呀！！
我的问题如下：：

1.我画了3个对象（一个矩形pline；一个圆；一个六边形polygon），选择集为S1，
长度为3。
2.explode ?... [/B]

分解时过滤对象
[php]
(defun c:tt (/ ss s1)
  (if (setq s1 (ssget '((-4 . "<not")
                        (0 . "line,arc,circle,text,trace,solid")
                        (-4 . "not>")
                       )
               )
      )
    (progn
      (vl-cmdf ".explode" s1 )
      (setq ss (ssget "p"))
      (sssetfirst nil ss)
    )
  )
  (princ)
)[/php]

梦断江南

[php]
(DEFUN c:tt ()
  (setvar "qaflags" 1)
  (vl-cmdf ".explode"   (setq ss (ssget)) "")
  (setq ss2 (ssget "p"))
  (vl-cmdf ".select" ss ss2 "")
  (sssetfirst nil (ssget "p"))
)[/php]

nuomandi

谢谢xyp1964  、Free-Lancer 、 梦断江南 ！！


梦断江南的方法可以实现！！！多谢