矩形面域

xyy_82216

vba里怎么画矩形啊？用什么命令啊？

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

yuangw1234

用sendcommand命令画矩形

要做面域，必须将reobj及reobj1定义成数组, 改成

dim reobj(0) as variant ,reobj1(0) as variant

re1=thisdrawing.modelspace.addregion(reobj)

re2=thisdrawing.modelspace.addregion(reobj1)

交集方法如下：

re1(0).boolean asintersection re2(0)

xinghesnak

画矩形方法很多，用创建PLINE的方法（AddLightWeightPolyline 或者Add3DPoly）也可以达到目的。。。。。当然sendcommand也可以。。。。。