Cut Feature Depth in sheet metal

[jzarczynski]

Hello,

There is no property like Depth for CutFeature Object. 

In holes i colect the depth by:
Dim holeDepth As Double = hole.Depth

How to check the depth of Cutfeature ? Could you please present the approach?

My goal is to identify all blind holes in sheet metal, including the ones made by "cut" function,

[BM_Ashraf · Accepted solution]

Hi,

Hope this script helps you in moving forward!

	Dim oDoc As PartDocument = ThisDoc.Document
	
	Dim oCutFeature As CutFeature
	Try
		oCutFeature = ThisApplication.CommandManager.Pick(kPartFeatureFilter, "Please select The Cut feature")
	Catch 
		Exit Sub
	End Try
	If oCutFeature.Definition.ExtentType = kDistanceExtent Then
	
	  Dim oExtent As DistanceExtent = oCutFeature.Definition.Extent
	  
	  Dim oDistance As ModelParameter = oExtent.Distance
	  
	    MsgBox (oDistance.Value * 10)
	    
	End If

[jzarczynski]

Thank you, 

I adapted the solution for my needs.