根据源对象生成多段线

qq_zsw · 发表于 2008-6-29 15:26

请大家帮忙处理程序前半段无法自动处理，多段线闭合的情况：

即闭合多段线转换后变为不闭合的？？？

请指教

caoyin · 发表于 2008-6-29 16:36

闭合多段线转换后变为不闭合的？？？

(vla-put-closed (vlax-ename->vla-object (car (entsel))) :vlax-false)

claotlaot · 发表于 2008-6-29 16:52

caoyin发表于2008-6-29 16:36:00闭合多段线转换后变为不闭合的？？？

(vla-put-closed (vlax-ename->vla-object (car (entsel))) :vlax-false)

不怎么明白，

qq_zsw · 发表于 2008-6-30 20:06

感谢黑侠兄，但是请进一步指教我的程序中的错误。
另，我对vlisp函数不了解，请尽量用autolisp函数

byghbcx · 发表于 2008-6-30 21:30

(if (/= (assoc 70 dxf1)(assoc 70 dxf))

(entmod (subst (assoc 70 dxf1) (assoc 70 dxf) dxf)))

改成:

(if (/= (assoc 70 dxf1)(assoc 70 dxf))

(entmod (setq dxf (subst (assoc 70 dxf1) (assoc 70 dxf) dxf))))
看看

看看

(if (/= (assoc 70 dxf1)(assoc 70 dxf))

(entmod (setq dxf (subst (assoc 70 dxf1) (assoc 70 dxf) dxf))))
看看

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