急呀！怎么没人理我！

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

谢谢大哥了！终身难忘！！

急呀！怎么没人理我！

发表回复

精选推荐