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

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
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.

Blue Mech

Add-ins for Inventor!