AutoCAd和VB。网

rahulp · 发表于 2022-7-6 14:39:01

我有一个应用程序，需要在按钮单击事件中创建autoCAD绘图。
我做了一些搜索，发现我们可以使用
导入Autodesk。AutoCAD。互操作
导入Autodesk。AutoCAD。互操作。常见的

但我无法找到如何创建新图形的确切示例。
我有一篇很好的文章，其中给出了VB6中的全部代码，我可以将其转换为vb吗。net，如果是这样，怎么办？
以下是vb6代码
Sub Main（）
将xAP设置为Excel。应用
将xWB设置为Excel。工作簿
将xWS设置为Excel。工作表
设置xAP=Excel。应用
设置xWB=xAP。工作簿。打开（“C:\A2K2\u VBA\IUnknown.xls”）
设置xWS=xWB。工作表（“表1”）
MsgBox“Excel显示：”&单元格（1，1）&“”“”

Dim A2K作为应用程序
Dim A2Kdwg作为AcadDocument
设置A2K=CreateObject（“AutoCAD.Application”）
设置A2Kdwg=A2K。应用文件。添加
MsgBox A2K。名称和“版本”以及A2K。版本（&V）_
“正在运行。”

双精度高度
Dim P（0到2）为双精度
将TxtObj设置为AcadText
Dim TxtStr作为字符串
高度=1
P（0）=1:P（1）=1:P（2）=0
TxtStr=单元格（1，1）
设置TxtObj=A2Kdwg。模型空间。添加文本（TxtStr_
P、高度）

A2Kdwg。另存为“C:\A2K2\u VBA\i未知.dwg”
A2K。文件。关
A2K。退出
设置A2K=无

xAP。工作簿。关
xAP。退出
设置xAP=无符号子
请帮帮我

[编程交流] AutoCAd和VB。网

发表回复

精选推荐