自定义类型"/>
中望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
更多推荐
中望CAD VBA 自定义类型
发布评论