社区 › C# › 怎样使用ActiveX在一个图纸空间加载一个VLX程序？

gare1000 发表于 2004-6-4 16:51:00

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

http://bbs.mjtd.com/skins/default/topicface/face1.gif
       
使用下面的代码建立了一个图纸空间后，怎样加载一个例如文件名是 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.Number0 Then
                                                                                       Err.Clear()
                                                                                       AcadApp1Mdl = CreateObject("AutoCAD.Application")
                                                                                       If Err.Number0 Then
                                                                                                                       MsgBox(Err.Description)
                                                                                       Exit Sub
                                                                                       End If
                                                       End If
                                                       AcadApp1Mdl.Visible = True
                                                       AcadDoc1Mdl = AcadApp1Mdl.ActiveDocument
                                                       MoSpace1Mdl = AcadDoc1Mdl.ModelSpace
                                                       PaSpace1Mdl = AcadDoc1Mdl.PaperSpace
                       End Sub

查看完整版本: 怎样使用ActiveX在一个图纸空间加载一个VLX程序？