09-15-2021
10:16 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-15-2021
10:16 AM
Just another example showing another possible process for doing something like this by iLogic.
Dim oPDoc As PartDocument = ThisApplication.ActiveDocument
Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition
Dim oHFeats As HoleFeatures = oPDef.Features.HoleFeatures
Dim oHole As HoleFeature = oHFeats.Item(1)
If oHole.IsClearanceHole Then
Dim oStd As String = "ISO"
Dim oType As String = "Hex Head Cap Screw ISO 24017"
Dim oSize As String = "M10"
Dim oFit As FastenerFitType = FastenerFitType.kNormalFitType
Dim oNewClearanceInfo As HoleClearanceInfo = oHFeats.CreateClearanceInfo(oStd, oType, oSize, oFit)
oHole.ClearanceInfo = oNewClearanceInfo
End If
Wesley Crihfield
(Not an Autodesk Employee)