[求助]：请问为什么我的LSP会这样？

Wildcat

情况如下：
(defun c:xxxx(/ ent)
  (ssget "x" '((0 . "INSERT")))
  (COMMAND "EXPLODE" "p" "")
)
提示出现
Command: xxxx


*Invalid selection*
Expects a point or Last/Group
出错:Function cancelled
nil
Select object:

Command: 'xdrx_savsslink
Unknown command "XDRX_SAVSSLINK".  Press F1 for help.
为什么会这样？

Wildcat

(defun c:xxxx(/ ent)
(ssget "x" '((0 . "INSERT")))
((command "change" ent "" "p" "c" "6" "")
)
改成这样却可以正常执行。

LUCAS

Block的颜色不能这样改,你要改block所在图层的颜色(而且block建立时图层color要by layer, block中对象color也要by layer才有效),不然要遍历block修改每个对象。
修改颜色可没想象中简单，像xdsoft提供的程序(dwgblack.lsp)对”tolerance” “attrib”均无效,对black中的尺寸标注颜色看起来是改了,但把block爆开你会发现它的颜色又参考回原来的dimstyle了。

Wildcat

其实我想把图中的块全选后再炸开。但搞不清为何不行。

秋枫

explode命令在lisp中执行时，一次只能炸一个物体。不能对选择集操作。
在help中有说细说明。

解决办法：

1。 遍历选择集，炸开每个图块

2。 cy956提供过的秘笈：
AutoCAD有个秘密系统变量
qaflags
改成1后应该可以正常运行。
help系统中无关于此变量的说明。

秋枫

这里是完整的炸开所有图块的代码:

2. 
   
3. [FONT=courier new]
   
4. ;; 炸开所有等比缩放的图块
   
5. (defun C:ExpBlk1
   
6.                  (/             blocklist        ss           blockname
   
7.                   i             blockobj        lastentity blockobj2
   
8.                   count
   
9.                  )
   
10.   (setq ss (ssget '((0 . "INSERT"))))
    
11.   (if (null ss)(exit))
    
12.   (setq        i 0
    
13.         blocklist nil
    
14.   )
    
15.   (while (< i (sslength ss))
    
16.     (setq blockname (ssname ss i))
    
17.     (setq blockobj (vlax-ename->vla-object blockname))
    
18.     (if        (= (abs (vla-get-XscaleFactor blockobj))
    
19.            (abs (vla-get-YScaleFactor blockobj))
    
20.            (abs (vla-get-ZscaleFactor Blockobj))
    
21.         )
    
22.       (progn
    
23.         (setq blocklist (append blocklist (list blockobj)))
    
24.       )
    
25.     )
    
26.     (setq i (1+ i))
    
27.   )
    
28. 
    
29.   (setvar "cmdecho" 0)
    
30.   (command "_.UNDO" "Auto" "off")
    
31.   (command "_.UNDO" "_GROUP")
    
32.   (setvar "cmdecho" 1)
    
33. 
    
34.   (setq count 0)
    
35.   (while blocklist
    
36.     (setq lastentity (entlast))
    
37.     (foreach blockobj blocklist
    
38.                                         ; (setvar "cmdecho" 0)
    
39.                                         ; (command "_.EXPLODE" (vlax-vla-object->ename blockobj))
    
40.                                         ; (setvar "cmdecho" 1)
    
41.                                         ;以上方法效率极低
    
42.       (vla-explode blockobj)
    
43.       (vla-delete blockobj)
    
44.       (setq count (1+ count))
    
45.       (princ "\r")
    
46.       (princ count)
    
47.       (princ " block(s) exploded.")
    
48.       
    
49.       (setq blocklist (cdr blocklist))
    
50.       (while (not (eq lastentity (entlast)))
    
51.         (setq lastentity (entnext lastentity))
    
52.         (if (= "INSERT" (cdr (assoc 0 (entget lastentity))))
    
53.           (progn
    
54.             (setq blockobj2 (vlax-ename->vla-object lastentity))
    
55.             (if        (= (abs (vla-get-XscaleFactor blockobj2))
    
56.                    (abs (vla-get-YScaleFactor blockobj2))
    
57.                    (abs (vla-get-ZscaleFactor Blockobj2))
    
58.                 )
    
59.               (progn
    
60.                 (setq blocklist (append blocklist (list blockobj2)))
    
61.               )
    
62.             )
    
63.           )
    
64.         )
    
65.       )
    
66.     )
    
67.   )
    
68.   (setvar "cmdecho" 0)
    
69.   (command "_.UNDO" "END")
    
70.   (setvar "cmdecho" 1)
    
71. 
    
72.   (princ)
    
73. )
    
74. 
    
75. ;; Expblk2 炸开所有图块
    
76. (defun C:ExpBlk2
    
77.                  (/             blocklist        ss           blockname
    
78.                   i             blockobj        lastentity blockobj2
    
79.                   count
    
80.                  )
    
81.   (setq ss (ssget '((0 . "INSERT"))))
    
82.   (if (null ss)(exit))
    
83.   (setq        i 0
    
84.         blocklist nil
    
85.   )
    
86.   (while (< i (sslength ss))
    
87.     (setq blockname (ssname ss i))
    
88.     (setq blockobj (vlax-ename->vla-object blockname))
    
89.                                         ;    (if        (= (abs (vla-get-XscaleFactor blockobj))
    
90.                                         ;           (abs (vla-get-YScaleFactor blockobj))
    
91.                                         ;           (abs (vla-get-ZscaleFactor Blockobj))
    
92.                                         ;        )
    
93.                                         ;      (progn
    
94.     (setq blocklist (append blocklist (list blockobj)))
    
95.                                         ;      )
    
96.                                         ;    )
    
97.     (setq i (1+ i))
    
98.   )
    
99. 
    
100.   (setvar "cmdecho" 0)
     
101.   (command "_.UNDO" "Auto" "off")
     
102.   (command "_.UNDO" "_GROUP")
     
103.   (setvar "cmdecho" 1)
     
104. 
     
105.   (setq count 0)
     
106.   (while blocklist
     
107.     (setq lastentity (entlast))
     
108.     (foreach blockobj blocklist
     
109.                                         ; (setvar "cmdecho" 0)
     
110.                                         ; (command "_.EXPLODE" (vlax-vla-object->ename blockobj))
     
111.                                         ; (setvar "cmdecho" 1)
     
112.       (vla-explode blockobj)
     
113.       (vla-delete blockobj)
     
114.       (princ "\r")
     
115.       (princ count)
     
116.       (princ " block(s) exploded.")
     
117.       
     
118.       (setq count (1+ count))
     
119.       (setq blocklist (cdr blocklist))
     
120.       (while (not (eq lastentity (entlast)))
     
121.         (setq lastentity (entnext lastentity))
     
122.         (if (= "INSERT" (cdr (assoc 0 (entget lastentity))))
     
123.           (progn
     
124.             (setq blockobj2 (vlax-ename->vla-object lastentity))
     
125.                                         ;            (if        (= (abs (vla-get-XscaleFactor blockobj2))
     
126.                                         ;                   (abs (vla-get-YScaleFactor blockobj2))
     
127.                                         ;                   (abs (vla-get-ZscaleFactor Blockobj2))
     
128.                                         ;                )
     
129.                                         ;              (progn
     
130.             (setq blocklist (append blocklist (list blockobj2)))
     
131.                                         ;              )
     
132.                                         ;            )
     
133.           )
     
134.         )
     
135.       )
     
136.     )
     
137.   )
     
138.   (setvar "cmdecho" 0)
     
139.   (command "_.UNDO" "END")
     
140.   (setvar "cmdecho" 1)
     
141. 
     
142.   (princ)
     
143. )
     
144. [/FONT]

<br /> [FONT=courier new]<br /> ;; 炸开所有等比缩放的图块<br /> (defun C:ExpBlk1<br />                  (/             blocklist        ss           blockname<br />                   i             blockobj        lastentity blockobj2<br />                   count<br />                  )<br />   (setq ss (ssget '((0 . "INSERT"))))<br />   (if (null ss)(exit))<br />   (setq        i 0<br />         blocklist nil<br />   )<br />   (while (< i (sslength ss))<br />     (setq blockname (ssname ss i))<br />     (setq blockobj (vlax-ename->vla-object blockname))<br />     (if        (= (abs (vla-get-XscaleFactor blockobj))<br />            (abs (vla-get-YScaleFactor blockobj))<br />            (abs (vla-get-ZscaleFactor Blockobj))<br />         )<br />       (progn<br />         (setq blocklist (append blocklist (list blockobj)))<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br /> <br />   (setvar "cmdecho" 0)<br />   (command "_.UNDO" "Auto" "off")<br />   (command "_.UNDO" "_GROUP")<br />   (setvar "cmdecho" 1)<br /> <br />   (setq count 0)<br />   (while blocklist<br />     (setq lastentity (entlast))<br />     (foreach blockobj blocklist<br />                                         ; (setvar "cmdecho" 0)<br />                                         ; (command "_.EXPLODE" (vlax-vla-object->ename blockobj))<br />                                         ; (setvar "cmdecho" 1)<br />                                         ;以上方法效率极低<br />       (vla-explode blockobj)<br />       (vla-delete blockobj)<br />       (setq count (1+ count))<br />       (princ "\r")<br />       (princ count)<br />       (princ " block(s) exploded.")<br />       <br />       (setq blocklist (cdr blocklist))<br />       (while (not (eq lastentity (entlast)))<br />         (setq lastentity (entnext lastentity))<br />         (if (= "INSERT" (cdr (assoc 0 (entget lastentity))))<br />           (progn<br />             (setq blockobj2 (vlax-ename->vla-object lastentity))<br />             (if        (= (abs (vla-get-XscaleFactor blockobj2))<br />                    (abs (vla-get-YScaleFactor blockobj2))<br />                    (abs (vla-get-ZscaleFactor Blockobj2))<br />                 )<br />               (progn<br />                 (setq blocklist (append blocklist (list blockobj2)))<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "cmdecho" 0)<br />   (command "_.UNDO" "END")<br />   (setvar "cmdecho" 1)<br /> <br />   (princ)<br /> )<br /> <br /> ;; Expblk2 炸开所有图块<br /> (defun C:ExpBlk2<br />                  (/             blocklist        ss           blockname<br />                   i             blockobj        lastentity blockobj2<br />                   count<br />                  )<br />   (setq ss (ssget '((0 . "INSERT"))))<br />   (if (null ss)(exit))<br />   (setq        i 0<br />         blocklist nil<br />   )<br />   (while (< i (sslength ss))<br />     (setq blockname (ssname ss i))<br />     (setq blockobj (vlax-ename->vla-object blockname))<br />                                         ;    (if        (= (abs (vla-get-XscaleFactor blockobj))<br />                                         ;           (abs (vla-get-YScaleFactor blockobj))<br />                                         ;           (abs (vla-get-ZscaleFactor Blockobj))<br />                                         ;        )<br />                                         ;      (progn<br />     (setq blocklist (append blocklist (list blockobj)))<br />                                         ;      )<br />                                         ;    )<br />     (setq i (1+ i))<br />   )<br /> <br />   (setvar "cmdecho" 0)<br />   (command "_.UNDO" "Auto" "off")<br />   (command "_.UNDO" "_GROUP")<br />   (setvar "cmdecho" 1)<br /> <br />   (setq count 0)<br />   (while blocklist<br />     (setq lastentity (entlast))<br />     (foreach blockobj blocklist<br />                                         ; (setvar "cmdecho" 0)<br />                                         ; (command "_.EXPLODE" (vlax-vla-object->ename blockobj))<br />                                         ; (setvar "cmdecho" 1)<br />       (vla-explode blockobj)<br />       (vla-delete blockobj)<br />       (princ "\r")<br />       (princ count)<br />       (princ " block(s) exploded.")<br />       <br />       (setq count (1+ count))<br />       (setq blocklist (cdr blocklist))<br />       (while (not (eq lastentity (entlast)))<br />         (setq lastentity (entnext lastentity))<br />         (if (= "INSERT" (cdr (assoc 0 (entget lastentity))))<br />           (progn<br />             (setq blockobj2 (vlax-ename->vla-object lastentity))<br />                                         ;            (if        (= (abs (vla-get-XscaleFactor blockobj2))<br />                                         ;                   (abs (vla-get-YScaleFactor blockobj2))<br />                                         ;                   (abs (vla-get-ZscaleFactor Blockobj2))<br />                                         ;                )<br />                                         ;              (progn<br />             (setq blocklist (append blocklist (list blockobj2)))<br />                                         ;              )<br />                                         ;            )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "cmdecho" 0)<br />   (command "_.UNDO" "END")<br />   (setvar "cmdecho" 1)<br /> <br />   (princ)<br /> )<br /> [/FONT]

秋枫

上述程序炸开所有图块，包括嵌套中的图块。避免了使用递归。原来是以为因为使用递归的原因，导致程序运行速度很慢。后来发现不是这样，是因为（command）调用很慢。所以，最后改成activex方法，速度大大提高。

wildcat可以自己改成递归形式的程序，程序代码可以短很多倍。速度也不慢。

Wildcat

原来还有这样的系统变量。
谢谢秋枫斑竹的详细解答。