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

LeoZhangShang

各位高手： 在下有一段两个面域进行相减的代码，但执行完后，并没有进行bool运算，不知何因，请赐教，万分感谢！ bool运算的代码如下：
/ w8 u0 b# Z2 S3 ?' v! ?( @: oDim circleR2 As Object
Dim regionHob As Object, regionDa As Object
' s4 Y* x1 N5 b* I" @0 n3 j% m: O# PSet circleRa2 = acadDoc.modelspace.addcircle(centerpoint, ra2)
Set da_profile(0) = circleRa2regionDa = acadDoc.modelspace.addRegion(da_profile) 'no set
Set hob_profile(0) = plregionHob = acadDoc.modelspace.addRegion(hob_profile)
: D" L4 c7 m" TregionDa.Boolean acSubtraction, regionHob

另，附有生成的dwg文件。
region.zip (31.47 KB, 下载次数: 4)

2013-5-31 14:51 上传

点击文件名下载附件
) f$ R& P* G* l- |' @( @

woaishuijia

你确定你贴上来的是VBA代码?
7 v, ?1 d" y) w, _- }" F; Y$ m下面是根据你现有的图进行差集的VBA代码

1. Dim R1 As AcadRegion, R2 As AcadRegion
   7 i5 I2 A+ ]. w0 M2 ]
2. Set R1 = ThisDrawing.ModelSpace.Item(1)
   
3. Set R2 = ThisDrawing.ModelSpace.Item(3)
   + U5 Z+ I% w3 b1 g$ `
4. R1.Boolean acSubtraction, R2

复制代码

LeoZhangShang

woaishuijia 发表于 2013-6-4 01:54 static/image/common/back.gif
你确定你贴上来的是VBA代码?
7 `' A. y4 f9 g  k下面是根据你现有的图进行差集的VBA代码

我是用VB6编写的，直接调用autocad，生成图形。
8 O+ r! }8 ?3 A( _' H- @不是用vb.net ，版主用的是.net吧？

woaishuijia

不是,VB6和基于VB6的VBA

LeoZhangShang

woaishuijia 发表于 2013-6-5 17:10 static/image/common/back.gif
1 Q. Z1 Q* K* ?不是,VB6和基于VB6的VBA

3 g* A0 f$ r: c9 {那我可能用的是低版本的autocad，不过还是多谢了，
, i% b. G/ c; {5 ?* |后来解决了，生成面域的时候必须的用数组才行。
4 L7 `! c6 w( P$ Z4 Q7 b