ALIN请进

linlei8128

ALIN，您好。你发的资料我已收到，并做测试，对于二条以的LWPLINE是OK的，但对于一条直线或一条圆弧构成的LWPLINE是出错的,有没有解决方法?

alin

Sorry, I didn't test it. Actually, Reini Urban's routine doesn't work well. I wrote one months ago... http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20180

alin

;;我怎么觉得autocad帮助文件里说offset值为负值时向“小”的方向偏移有时不对？ (defun C:test (/ offsetplineObj plineObj sel len)
(if (setq sel (entsel "\nSelect a LWPolyline: "))
(if (= (cdr (assoc 0 (entget (car sel)))) "LWPOLYLINE")
(progn
(setq plineObj (vlax-ename->vla-object (car sel))
len (vla-get-length plineobj)
)
(setq offsetplineObj
(car (vlax-safearray->list
(vlax-variant-value
(vla-offset plineObj (/ len 10000))
)
)
)
)
(if (< (vla-get-area offsetplineobj)
(vla-get-area plineobj)
)
(princ "\n该多义线为顺时针。")
(princ "\n该多义线为逆时针。")
)
(vla-delete offsetplineObj)
) ;progn
(princ "\nNot LWPolyline selected.")
) ;end if
(princ "\nNo entity selected.")
) ;end_if
(princ)
)

无痕

alin发表于2004-10-8 21:47:00;;我怎么觉得autocad帮助文件里说offset值为负值时向“小”的方向偏移有时不对？ (defun C:test (/ offsetplineObj plineObj sel len)   (if (setq sel...

不一定是向小的偏移,对多义线,是按顺逆时针来说的

1. [明经通道特别提示]对于的 LightweightPolyline 和 Polyline 对象，曲线有顺时针方向和逆时针方向，对于顺时针方向，距离值为正值时为向内偏移，距离值为负值时为向外偏移。对于逆时针时刚好相反。对于自相交的多段线的偏移方向需要自己慢慢实践了。

复制代码

alin

谢谢无痕兄指点。我也发现这点，但没看见明经的提示。帮助文件里还这样说：当“大““小”无意义时，使用负值offset, 图元向x,y,z(WCS)“小”的方向偏移?更令人纳闷。