vb.net(C#)调用CAD并画图

最新推荐文章于 2025-03-20 11:48:07 发布

原创最新推荐文章于 2025-03-20 11:48:07 发布 · 2.1k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#.net #c# #microsoft

vb.net开发专栏收录该内容

8 篇文章

订阅专栏

这篇博客展示了如何在Visual Basic for Applications (VBA)环境中利用AutoCAD的API来绘制图形。代码中定义了一个`Button1_Click`事件处理函数，当点击按钮时，会创建一个新的AutoCAD应用程序实例并使其可见。然后通过`DL`子程序调用AutoCAD的`AddLine`方法在外框上绘制线条，包括左竖线、右竖线、下线和上线。如果在绘图过程中出现错误，程序会捕获异常并重新尝试绘制线条。

首先要引用dll:

Imports AutoCAD

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

a = New AutoCAD.AcadApplication
a.Visible = True
'------------------------------------------外框
DL(New Double() {x0, y0 + jk, 0}, New Double() {x0, y0 + wh - jk, 0}) '左竖
DL(New Double() {x0 + ww, y0 + jk, 0}, New Double() {x0 + ww, y0 + wh - jk, 0}) '右竖
DL(New Double() {x0 + jk, y0, 0}, New Double() {x0 + jk + ww - jk * 2, y0, 0}) '下线
DL(New Double() {x0 + jk, y0 + wh, 0}, New Double() {x0 + jk + ww - jk * 2, y0 + wh, 0}) '上线

......

end sub

Sub DL(ByVal sp() As Double, ByVal ep() As Double)
Try
a.ActiveDocument.ModelSpace.AddLine(sp, ep)
Catch
MsgBox("line")
DL(sp, ep)
End Try
End Sub