怎么样通过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

看来两个论坛有很多是同一个人，名字都一样，