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

LeoZhangShang

各位高手： 在下有一段两个面域进行相减的代码，但执行完后，并没有进行bool运算，不知何因，请赐教，万分感谢！ bool运算的代码如下：
: N9 Z( `/ C$ v8 vDim circleR2 As Object
8 r8 V3 N" q- s+ C) RDim regionHob As Object, regionDa As Object
. J' {+ d; u# l* }3 B6 ^4 B+ q+ ASet circleRa2 = acadDoc.modelspace.addcircle(centerpoint, ra2)
; Z9 Y) M" P1 }- C% KSet da_profile(0) = circleRa2regionDa = acadDoc.modelspace.addRegion(da_profile) 'no set
Set hob_profile(0) = plregionHob = acadDoc.modelspace.addRegion(hob_profile)
; A# W% |/ Z- Y8 c1 `regionDa.Boolean acSubtraction, regionHob
: p3 g. R7 D& I9 z4 I1 ?8 \* c
' I% |' M3 T1 a2 o+ w另，附有生成的dwg文件。
: \8 i% m# C+ c) V0 h region.zip (31.47 KB, 下载次数: 4)

2013-5-31 14:51 上传

点击文件名下载附件

woaishuijia

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

1. Dim R1 As AcadRegion, R2 As AcadRegion
   : \7 L; W. g- [4 ]1 }  s  o7 u% u
2. Set R1 = ThisDrawing.ModelSpace.Item(1)
   
3. Set R2 = ThisDrawing.ModelSpace.Item(3)
   7 L8 J0 E# d- K! I  ^
4. R1.Boolean acSubtraction, R2

复制代码

LeoZhangShang

woaishuijia 发表于 2013-6-4 01:54 static/image/common/back.gif
' Q% R4 X  s1 b1 D$ _9 y7 [5 G! C你确定你贴上来的是VBA代码?
下面是根据你现有的图进行差集的VBA代码

我是用VB6编写的，直接调用autocad，生成图形。
; u# S: W2 C; w$ ~# i6 X  v不是用vb.net ，版主用的是.net吧？

woaishuijia

不是,VB6和基于VB6的VBA

LeoZhangShang

woaishuijia 发表于 2013-6-5 17:10 static/image/common/back.gif
/ o0 A$ J$ r/ I& ?& b不是,VB6和基于VB6的VBA

: c" W1 m- w( n! Q% ?, c那我可能用的是低版本的autocad，不过还是多谢了，
后来解决了，生成面域的时候必须的用数组才行。
# \$ V$ x' W4 \: Q* f& W