各位高手: 在下有一段两个面域进行相减的代码,但执行完后,并没有进行bool运算,不知何因,请赐教,万分感谢! bool运算的代码如下:
Dim circleR2 As ObjectDim 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文件。 |