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

LeoZhangShang · 发表于 2013-5-31 14:51:28

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

各位高手：在下有一段两个面域进行相减的代码，但执行完后，并没有进行bool运算，不知何因，请赐教，万分感谢！ bool运算的代码如下：
Dim circleR2 As Object
Dim regionHob As Object, regionDa As Object
Set 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)
regionDa.Boolean acSubtraction, regionHob

另，附有生成的dwg文件。

region.zip (31.47 KB, 下载次数: 4)

woaishuijia · 发表于 2013-6-4 01:54:50

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

Dim R1 As AcadRegion, R2 As AcadRegion) V2 d# K1 k) `6 {& R# _
Set R1 = ThisDrawing.ModelSpace.Item(1)9 i: H8 f7 s7 x8 c8 \
Set R2 = ThisDrawing.ModelSpace.Item(3)
% x8 r& C$ ^! U0 L& R) j
R1.Boolean acSubtraction, R2

复制代码

LeoZhangShang · 发表于 2013-6-5 16:22:50

woaishuijia 发表于 2013-6-4 01:54 static/image/common/back.gif2 b, Y" \% i: z8 t6 W+ g. n7 A
你确定你贴上来的是VBA代码?
& K9 d! [& D ?9 O3 x! y下面是根据你现有的图进行差集的VBA代码

我是用VB6编写的，直接调用autocad，生成图形。
不是用vb.net ，版主用的是.net吧？

woaishuijia · 发表于 2013-6-5 17:10:36

不是,VB6和基于VB6的VBA

LeoZhangShang · 发表于 2013-6-7 09:04:32

woaishuijia 发表于 2013-6-5 17:10 static/image/common/back.gif$ W! y; f: Y* s7 A6 t( z, j/ L ^
不是,VB6和基于VB6的VBA

那我可能用的是低版本的autocad，不过还是多谢了，
后来解决了，生成面域的时候必须的用数组才行。

		自动登录	找回密码
密码			注册

通知

[已解决] autocad vba 两个面域不能相减！！！

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块