求助trim，修剪命令的加强？

Andyhon

2. 
   
3. (progn
   
4.   (vl-cmdf "Trim")
   
5. 
   
6.   (if (setq ss (ssget))
   
7.     (and (setvar "edgemode" 1) (vl-cmdf ss))
   
8.     (and (setvar "edgemode" 0) (vl-cmdf ""))
   
9.   )
   
10. 
    
11.   (while (= (logand (getvar "CmdActive") 1) 1)
    
12.     (vl-cmdf pause)
    
13.   )
    
14. )
    

<br /> (progn<br />   (vl-cmdf "Trim")<br /> <br />   (if (setq ss (ssget))<br />     (and (setvar "edgemode" 1) (vl-cmdf ss))<br />     (and (setvar "edgemode" 0) (vl-cmdf ""))<br />   )<br /> <br />   (while (= (logand (getvar "CmdActive") 1) 1)<br />     (vl-cmdf pause)<br />   )<br /> )<br />

andyhua

谢谢长老的热心帮助。试了下，好像不行。选择了边界对象后，要回车2次才能再去选择修剪的对象。还有一个最重要的问题就是CAD的TRIM命令，是可以选择块中的直线来作为边界的。但是大哥的SSGET，选择块时，就会把整个块给选择上。而不是选择块中的局部对象。谢谢。

Andyhon

...要回车2次..
(and (setvar "edgemode" 1) (vl-cmdf ss))
==>
(and (setvar "edgemode" 1) (vl-cmdf ss ""))

...选择块中的直线...
点选?框选? 可有固定模式?
若仍是全自由模式则不那么简单代码可以负荷滴

andyhua

谢谢。TRIM修剪命令，可能是有点特殊。他可以正常的点选，框选块外的对象，作为修剪边界。也可以点选多个块内的对象作为修剪边界。大哥可以细细的看看TRIM命令的选择方式。谢谢。

andyhua

顶上去，都沉了！
哪位大哥帮忙看看啊？

c961806787

请你们不要灌水！！