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

maoyangmy

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

woaishuijia

VBA操作多文档示例：
0 k: s3 e/ F  w1 y% L新建一个空白文档，保存为"C:\1.dwg"，再新建一个空白文档，运行下面VBA例程
5 a- z+ P& l1 d  k5 c- [  C''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub A()
5 r7 Q+ q. ]2 T2 E& n7 ]    Dim P1(2) As Double, P2(2) As Double, D1 As AcadDocument, D2 As AcadDocument, D3 As AcadDocument
' g* Z* c8 r( b8 Z4 |    P2(0) = 100: P2(1) = 200
    With ThisDrawing
, t/ l; n+ g* Y) a        Set D1 = .Application.ActiveDocument '当前活动文档为D1
  k6 t: \4 O% X7 J) H! I        Set D2 = .Application.Documents.Open("C:\1.dwg") '打开一个已有文档为D2
+ |, ^0 D6 E2 T4 p        Set D3 = .Application.Documents.Add '新建一个文档为D3
        .ModelSpace.AddLine P1, P2 '最新打开或建立的文档为活动文档，现在在活动文档即新建的D3的模型空间画线
. R& R( i" i! }9 O2 w! {3 Y        D2.Activate '将打开的"C:\1.dwg"设为活动文档
) [+ f2 P- {: d3 t& t$ d: D6 O        .ModelSpace.AddCircle P2, 100 '在活动文档即D2的模型空间画大圆
9 v. S' Z% I0 J1 B$ D7 C2 B) _        D1.ModelSpace.AddCircle P1, 50 '在D1（运行宏时即已存在的，现在已不是活动文档）的模型空间画小圆
5 c2 @( C, J* j, ]    End With
End Sub
  ^6 q, D6 J. B'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
运行例程后，分别查看三个文档上由程序新画的图元，对照程序的注释，即可理解VBA多文档操作的基本方法。

maoyangmy

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