怎样使用ActiveX在一个图纸空间加载一个VLX程序？

[复制链接]

gare1000

15 主题	32 帖子	4 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 92

发消息

发表于 2004-6-4 16:51:00 | 显示全部楼层 |阅读模式

使用下面的代码建立了一个图纸空间后，怎样加载一个例如文件名是 d:/drawing.vlx 的程序。 Private AcadApp1Mdl As Object
   Private AcadDoc1Mdl As Object
   Private MoSpace1Mdl As Object
   Private PaSpace1Mdl As Object
   Private Sub OpenDrawModel()
   Dim ProcID As Integer
   ProcID = Shell("C:\Program Files\ 2002\acad.exe e:/cad工程/qty25/图符/qty25模板.dwg ", AppWinStyle.NormalFocus)
   AcadApp1Mdl = GetObject(, "AutoCAD.Application")
   If Err.Number  0 Then
   Err.Clear()
   AcadApp1Mdl = CreateObject("AutoCAD.Application")
   If Err.Number  0 Then
   MsgBox(Err.Description)
   Exit Sub
   End If
   End If
   AcadApp1Mdl.Visible = True
   AcadDoc1Mdl = AcadApp1Mdl.ActiveDocument
   MoSpace1Mdl = AcadDoc1Mdl.ModelSpace
   PaSpace1Mdl = AcadDoc1Mdl.PaperSpace
   End Sub

使用道具举报