怎么样通过vba程序自动完成剪裁外部参照？

god · 发表于 2004-7-20 11:46:00

我用vba在acad中插入了一个外部参照，并建立一个多段线闭合框，想用vba剪裁外部参照，只保留框中的图形。但是acad帮助中有这么一段话：
ActiveX Automation 没有提供剪裁块和外部参照边界的方法。可以使用中的 XCLIP 命令，或者使用 SendCommand 方法向 AutoCAD 发送 XCLIP 命令。
这样是不是必须手工操作来剪裁外部参照？怎么样通过程序自动完成剪裁外部参照？

雪山飞狐_lzh · 发表于 2004-7-20 12:26:00

用"(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 · 发表于 2004-7-20 15:54:00

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

怎么样通过vba程序自动完成剪裁外部参照？

发表回复

精选推荐

浏览过的版块