[求助]哪位高手知道VBA判断pl线是逆时针还是顺时针绘制的？

mycad

[求助]哪位高手知道VBA怎样判断pl线是逆时针还是顺时针绘制的？lisp代码本站已有，但是本人不太了解LISP语言。有VBA代码的更好。谢谢！！

xinghesnak

凸度

mccad

这么多天还没有人接招，这不太好。

我提示一下：

多段线向两侧偏移后，多段线的面积会有变化。

逆时针和顺时针多段线会产生不同的结果。

mycad

首先感谢MCCAD的提示。本人在程序很想使用“判断线的绘制顺序”函数，苦于没有好的思路所有另辟新的思路与算法，问题已经得到了解决，谢谢大家。

 

“凸度”肯定不能解决此类问题的。MCCAD的算法可以的，但是本人真的没有编写程序测试。谢谢各位。此问题到此结束啦！

mycad

对了，还要麻烦明总，如果是两个点的pline线怎没办？使用偏移好像不能够准确的判断了

 

mccad

两个点怎么分顺和逆呢？如果两个点，那就要结合凸度，但如果是直线段的话，就没有方向可言了。

mycad

可以的，可以根据绘制的方向来判断（认为）逆时针还是顺时针，即x1-x0,如果大于等0认为是顺时针，反之逆时针。

 

再请教明总：

怎样获得pline的每一段SetBulge值呢？

下面的代码提示“参数不可选”错误，谢谢赐教。

 

Sub Example_SetBulge2()
    ' This example creates a light weight polyline in model space.
    ' It then finds and changes the bulge for a given segment.
   
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    Dim currentBulge As Double
    Dim i As Long
    ' Define the 2D polyline points
    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
       
    ' Create a light weight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   ZoomAll
    'MsgBox plineObj.SetBulge(0)

    For i = 0 To 5
    
     s = s + "plineObj.SetBulge(" + Str(i) + ")=" & plineObj.SetBulge(i) & vbCrLf
    Next i
    MsgBox s
   
End Sub

 

mccad

应该是GetBulge吧

guohq

算面积正负