中望CAD VBA 自定义类型

自定义类型"/>

中望CAD VBA 自定义类型

ZWCAD VBA 自定义类型
模块1

*Public Type MyPointstartPt As ZwcadPointendPt As ZwcadPoint*End Type

模块2

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

Sub test()

Dim startPt As New ZwcadPointDim endPt As New ZwcadPointDim pt(2) As MyPointDim lineObj As ZwcadLinestartPt.x = 0startPt.y = 0startPt.z = 0endPt.x = 100endPt.y = 100endPt.z = 100Set pt(0).startPt = startPtSet pt(0).endPt = endPtSet lineObj = ThisDocument.ModelSpace.AddLine(pt(0).startPt, pt(0).endPt)lineObj.Color = zcGreenThisDocument.ActiveViewport.ZoomAll

End Sub