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

LeoZhangShang

各位高手： 在下有一段两个面域进行相减的代码，但执行完后，并没有进行bool运算，不知何因，请赐教，万分感谢！ bool运算的代码如下：
Dim circleR2 As Object
0 A' o4 X* e7 p/ XDim regionHob As Object, regionDa As Object
7 a9 \+ M" e) l2 ^3 o1 }Set circleRa2 = acadDoc.modelspace.addcircle(centerpoint, ra2)
/ F! J, E3 T* Y  R+ V) GSet da_profile(0) = circleRa2regionDa = acadDoc.modelspace.addRegion(da_profile) 'no set
7 s! T1 i; ^2 oSet hob_profile(0) = plregionHob = acadDoc.modelspace.addRegion(hob_profile)
regionDa.Boolean acSubtraction, regionHob

; Y# L6 N. A# ]9 a. o另，附有生成的dwg文件。
& V: ]3 B/ m5 h0 K8 f5 Y8 n  t/ _ region.zip (31.47 KB, 下载次数: 3)

2013-5-31 14:51 上传

点击文件名下载附件
2 u/ \% T8 y; v, J' s- k

woaishuijia

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

1. Dim R1 As AcadRegion, R2 As AcadRegion
   
2. Set R1 = ThisDrawing.ModelSpace.Item(1)
   0 t) ?9 \7 Q8 v2 S9 a  O. F! R- S
3. Set R2 = ThisDrawing.ModelSpace.Item(3)
   
4. R1.Boolean acSubtraction, R2

复制代码

LeoZhangShang

woaishuijia 发表于 2013-6-4 01:54 static/image/common/back.gif
9 {; T7 _4 d7 ^5 X) E你确定你贴上来的是VBA代码?
  z! A/ L* p# w) j9 W! A% \下面是根据你现有的图进行差集的VBA代码

- F0 X5 ?, K* R5 i# E我是用VB6编写的，直接调用autocad，生成图形。
不是用vb.net ，版主用的是.net吧？

woaishuijia

不是,VB6和基于VB6的VBA

LeoZhangShang

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

6 e: u: J$ C, n3 e3 ]$ ~那我可能用的是低版本的autocad，不过还是多谢了，
4 n/ Y8 v$ U2 i; H后来解决了，生成面域的时候必须的用数组才行。
; X8 F/ x" F- _