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

AutoCAd和VB。网

我有一个应用程序,需要在按钮单击事件中创建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=无符号子
请帮帮我
页: [1]
查看完整版本: AutoCAd和VB。网