CAD-VBA标注对象创建

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

yinshencaoysc

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

阅读量751

点赞数 1

分类专栏： CAD-VBA 文章标签：开发语言

本文链接：https://blog.csdn.net/yinshencaoysc/article/details/128269624

版权

本文介绍如何利用CAD的VBA编程接口来创建标注对象，详细讲解了相关代码实现步骤，帮助开发者掌握在CAD环境中进行自动化标注的方法。

摘要由CSDN通过智能技术生成

Dim dingdian(2) As Double
Dim diyidian(2) As Double
Dim dierdian(2) As Double
'3点式角度标注
Private Sub CommandButton1_Click()
dingdian(0) = 10
dingdian(1) = 10
dingdian(2) = 0

diyidian(0) = 20
diyidian(1) = 10
diyidian(2) = 0

dierdian(0) = 20
dierdian(1) = 20
dierdian(2) = 0

Dim sandianjiaodubiaozhu As AcadDim3PointAngular
Set sandianjiaodubiaozhu = ThisDrawing.ModelSpace.AddDim3PointAngular(dingdian, diyidian, dierdian, dierdian)
ZoomAll
End Sub

'对齐标注
Private Sub CommandButton2_Click()
dingdian(0) = -10
dingdian(1) = 10
dingdian(2) = 0

diyidian(0) = 20
diyidian(1) = 10
diyidian(2) = 0

dierdian(0) = 10
dierdian(1) = 20
dierdian(2) = 0
Dim duiqibiaozhu As AcadDimAligned
Set duiqibiaozhu = ThisDrawing.ModelSpace.AddDimAligned(diyidian, dierdian, dingdian)
ZoomAll
End Sub