AutoCAD 2004 英文版 VBA 的

EPISODE

AutoCAD 2004 英文版VBA命令OFFSET有个BUG，将其帮助文件里面Offset_Example例程中各个顶点坐标都加上10000，执行后，原有对象会偏移到坐标系统原点。发现这个问题，是因为笔者编了一段自用程序，其中用到Offset命令，在AutoCAD 2002里面调试成功，转到AutoCAD 2004后屡试不爽。哪位高手遇到此类情况？有何解决办法？是否用Service Pack 1可以解决？若是，能否帮忙发个Service Pack 1？Autodesk网站上Service Pack 1的连接已经不可用了！

mccad

确实有这个问题，而且是偏移后的对象没有问题，而原对象会被移动原点附近。
在中文版也是这样。
可以这样解决，在偏移前原对象先复制一个，进行偏移，然后再删除复制的对象。

mccad

至于SP1，你可以到本站下载中心下载。

mccad

2. Sub Example_Offset()
   
3.     ' This example creates a lightweight polyline
   
4.     ' and then offsets the polyline.
   
5.    
   
6.     ' Create the polyline
   
7.     Dim plineObj As AcadLWPolyline
   
8.     Dim points(0 To 11) As Double
   
9.     points(0) = 10001: points(1) = 10001
   
10.     points(2) = 10001: points(3) = 10002
    
11.     points(4) = 10002: points(5) = 10002
    
12.     points(6) = 10003: points(7) = 10002
    
13.     points(8) = 10004: points(9) = 10004
    
14.     points(10) = 10004: points(11) = 10001
    
15.     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
16.     plineObj.Closed = True
    
17.     [b]Set plineObj = plineObj.Copy[/b]
    
18.     ZoomExtents
    
19.     ThisDrawing.Regen acActiveViewport
    
20.     MsgBox "Offset the polyline by 0.25.", , "Offset Example"
    
21.    
    
22.     ' Offset the polyline
    
23.     Dim offsetObj As Variant
    
24.     offsetObj = plineObj.Offset(0.25)
    
25.     [b]plineObj.Delete[/b]
    
26.     ThisDrawing.Regen acActiveViewport
    
27.    
    
28.     ZoomExtents
    
29.     MsgBox "Offset completed.", , "Offset Example"
    
30.    
    
31. End Sub
    

Sub Example_Offset()<br />     ' This example creates a lightweight polyline<br />     ' and then offsets the polyline.<br />     <br />     ' Create the polyline<br />     Dim plineObj As AcadLWPolyline<br />     Dim points(0 To 11) As Double<br />     points(0) = 10001: points(1) = 10001<br />     points(2) = 10001: points(3) = 10002<br />     points(4) = 10002: points(5) = 10002<br />     points(6) = 10003: points(7) = 10002<br />     points(8) = 10004: points(9) = 10004<br />     points(10) = 10004: points(11) = 10001<br />     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br />     plineObj.Closed = True<br />     [b]Set plineObj = plineObj.Copy[/b]<br />     ZoomExtents<br />     ThisDrawing.Regen acActiveViewport<br />     MsgBox "Offset the polyline by 0.25.", , "Offset Example"<br />     <br />     ' Offset the polyline<br />     Dim offsetObj As Variant<br />     offsetObj = plineObj.Offset(0.25)<br />     [b]plineObj.Delete[/b]<br />     ThisDrawing.Regen acActiveViewport<br />     <br />     ZoomExtents<br />     MsgBox "Offset completed.", , "Offset Example"<br />     <br /> End Sub<br />

EPISODE

非常感谢mccad给出例程！