根据源对象生成多段线

qq_zsw

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

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

请指教

caoyin

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

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

claotlaot

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

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

不怎么明白，

qq_zsw

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

byghbcx

(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))))
看看