请教：如何不用command “trim”，裁剪圆内直线：

mandala · 发表于 2012-5-19 13:17:58

假设一条多义线pl（图元名）穿过一个圆c1（图元名），圆c1的中心点是ps（点表），那么裁剪圆c1内的pl可以这么写：

(command "._trim" c1 "" (list pl ps) "")

现在由于通过循环得到了许多的圆和多义线（少说也有2000对），需要一一裁剪，这时候用command就太慢了，请问有没有用entmake或entmod之类的方式来剪切？

xyp1964 · 发表于 2012-5-19 13:23:47

还可以用break

mandala · 发表于 2012-5-19 13:27:26

xyp1964 发表于 2012-5-19 13:23
还可以用break

break也慢啊！你想想，一个程序里连用5000个command “break”……

xyp1964 · 发表于 2012-5-19 13:38:12

kwok · 发表于 2012-5-19 13:47:04

院长发伪原码...

mandala · 发表于 2012-5-19 13:57:53

这个让我比较郁闷了……如果不用command能达到这个效果，贴点代码什么的出来吧？给个思路也成啊。

xyp1964 · 发表于 2012-5-19 14:01:32

;; 圆内0层直线打断删除伪源码
(defun c:tt ()
(CMDLA0)
(setq ss (ssget '((0 . "circle")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(xyp-lxcl s1 0 "0")
)
(CMDLA1)
)

wowan1314 · 发表于 2012-5-19 15:02:18

本帖最后由 wowan1314 于 2012-5-19 15:04 编辑

？？？？什么叫秒杀法？用COMMAND剪切，2000个就得10秒左右。
关键函数xyp-lxcl看不懂。

mandala · 发表于 2012-5-19 15:30:26

这个版主不给力啊。

logoin · 发表于 2012-5-19 17:00:09

剪切只是个表面，它的最终原理还是根据条件产生新的对象和删掉旧的对象
所以你要快的话，也只能按这个思路，当然要求就会更高一点
我觉得可以试一下这样，速度应该快一点，先找出交点，按交点的在多段线的参数为顺序，把交点坐标插入到多段线的顶点列表中，得到最终的列表，再根据这个列表产生几条新的多段线，再删去旧的，最少要用vlisp，如果会c#更好

账号		自动登录	找回密码
密码			注册

请教：如何不用command “trim”，裁剪圆内直线：

点评

本帖子中包含更多资源

浏览过的版块