meng08366 发表于 2005-6-17 17:05:00

急呀！怎么没人理我！

哪位大哥告诉我用vb打开已经画好的cad的代码是什么？


一辈子感谢了！！！！！！！！！！！！！！！！

yansike 发表于 2005-6-17 17:10:00

Dim preferences As AcadPreferences<BR>                                <BR>                       Set AcadApp = GetObject(, "AutoCAD.Application")<BR>                                                       Set AcadApp = CreateObject("AutoCAD.Application")<BR>                       AcadApp.Visible = True<BR>                       Set NewAcaddoc = AcadApp.Documents.Open(App.Path &amp; "\测绘图.DWG")

meng08366 发表于 2005-6-17 17:31:00

谢谢大哥了！终身难忘！！
页: [1]
查看完整版本: 急呀！怎么没人理我！