[求助]offset偏移后的对象得到

碧海听潮 发表于 2006-5-29 21:15:00

我用offset偏移多段线
offsetline = tmplwline.Offset(distance)然后
offsetpnt = offsetline.Coordinates
为什么系统识别offsetpnt，即得不到偏移后多段线得点？

碧海听潮 发表于 2006-5-29 21:22:00

sorry，是不识别offsetpnt

yuangw1234 发表于 2006-5-29 21:22:00

coordinates是一个数组，里面有好多数
你可以用coordinate(0)表示第一个顶点的x坐标,coordinate(1)表示第一个的y坐标，后面依次

碧海听潮 发表于 2006-5-30 08:40:00

offsetline = tmplwline.Offset(distance)的意思是否是tmplwline偏移后的线是offsetline？

yuangw1234 发表于 2006-5-30 09:29:00

是，但offsetline是一個數組

碧海听潮 发表于 2006-5-30 20:45:00

谢谢yuangw1234,但我运行还有点错误,帮我看看
Sub Ch4_OffsetPolyline()     ' 创建多段线     Dim plineObj As AcadLWPolyline     Dim points(0 To 11) As Double     points(0) = 1: points(1) = 1     points(2) = 1: points(3) = 2     points(4) = 2: points(5) = 2     points(6) = 3: points(7) = 2     points(8) = 4: points(9) = 4     points(10) = 4: points(11) = 1     Set plineObj = ThisDrawing.ModelSpace. _                    AddLightWeightPolyline(points)     plineObj.Closed = True     ZoomAll                     ' 偏移多段线     Dim offsetobj As Variant     offsetobj = plineObj.Offset(0.25) Dim line As AcadLine Dim pnt1(2) As Double Dim pnt2(2) As Double '这里出问题了 pnt1(0) = offsetobj(0) pnt1(1) = offsetobj(0) pnt1(2) = 0 pnt2(0) = 10 pnt2(1) = 10 pnt2(2) = 0 Set line = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2) line.color = acBlue ZoomAll End Sub

xinghesnak 发表于 2006-5-31 17:01:00

pnt1(0) = offsetobj(0)
前面是个DOUBLE，后面是个对象，这样赋值当然不行，提取offsetobj中的coordinates属性里的坐标吧！

碧海听潮 发表于 2006-6-2 19:51:00

Sub Ch4_OffsetPolyline()     ' 创建多段线     Dim plineObj As AcadLWPolyline     Dim points(0 To 11) As Double     points(0) = 1: points(1) = 1     points(2) = 1: points(3) = 2     points(4) = 2: points(5) = 2     points(6) = 3: points(7) = 2     points(8) = 4: points(9) = 4     points(10) = 4: points(11) = 1     Set plineObj = ThisDrawing.ModelSpace. _                    AddLightWeightPolyline(points)     plineObj.Closed = True         ZoomAll                     ' 偏移多段线     Dim offsetobj As AcadLWPolyline     offsetobj = plineObj.Offset(0.25)     
Dim line As AcadLine Dim pnt1(2) As Double Dim pnt2(2) As Double '这里出问题了 pnt1(0) = offsetobj.Coordinates(0) pnt1(1) = offsetobj.Coordinates(1) pnt1(2) = 0 pnt2(0) = 10 pnt2(1) = 5 pnt2(2) = 0 Set line = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2) line.color = acBlue ZoomAll End Sub 
 
这样还不行呀,帮帮忙呀,谢谢

xinghesnak 发表于 2006-6-3 08:39:00

你的程序的问题出在了下面两处：
1，Dim offsetobj As AcadLWPolyline     offsetobj = plineObj.Offset(0.25)
    对象Offset后返回的是一个对象数组，而你的offsetobj只定义成一种对象类型，那么在运行时回报错。所以改成
 Dim offsetobj As Variant     offsetobj = plineObj.Offset(0.25)
2，下面的这一段
Dim line As AcadLine Dim pnt1(2) As Double Dim pnt2(2) As Double pnt1(0) = offsetobj.Coordinates(0) pnt1(1) = offsetobj.Coordinates(1) pnt1(2) = 0
Coordinates属性不支持Coordinates(0)这种获取数值的方法，需要一个中间变量来过渡一下。所以改成如下
Dim line As AcadLine Dim pnt1 As Variant Dim pnt2(2) As Double
pnt1 = offsetobj(0).Coordinates ReDim Preserve pnt1(2) pnt1(2) = 0
ReDim Preserve pnt1(2)是为了去除你不想要的一些数值
最后，我运行完发现程序最后生成的线的位置不太对头，你再仔细调试一下。反正有思路就不难了！

碧海听潮 发表于 2006-6-3 12:52:00

谢谢楼主，我已经明白了，这样改就好了。我是想得到偏移后线得没个点，现在得到了。
 
 
 
Sub Ch4_OffsetPolyline()     ' 创建多段线     Dim plineObj As AcadLWPolyline     Dim points(0 To 11) As Double     points(0) = 1: points(1) = 1     points(2) = 1: points(3) = 2     points(4) = 2: points(5) = 2     points(6) = 3: points(7) = 2     points(8) = 4: points(9) = 4     points(10) = 4: points(11) = 1     Set plineObj = ThisDrawing.ModelSpace. _                    AddLightWeightPolyline(points)     plineObj.Closed = True         ZoomAll                     ' 偏移多段线     Dim offsetobj As Variant          Dim lineline As AcadLWPolyline      offsetobj = plineObj.Offset(0.25)       Set lineline = offsetobj(0)
     Dim pn1(2) As Double     Dim pn2(2) As Double    Dim line As AcadLine           pn1(0) = lineline.Coordinates(0)    pn1(1) = lineline.Coordinates(1)    pn1(2) = 0    pn2(0) = 20    pn2(1) = 10    pn2(2) = 0    Set line = ThisDrawing.ModelSpace.AddLine(pn1, pn2)    line.color = acRed
ZoomAll End Sub

页: [1]

明经CAD社区's Archiver

[求助]offset偏移后的对象得到