Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
WCrihfield
in reply to: johnster100

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

EESignature

(Not an Autodesk Employee)