查看单个帖子
旧 2009-04-28, 11:32 AM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】关于vb做cad二次开发的几个问题,想请教达人。

关于vb做cad二次开发的几个问题,想请教达人。
www.dimcax.com
关于vb做cad二次开发的几个问题,想请教达人。
这是我用vb连接cad的一段代码
private sub command1_click()
dim acaddoc as acaddocument
dim acadapp as acadapplication
on error resume next
set acadapp = getobject(, "autocad.application")
if err then
err.clear
set acadapp = createobject("autocad.application")
if err then
msgbox err.description
exit sub
end if
end if
set acaddoc = acadapp.activedocument
acadapp.visible = true
end sub
我电脑中安装了cad2002与cad2009,所以程序中没有对cad版本号作指定。我想连接到cad2002,类型库用引用了cad2002的三个库,运行正常,可以连接到cad2002。在这里请教达人,有没有更好的连接方法,比如:可以任意移植到其他计算机上,计算机安装什么cad版本及连接什么版本的cad,不用修改代码,及所谓的万能连接?
还有,我想用vb打开一个指定路径的*.dwg文件,是不是用open,请达人给段代码看看。

这个问题我也想知道!

肯定是你的程序编写有错!

y应该是有问题的

看原文,
我觉得不应该有问题。
技术员
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)