boluo123 发表于 2006-12-11 16:58:00

高手帮我看下(关于移动的问题)，谢谢拉！

求助：<br/>
      如果在图形的坐标原点（0，0）存在一个文字“Hello”，怎样用Vba把“Hello”移动到点(100，10)的位置啊！<br/>
咐上手动选择对象的代码<br/>
    Dim p0 As Variant       '起点坐标<br/>
    Dim p1 As Variant       '终点坐标    <br/>
    Dim getobj As Object    '移动对象<br/>
    ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"                       '这是手动选择移动对象<br/>
    p0 = ThisDrawing.Utility.GetPoint(, "起点:")<br/>
    p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")  <br/>
    getobj.Move p0, p1    '移动一段<br/>
    getobj.Update         '更新对象<br/>
   <br/>
<br/>
<br/>
这是手动选择移动对象，怎样自动选择（0，0）点的对象进行移动啊？

wyj7485 发表于 2006-12-12 11:25:00

建立选择集就可以实现
页: [1]
查看完整版本: 高手帮我看下(关于移动的问题)，谢谢拉！