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