中望CAD VBA 自定义类型

最新推荐文章于 2024-09-23 13:27:37 发布

weixin_39682351

最新推荐文章于 2024-09-23 13:27:37 发布

阅读量1.9k

点赞数

分类专栏：中望CAD VBA 自定义类型文章标签： VBA ZWCAD 自定义类型

本文链接：https://blog.csdn.net/weixin_39682351/article/details/96968772

版权

中望CAD VBA 自定义类型专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个ZWCAD环境下使用VB语言自定义类型的示例，展示了如何创建包含两个ZwcadPoint类型的MyPoint自定义类型，并通过一个子程序test演示了如何实例化该类型并绘制一条直线。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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