01-20-2022
05:10 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-20-2022
05:10 PM
ok never mind, it was easier than I thought.
ThisApplication.StatusBarText = "Select a Face" Dim doc = ThisApplication.ActiveDocument Dim entity = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select a Face") doc.SelectSet.Select(entity) Dim oFace As Face oFace = doc.SelectSet(1) If Not oFace.SurfaceType = SurfaceTypeEnum.kPlaneSurface Then MessageBox.Show("A planar face must be selected, the rule will exit", "Error Handling") Return End If strTest = oFace.SurfaceBody.Name MessageBox.Show("Name = " & strTest, "Title")