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

碧海听潮

我用offset偏移多段线

offsetline = tmplwline.Offset(distance)然后

offsetpnt = offsetline.Coordinates

为什么系统识别offsetpnt，即得不到偏移后多段线得点？

碧海听潮

sorry，是不识别offsetpnt

yuangw1234

coordinates是一个数组，里面有好多数

你可以用coordinate(0)表示第一个顶点的x坐标,coordinate(1)表示第一个的y坐标，后面依次

碧海听潮

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

yuangw1234

是，但offsetline是一個數組

碧海听潮

谢谢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

pnt1(0) = offsetobj(0)

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

碧海听潮

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

你的程序的问题出在了下面两处：

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)是为了去除你不想要的一些数值

最后，我运行完发现程序最后生成的线的位置不太对头，你再仔细调试一下。反正有思路就不难了！

 

 

碧海听潮

谢谢楼主，我已经明白了，这样改就好了。我是想得到偏移后线得没个点，现在得到了。

 

 

 

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