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

急呀！怎么没人理我！

哪位大哥告诉我用vb打开已经画好的cad的代码是什么？
一辈子感谢了！！！！！！！！！！！！！！！！

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

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

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

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