(progn
(vl-cmdf "Trim")
(if (setq ss (ssget))
(and (setvar "edgemode" 1) (vl-cmdf ss))
(and (setvar "edgemode" 0) (vl-cmdf ""))
)
(while (= (logand (getvar "CmdActive") 1) 1)
(vl-cmdf pause)
)
)
谢谢长老的热心帮助。试了下,好像不行。选择了边界对象后,要回车2次才能再去选择修剪的对象。还有一个最重要的问题就是CAD的TRIM命令,是可以选择块中的直线来作为边界的。但是大哥的SSGET,选择块时,就会把整个块给选择上。而不是选择块中的局部对象。谢谢。 ...要回车2次..
(and (setvar "edgemode" 1) (vl-cmdf ss))
==>
(and (setvar "edgemode" 1) (vl-cmdf ss ""))
...选择块中的直线...
点选?框选? 可有固定模式?
若仍是全自由模式则不那么简单代码可以负荷滴 谢谢。TRIM修剪命令,可能是有点特殊。他可以正常的点选,框选块外的对象,作为修剪边界。也可以点选多个块内的对象作为修剪边界。大哥可以细细的看看TRIM命令的选择方式。谢谢。 顶上去,都沉了!
哪位大哥帮忙看看啊? 请你们不要灌水!!
页:
1
[2]