[求助]：怎么能象MOVE命令那样移动选择集或对象数组中的实体

tlc_as

怎么能象MOVE命令那样移动选择集或对象数组中的实体
主要是让用户在屏幕上选择第二点时，移动的实体能在屏幕上
跟随鼠标移动。

怎么没人回答了？
版主能帮帮忙吗？

雪山飞狐(lzh)

用SendCommand方法发送Move命令或者调用Vlax类实现，VBA没有提供对应的方法

tlc_as

用SendCommand方法发送Move命令我用过，但不能将选择集传递给它，怎么能将选择集或对象数组中的实体传递给MOVE命令？
Vlax没用过哪有它的帮助下载？
谢谢！

xunix

想了个方法，但不是很实用，有点复杂：
把要移动的实体做个临时的无名块；
用SENDCOMMEND的方法执行INSERT命令插入该无名块；
等插入完块后炸开该块并删除该无名块

tlc_as

没有加别的方法了吗

雪山飞狐(lzh)

2. Sub tt()
   
3. 
   
4. On Error Resume Next
   
5. Dim ss As AcadSelectionSet
   
6. ThisDrawing.SelectionSets("Test").Delete
   
7. Set ss = ThisDrawing.SelectionSets.Add("Test")
   
8. ss.Select acSelectionSetAll
   
9. 
   
10. sCmd = "_.Move" & vbCr
    
11. 
    
12. For Each i In ss
    
13.     sCmd = sCmd & "(handent """ & i.Handle & """)" & vbCr
    
14. Next i
    
15. 
    
16. sCmd = sCmd & vbCr
    
17. ThisDrawing.SendCommand sCmd
    
18. 
    
19. End Sub

Sub tt()<br /> <br /> On Error Resume Next<br /> Dim ss As AcadSelectionSet<br /> ThisDrawing.SelectionSets("Test").Delete<br /> Set ss = ThisDrawing.SelectionSets.Add("Test")<br /> ss.Select acSelectionSetAll<br /> <br /> sCmd = "_.Move" & vbCr<br /> <br /> For Each i In ss<br />     sCmd = sCmd & "(handent """ & i.Handle & """)" & vbCr<br /> Next i<br /> <br /> sCmd = sCmd & vbCr<br /> ThisDrawing.SendCommand sCmd<br /> <br /> End Sub

关于Vlax类的实现方法可以看看我以前的帖子

tlc_as

谢谢斑主！！