[求助]：(command)函数激发的explode命令为何不能正确的接收选择集?

andy_li99

(command)函数激发的explode命令为何不能正确的接收选择集?而由(command)函数激发的其他cad命令却可以正确的接收选择集信息,例如下面的copy命令可以,而explode却不行.
代码如下:
选择标注对象,先拷贝一次,然后将被拷贝的标注对象炸开.
拷贝命令正确的执行了,而炸开命令没有正确处理选择集ss1

(defun c:test (/ p1 p2 ss1)
  (setq p2 (getcorner "请点取第二点:" (setq p1 (getpoint "请点取第一点:\n"))))
  (setq ss1 (ssget "_C" p1 p2 '((0 . "DIMENSION"))))
  (command "copy" ss1 "" p1 p2)
  (command ".explode" ss1)
)

carrot1983

你炸错了.
炸到原来的了...


可以参考这里
http://acad.net.cn/viewthread.ph ... &extra=page%3D1

雨箭风刀

炸之前，先 (setvar "qaflags" 1)

carrot1983

不会吧.qaflags这个在CAD帮助里面搜索不到..
不过,确实是有这个变量.
高人,能不能解释一下....

雨箭风刀

在论坛搜索一下 qaflags 就能知道

gysjy

最初由 andy_li99 发布
[B]选择标注对象,先拷贝一次,然后将被拷贝的标注对象炸开.
拷贝命令正确的执行了,而炸开命令没有正确处理选择集ss1 [/B]

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn(/ ss p s sa)
   
5.   (setvar "osmode" 129)
   
6.   (setq ss (ssget'((0 . "DIMENSION"))) p (getpoint "\n基点："))
   
7.   (command "undo" "g")
   
8.   (setq s (entlast) sa (ssadd))
   
9.   (command "copy" ss "" p pause)
   
10.   (setq s (entnext s))
    
11.   (while s (ssadd s sa)(setq s (entnext s)))
    
12.   (command "explode" sa "")
    
13.   (command "undo" "e")
    
14.   (print)
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:nn(/ ss p s sa)<br />   (setvar "osmode" 129)<br />   (setq ss (ssget'((0 . "DIMENSION"))) p (getpoint "\n基点："))<br />   (command "undo" "g")<br />   (setq s (entlast) sa (ssadd))<br />   (command "copy" ss "" p pause)<br />   (setq s (entnext s))<br />   (while s (ssadd s sa)(setq s (entnext s)))<br />   (command "explode" sa "")<br />   (command "undo" "e")<br />   (print)<br /> )<br />   [/FONT]<br />