autocad vba 两个面域不能相减！！！

LeoZhangShang

各位高手： 在下有一段两个面域进行相减的代码，但执行完后，并没有进行bool运算，不知何因，请赐教，万分感谢！ bool运算的代码如下：
Dim circleR2 As Object
  d0 K) W( f+ QDim regionHob As Object, regionDa As Object
9 g" ^# _, Q3 Y4 h) m% aSet circleRa2 = acadDoc.modelspace.addcircle(centerpoint, ra2)
, S6 B( \! l/ k6 o5 HSet da_profile(0) = circleRa2regionDa = acadDoc.modelspace.addRegion(da_profile) 'no set
1 e, r$ X1 l/ a/ hSet hob_profile(0) = plregionHob = acadDoc.modelspace.addRegion(hob_profile)
regionDa.Boolean acSubtraction, regionHob

) }- [; L$ \% N另，附有生成的dwg文件。
region.zip (31.47 KB, 下载次数: 4)

2013-5-31 14:51 上传

点击文件名下载附件

woaishuijia

你确定你贴上来的是VBA代码?
下面是根据你现有的图进行差集的VBA代码

1. Dim R1 As AcadRegion, R2 As AcadRegion
   , j* c8 _; a" l4 J; |; E: T0 \
2. Set R1 = ThisDrawing.ModelSpace.Item(1)
   ) }1 f# b+ B# d. R
3. Set R2 = ThisDrawing.ModelSpace.Item(3)
   
4. R1.Boolean acSubtraction, R2

复制代码

LeoZhangShang

woaishuijia 发表于 2013-6-4 01:54 static/image/common/back.gif
8 j5 s4 b. H8 z; }( f# T' a( _你确定你贴上来的是VBA代码?
4 A3 L  T: Z7 B1 d下面是根据你现有的图进行差集的VBA代码

! d2 d) ]  b8 c; {4 u" P# [$ J我是用VB6编写的，直接调用autocad，生成图形。
不是用vb.net ，版主用的是.net吧？

woaishuijia

不是,VB6和基于VB6的VBA

LeoZhangShang

woaishuijia 发表于 2013-6-5 17:10 static/image/common/back.gif
* f3 q& N" f* e7 a4 V0 h不是,VB6和基于VB6的VBA

$ W  _, p0 ^/ I  ~' ~/ I  O6 U那我可能用的是低版本的autocad，不过还是多谢了，
后来解决了，生成面域的时候必须的用数组才行。