[求助]谁可以帮我把如下VBA代码转成VB代码

ngeqt521 · 发表于 2006-12-7 21:40:00

结贴,此贴在乐筑天下坛友的帮助下已完成代码转换,
THANKS!

kaixinmao · 发表于 2006-12-20 09:41:00

怎么转化？
你需要在ＶＢ中加载Autocad ＶＢＡ控件。
在autocad外部进行图形处理需要有对文档操作。
比如打开ACAD文件、打开处理后关闭。
假设你有程序打开了这个ACAD文件，定义DOCUMENT对象。
你需要在VB中重新定义窗体，以使其与VBA源文件代码一致。
这个程序其他就很简单了，把"ThisDrawing"改成你定义的那个ACAD 的DOCUMENT对象。
这个程序就移植的差不多了。
不过这个程序用ＶＢ的话还应该至少增加些容错能力的说。否则，出错几次可能就要重新启动了。

兰州人 · 发表于 2006-12-23 10:45:00

UserForm16.Hide 在VB中可以不用,采用透明窗口效果更好.
ThisDrawing.ModelSpace必须改
通用的VB起动Autocad程序
Public Sub AutoCADConnect()       '连接AutoCAD
On Error Resume Next
Set obj_Acad = GetObject(, "autocad.application")
If Err Then
Err.Clear
On Error Resume Next
Set obj_Acad = CreateObject("autocad.application")
If Err Then
   Err.Clear
   MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKCancel, "警告！"
   Exit Sub
   End If
End If
obj_Acad.Visible = True
Set obj_Doc = obj_Acad.ActiveDocument
Set obj_ModelSpace = obj_Doc.ModelSpace
MsgBox "运行结束！", vbOKOnly, "工程1！"
boo = True
End Sub
因此,
ThisDrawing.ModelSpace改为obj_obj_ModelSpace.