xyy_82216 发表于 2006-6-14 15:18:00

矩形面域

<P>vba里怎么画矩形啊？用什么命令啊？</P>
<P>还有：比如画出两个矩形reobj 和reobj1&nbsp; ，然后生成面域re1和re2，这两个面域怎么不能做交集并集的操作啊？&nbsp; 请高手帮我解决一下这两个问题~在此谢谢了！！</P>

yuangw1234 发表于 2006-6-15 08:19:00

<P>用sendcommand命令画矩形</P>
<P>要做面域，必须将reobj及reobj1定义成数组, 改成</P>
<P>dim reobj(0) as variant&nbsp;,reobj1(0) as variant</P>
<P>re1=thisdrawing.modelspace.addregion(reobj)</P>
<P>re2=thisdrawing.modelspace.addregion(reobj1)</P>
<P>交集方法如下：</P>
<P>re1(0).boolean asintersection re2(0)</P>

xinghesnak 发表于 2006-6-15 09:26:00

画矩形方法很多，用创建PLINE的方法（AddLightWeightPolyline 或者Add3DPoly）也可以达到目的。。。。。当然sendcommand也可以。。。。。
页: [1]
查看完整版本: 矩形面域