关于使用VBA调用AutoCAD的学习

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

swjtugsz

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

阅读量8.3k

点赞数 2

文章标签： Excel AutoCAD

本文链接：https://blog.csdn.net/swjtugsz/article/details/47903885

版权

本文介绍了如何通过VBA在Excel中调用AutoCAD，以便快速查看大量坐标点之间的相对位置关系。首先，创建并设置AutoCAD应用程序对象，然后在AutoCAD中绘制点。当计算机上安装了多个CAD版本时，可以使用ProgID来指定调用的具体版本。遇到AutoCAD2012与VBA兼容性问题，但作者选择不深入研究，主要关注于实现简单的点位展示功能。

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

如果有很多个坐标点，想简单的看一下彼此之间的相对位置关系，一个很简单的办法，就是展到AutoCAD中。在AutoCAD中逐点输入坐标数据肯定是不现实的，最简答的方法是在Excel中调用AutoCAD：

Global Sheet As Object, acadmtext As acadmtext, fontHight As Double
Global xlBook As Excel.Workbook
Global p0(2) As Double, p1(2) As Double, p2(2) As Double
Global acadApp As Object
Global acadDoc As Object
Global number As Integer, pt(2) As Double
Public Function GetAcad(dwt As String) As Boolean
Dim Face As String
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox "请安装AutoCAD 2000以上版本", vbCritical, "autocad"
Exit Function
On Error GoTo 0
GetAcad = False
Exit Function
End If
End If
Set acadDoc = acadApp.ActiveDocument
acadApp.Visible = True
GetAcad = True
acadDoc.ActiveTextStyle.GetFont Face, Bold, Italic, charSet, PitchandFamily
acadDoc.ActiveTextStyle.SetFont "宋体", Bold, Italic, charSet, PitchandFamily
0:
End Function
Public Function Draw_Point(Point() As Double) As AcadPoint
Set Draw_Point = acadDoc.ModelSpace.AddPoint(Point)
Draw_Point.Update
End Function