Message 1 of 3
Control Extrude direction through iLogic

Not applicable
11-06-2019
03:07 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi,
I'm trying the extrude direction as 'kNegativeExtentDirection' and 'kSymmetricExtentDirection but it's not working properly.
Does anyone have any hints?
Below is my code:
Sub main() Dim oDoc As PartDocument oDoc = ThisApplication.ActiveDocument Dim oDef As PartComponentDefinition oDef = oDoc.ComponentDefinition Dim oFace As Face oFace = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select the face.") Dim ThickenDirection As New ArrayList ThickenDirection.Add("Thicken Inward") ThickenDirection.Add("Thicken Outward") ThickenDirection.Add("Thicken both direction") Dim oFaceColl As FaceCollection oFaceColl = ThisApplication.TransientObjects.CreateFaceCollection oFaceColl.Add(oFace) Dim oThicken As ThickenFeature 'Dim oExtrude As ExtrudeFeature Direction = InputListBox("Thicken Direction", ThickenDirection, Direction, Title := "Thicken Direction", ListName := "Thicken Direction") If Direction = "Thicken Inward" Then oThicken = oDef.Features.ThickenFeatures.Add(oFaceColl, "0.10 in", kPositiveExtentDirection, kJoinOperation) 'oExtrude = oDef.Features.ExtrudeFeatures.AddByDistanceExtent( _ 'oFaceColl, "0.10 in", kPositiveExtentDirection, kJoinOperation) Else If Direction = "Thicken Outward" Then oThicken = oDef.Features.ThickenFeatures.Add(oFaceColl, "0.10 in", kNegativeExtentDirection , kJoinOperation) 'oExtrude = oDef.Features.ExtrudeFeatures.AddByDistanceExtent( _ 'oFaceColl, "0.10 in",kNegativeExtentDirection , kJoinOperation) Else If Direction = "Thicken both direction" Then oThicken = oDef.Features.ThickenFeatures.Add(oFaceColl, "0.100 in", PartFeatureExtentDirectionEnum.kSymmetricExtentDirection, kJoinOperation) 'oExtrude = oDef.Features.ExtrudeFeatures.AddByDistanceExtent( _ 'oFaceColl, "0.10 in",kSymmetricExtentDirection , kJoinOperation) End If End Sub