谁帮我看看这段代码哪有问题？

lemyboy · 发表于 2009-5-19 16:47:00

本帖最后由作者于 2009-5-21 11:05:51 编辑

图心打断的一个小程序：

(setq m 0)
(repeat (length inslist);;;对插入或圆集进行点处理
    (setq l 0)
    (setq entlist (entget (nth m inslist)))
    (setq pt5 (cdr (assoc 10 entlist)))
    (setq en (ssget "C" pt5 pt5))
    (repeat (sslength en)
      (setq ent (ssname en l))
      (setq entlist (entget ent))
      (if (= "LWPOLYLINE" (cdr (assoc 0 entlist))) (command "break" ent pt5 "@"))
      (setq l (1+ l))
    )
    (setq m (1+ m))
)

出来的效果中有部分如下图，哪错了？？

lemyboy · 发表于 2009-5-21 11:07:00

晕，还未解决，自己顶下，高手来说说啊！

carrot1983 · 发表于 2009-5-21 14:33:00

试试：

(command "break" ENT PT5 PT5)

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

谁帮我看看这段代码哪有问题？

本帖子中包含更多资源