[VBA程序]：怎么样通过程序自动完成剪裁外部参照？

god

我用vba在acad中插入了一个外部参照，并建立一个多段线闭合框，想用vba剪裁外部参照，只保留框中的图形。但是acad帮助中有这么一段话：
ActiveX Automation 没有提供剪裁块和外部参照边界的方法。可以使用 AutoCAD 中的 XCLIP 命令，或者使用 SendCommand 方法向 AutoCAD 发送 XCLIP 命令。

这样是不是必须手工操作来剪裁外部参照？怎么样通过程序自动完成剪裁外部参照？

雪山飞狐(lzh)

用"(handent " & Chr(34) & obj.Handle & Chr(34) & ")"的形式提供欲剪裁的块或外部参照

Public Sub Test()
Dim obj As Object, pnt
ThisDrawing.Utility.GetEntity obj, pnt
ThisDrawing.SendCommand _
                        "xclip" & vbCr & _
                        "(handent " & Chr(34) & obj.Handle & Chr(34) & ")" & _
                        vbCr & vbCr & vbCr & vbCr & _
                        "0,0" & vbCr & _
                        "500,500" & vbCr
                        

End Sub

god

高手就是高手啊！没有热心的高手，世界的发展就慢了许多啊。

看来这个问题的关键在于handent

谢谢