VBA COPY命令怎么用？

jjww123

高手能帮我举个例子么？
0 f. c8 @2 r: W/ S0 W
想画三视图要用到这个命令啊。。。
" k+ q, H& Y( g7 x) B
* ?9 r. ^2 u7 C: ~, o  M  I# D不知道三视图怎么画。。我已经把原图画出来了。。各个部件都有它的名称！COPY是copy一个图各个部分的名称到另外的坐标吧？具体怎么弄？全部COPY完了以后怎么换坐标？

woaishuijia

不是，VBA 的 COPY 与图形界面的“复制”命令不同，VBA 的 COPY 是原位复制。
, i5 l6 }+ Y, d# P4 i- k# M[code]
5 |+ j) I! X' x3 O) rDim C1 As AcadCircle, C2 As AcadCircle, P(2) As Double
Set C1 = ThisDrawing.ModelSpace.AddCircle(P, 10)
" C' R& }* u- w0 _6 B, m: qSet C2 = C1.Copy
+ g( R  b4 s. v" \" W8 |: X[/code]
0 H. [% _& }! S/ `* J6 \第一行中声明两个圆变量和一个点；第二行是在模型空间画一个圆并赋值给C1；第三处是复制C1并赋值给C2。运行结果是在同一个位置出现两个同样的圆（分别是C1、C2）。