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

maoyangmy

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

woaishuijia

VBA操作多文档示例：
8 ~5 Y5 u+ \+ h! m9 u/ }- M6 G: p新建一个空白文档，保存为"C:\1.dwg"，再新建一个空白文档，运行下面VBA例程
# p* S* g' s" b''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub A()
    Dim P1(2) As Double, P2(2) As Double, D1 As AcadDocument, D2 As AcadDocument, D3 As AcadDocument
, D# [1 W! x; z4 L# Q    P2(0) = 100: P2(1) = 200
    With ThisDrawing
0 e7 G4 g  s) q        Set D1 = .Application.ActiveDocument '当前活动文档为D1
; j, }, c- m* a        Set D2 = .Application.Documents.Open("C:\1.dwg") '打开一个已有文档为D2
        Set D3 = .Application.Documents.Add '新建一个文档为D3
        .ModelSpace.AddLine P1, P2 '最新打开或建立的文档为活动文档，现在在活动文档即新建的D3的模型空间画线
        D2.Activate '将打开的"C:\1.dwg"设为活动文档
1 b% X- f/ C1 M0 m        .ModelSpace.AddCircle P2, 100 '在活动文档即D2的模型空间画大圆
        D1.ModelSpace.AddCircle P1, 50 '在D1（运行宏时即已存在的，现在已不是活动文档）的模型空间画小圆
, w% B4 y$ {3 l8 w. f4 T    End With
End Sub
+ f5 n+ {/ X9 K'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
运行例程后，分别查看三个文档上由程序新画的图元，对照程序的注释，即可理解VBA多文档操作的基本方法。

maoyangmy

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