04-22-2024
03:51 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-22-2024
03:51 AM
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.