最不可思议的奇迹！！！！！！请使用CAD2004版本的朋友进来看！

68651521 · 发表于 2006-6-14 16:11:00

直接开门见山
今天写了一个超简短的VBA程序先请大家过目
Sub Unbelievable()
Dim LinePoints(0 To 7) As Double
Dim Lineobj As AcadLWPolyline
Dim OutLineObj As Variant
LinePoints(0) = 518272.6283
LinePoints(1) = 3181584.5378
LinePoints(2) = 518265.3245
LinePoints(3) = 3186202.672
LinePoints(4) = 524367.6342
LinePoints(5) = 3186213.9028
LinePoints(6) = 524377.3628
LinePoints(7) = 3181595.7583
Set Lineobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(LinePoints)
Lineobj.Closed = True
OutLineObj = Lineobj.Offset(-85)
End Sub

相信代码应该是超简单的了吧
程序先定义了4个点的XY坐标由这4个点构成一个4边形然后使这个4边形闭合
最后将这个4边形偏移85 仅此而已！！！
请使用CAD2004版本的朋友运行一下我这个程序
结果会让你大跌眼镜！！！！！
偏移的框位置完全正确
原先画的内框居然被移动到十万八千米外！！！！！！！不可思议。。。。。
而在2006 2007版本中代码完全没有问题
2个框完全符合要求
不知道为什么2004版本中会这样！？！？！？

68651521 · 发表于 2006-6-14 18:06:00

经过反复测试
问题出在 OutLineObj = Lineobj.Offset(-85)
这一行如果去掉这一行那程序是正确的
会在指定的4个点上画出一个框
但是一偏移刚画的这个框（由4个点组成的框）就被莫名其妙的移动到十万八千里外去了，而偏移出来的外框坐标是正确的。
真是超奇怪思来想去没弄明白。。。。
有人能帮忙解决吗？