VBA中的，Offset的问题

wjfling

我在ACD中用Rectangle和pline分加画一个矩形，用VBA中的obj.offset(-10)后，为什么是这样的效果(如图所示)，请高手指点。

mccad

偏移后判断偏移前后的面积，如果面积小则向内偏移了。
因为多段线为顺时针和逆时针之分，所以有时会向内偏移有时会向外偏移。

wjfling

如何判断，多线段的顺逆时针之分？

yuangw1234

下面程序你应该满意的，不满意请回復

Public Sub od()
On Error Resume Next
Dim i As Integer, ssetobj As AcadSelectionSet, I1 As Integer, selobj As AcadEntity
Dim str As String, shu As Double, I2 As Integer, Offsetobj As Variant
i = ThisDrawing.SelectionSets.Count
While (i > 0)
    If ThisDrawing.SelectionSets.Item(i - 1).Name = "od" Then
        ThisDrawing.SelectionSets.Item(i - 1).Delete
    End If
    i = i - 1
Wend
str = ThisDrawing.Utility.GetString(False, "Please input number you want to offset :")
str1 = Val(str)
Set ssetobj = ThisDrawing.SelectionSets.Add("od")
ssetobj.SelectOnScreen
For I1 = 0 To ssetobj.Count - 1
    Set selobj = ssetobj.Item(I1)
    Offsetobj = selobj.Offset(str1)
    I2 = UBound(Offsetobj)
    If Offsetobj(I2).Area < selobj.Area Then
        Offsetobj(I2).Delete
        Offsetobj = selobj.Offset(-str1)
    End If
Next
End Sub

yuangw1234

对了错了也不回復，这种人以后不帮算了

crazylsp

楼主你的图中偏移后的线的颜色是怎样修改的啊？

zhangxin0298

用color属性修改

bluelover

2楼老大回复的是对的。
最简单的判断方法是分别取正参数和负参数，然后比较面积，看保留哪个。

还有一个办法就是利用格林公式判断顶点是逆时针还是顺时针排序。
offset的参数为正数时，逆时针是外偏，顺时针是内偏；参数为负数则相反。