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

gare1000

使用下面的代码建立了一个图纸空间后，怎样加载一个例如文件名是 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\AutoCAD 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

meflying

似乎应该在VBA版块问吧，这也是我以前想问的一个问题，我曾想过用document对象的sendcommand方法，在输入命令(load "d:/drawing.vlx")，可这个命令中的"d:/drawing.vlx"部分的两个引号无法传递过去，我发现传到命令行的是


(load d:/drawing.vlx)，结果就出错了，不知道这里的字符串操作有什么好的办法？

gare1000

其实我在VBA的板块里发过，可我觉得这面人气旺些，就又在这里也发了一条。明天去按斑竹的方法试试。谢谢！

wmz

ThisDrawing.SendCommand "(" &amp; "LOAD" &amp; Chr(34) &amp; "d:/drawing.vlx" &amp; Chr(34) &amp; ")" &amp; vbCr

meflying

哈哈，果然可以。。。

无痕

vlx，fas，lsp一样的加载嘛


只是lsp不用写后缀