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

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

我用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

看来两个论坛有很多是同一个人，名字都一样，
页: [1]
查看完整版本: 怎么样通过vba程序自动完成剪裁外部参照？