yu-gn 发表于 2019-10-31 17:49:00

offset求助

如何将offset后的多段线改为红色，并输出偏移后多段线坐标？
Sub Example_Offset()
    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) = 40: points(11) = 1
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    Dim offsetObj As Variant
    offsetObj = plineObj.Offset(-0.5)
'在此添加什么代码？
    ZoomAll
End Sub

yu-gn 发表于 2019-11-2 21:24:00

这论坛现在没啥人了么？

fatty0724 发表于 2019-11-25 15:24:00

offsetObj   对象是个数组      因为有时候向内偏移是会变成多个       下标从0 开始       第一个offsetObj （0）.color=1
页: [1]
查看完整版本: offset求助