中望CAD VBA 自定义类型

ZWCAD VBA 自定义类型
模块1

*Public Type MyPoint
        startPt As ZwcadPoint
     
        endPt As ZwcadPoint*
    
End Type

模块2

我自定了一个数组，只给第一个值传数据，并绘直线

Sub test()

Dim startPt As New ZwcadPoint

Dim endPt As New ZwcadPoint

Dim pt(2) As MyPoint

Dim lineObj As ZwcadLine
 
startPt.x = 0

startPt.y = 0

startPt.z = 0

endPt.x = 100

endPt.y = 100

endPt.z = 100

Set pt(0).startPt = startPt

Set pt(0).endPt = endPt

Set lineObj = ThisDocument.ModelSpace.AddLine(pt(0).startPt, pt(0).endPt)

lineObj.Color = zcGreen
     
ThisDocument.ActiveViewport.ZoomAll

End Sub