slsldu 发表于 2005-8-22 10:16:00

[求助]如何将全部的实体平移

Sub MyMove()
ThisDrawing.SendCommand "move" & Chr(13) & "All" & Chr(13) & "" & Chr(13) & "0,0,0" & Chr(13) & "10,0,0" & Chr(13)
End Sub
还是Lisp的方法简单.
页: [1]
查看完整版本: [求助]如何将全部的实体平移