在CAD中如何用VLISP和VBA实现多文档操作???

maoyangmy

在CAD中如何用VLISP和VBA实现多文档操作???

woaishuijia

VBA操作多文档示例：
新建一个空白文档，保存为"C:\1.dwg"，再新建一个空白文档，运行下面VBA例程
' b/ U# H2 {& k* k/ T; x''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub A()
    Dim P1(2) As Double, P2(2) As Double, D1 As AcadDocument, D2 As AcadDocument, D3 As AcadDocument
% r2 A% B8 d" C! U! Y    P2(0) = 100: P2(1) = 200
    With ThisDrawing
        Set D1 = .Application.ActiveDocument '当前活动文档为D1
* k/ ^4 w2 \0 z! n  B1 H        Set D2 = .Application.Documents.Open("C:\1.dwg") '打开一个已有文档为D2
        Set D3 = .Application.Documents.Add '新建一个文档为D3
        .ModelSpace.AddLine P1, P2 '最新打开或建立的文档为活动文档，现在在活动文档即新建的D3的模型空间画线
2 h, c, @  t. T7 y5 ^* b        D2.Activate '将打开的"C:\1.dwg"设为活动文档
        .ModelSpace.AddCircle P2, 100 '在活动文档即D2的模型空间画大圆
        D1.ModelSpace.AddCircle P1, 50 '在D1（运行宏时即已存在的，现在已不是活动文档）的模型空间画小圆
" C! ~, h0 G7 U% M4 @7 `! F    End With
End Sub
+ G1 D- V0 F5 ]3 Z'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
运行例程后，分别查看三个文档上由程序新画的图元，对照程序的注释，即可理解VBA多文档操作的基本方法。

maoyangmy

请教2楼, 用LSP程序能不能实现?VBA我不熟??