[求助]如何对当前图形编辑例如复制和平移

hope_full

  打开现有图形，如何对这个图形进行编辑
    ThisDrawing.Application.Documents.Open ("C:\Documents and Settings\Administrator\桌面\2.dwg ")
    ？？？？？？？？？？
    Dim copycircleobj As AcadCircle
    Set copycircleobj = circleobj.Copy()
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    point1(0) = 0: point1(1) = 0: point1(2) = 0
    point2(0) = 2: point2(1) = 0: point2(2) = 0
    copycircleobj.Move point1, point2
    ZoomAll

谢谢高手