'使用点数组创建轻量多段线 ，其中pt（）有偶数个元素，每两个代表一个点（x，y）坐标。轻量多段线不需要z坐标Public Function AddLWPline(ByRef pt() As Double, ByVal width As Double) As AcadLWPolyline
Dim objPline As AcadLWPolyline
'错误处理
If (UBound(pt) + 1) Mod 20 Then
MsgBox "数组元素个数必须为偶数！"
Exit Function
End If
Set objPline...
