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

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

<FONT id=text1 style="FONT-SIZE: 10pt" face="宋体,verdana, arial, helvetica">我用vba在acad中插入了一个外部参照，并建立一个多段线闭合框，想用vba剪裁外部参照，只保留框中的图形。但是acad帮助中有这么一段话：<BR>ActiveX Automation 没有提供剪裁块和外部参照边界的方法。可以使用 AutoCAD 中的 XCLIP 命令，或者使用 SendCommand 方法向 AutoCAD 发送 XCLIP 命令。 <BR><BR>这样是不是必须手工操作来剪裁外部参照？怎么样通过程序自动完成剪裁外部参照？</FONT> <BR><BR>

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

用"(handent " &amp; Chr(34)        &amp; obj.Handle &amp; Chr(34) &amp; ")"的形式提供欲<FONT size=2>剪裁的块或外部参照</FONT>


<FONT size=2>Public Sub Test()<BR>Dim obj As Object, pnt<BR>ThisDrawing.Utility.GetEntity obj, pnt<BR>ThisDrawing.SendCommand _<BR>                                                                                                                                                                                       "xclip" &amp; vbCr &amp; _<BR>                                                                                                                                                                                       "(handent " &amp; Chr(34) &amp; obj.Handle &amp; Chr(34) &amp; ")" &amp; _<BR>                                                                                                                                                                                       vbCr &amp; vbCr &amp; vbCr &amp; vbCr &amp; _<BR>                                                                                                                                                                                       "0,0" &amp; vbCr &amp; _<BR>                                                                                                                                                                                       "500,500" &amp; vbCr<BR>                                                                                                                                                                                       </FONT>


<FONT size=2>End Sub<BR></FONT>

god 发表于 2004-7-20 15:54:00

<FONT style="BACKGROUND-COLOR: #000000">看来两个论坛有很多是同一个人，名字都一样，</FONT>
页: [1]
查看完整版本: 怎么样通过vba程序自动完成剪裁外部参照？