Issue with IBoolSection
Posted: Thu Jul 27, 2017 1:33 pm
Hi again,
Sorry - questions come all the time, which means I take this seriously )
I am trying to make a hollow cylinder by using a Bool.Subtract of 2 cylinders: one large external (iSection), one smaller internal (iSection2), as shown below. iSection2 exceeds at each end of iSection, but has smaller diameter.
Here is the code:
When I do the Subtract operation, I get an Access Violation, as shown below. What am I doing wrong ?
Claude
Sorry - questions come all the time, which means I take this seriously )
I am trying to make a hollow cylinder by using a Bool.Subtract of 2 cylinders: one large external (iSection), one smaller internal (iSection2), as shown below. iSection2 exceeds at each end of iSection, but has smaller diameter.
Here is the code:
Code: Select all
' Create the Outer Cylinder/Cone
'
iSection = iStdShape.Cylinder(RayToe, RayHeel, RLong)
' Create the Inner Cylinder
'
ISection2 = iStdShape.Cylinder(RayIntHub, RayIntHub, RLong * 2)
' Move inner cylinder to exceed Outer cylinder at each end
'
Dim i3DObj2 As I3DObject = DirectCast(iSection2, I3DObject)
i3DObj2.Translate(0, 0, -RLong / 2#)
' Remove Inner Cylinder
'
iBoolSection = iSection
iBoolSection.Subtract(iSection2)
Claude