hope_full 发表于 2008-10-17 14:16:00

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

<p>&nbsp; 打开现有图形，如何对这个图形进行编辑<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.Application.Documents.Open ("C:\Documents and Settings\Administrator\桌面\2.dwg ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;？？？？？？？？？？<br/>&nbsp;&nbsp;&nbsp; Dim copycircleobj As AcadCircle<br/>&nbsp;&nbsp;&nbsp; Set copycircleobj = circleobj.Copy()<br/>&nbsp;&nbsp;&nbsp; Dim point1(0 To 2) As Double<br/>&nbsp;&nbsp;&nbsp; Dim point2(0 To 2) As Double<br/>&nbsp;&nbsp;&nbsp; point1(0) = 0: point1(1) = 0: point1(2) = 0<br/>&nbsp;&nbsp;&nbsp; point2(0) = 2: point2(1) = 0: point2(2) = 0<br/>&nbsp;&nbsp;&nbsp; copycircleobj.Move point1, point2<br/>&nbsp;&nbsp;&nbsp; ZoomAll</p><p>谢谢高手</p>
页: [1]
查看完整版本: [求助]如何对当前图形编辑例如复制和平移