Geom Data - VB Example

Get LOOPs of selected FACE

VB Sample project (link to "CimSuiteGeomData_GetFaceLoops" example)

The following example demonstrates how to get a list of EDGEs of a selected entity (Face, Body).

1. Open a new VB project (Standard EXE) in Visual Basic (see Example).

2. Add a command button to Form1.

3. Paste the following code into Form1:

Private Sub Command1_Click()

  ' Set object for entity list.

  Dim oEntLst As Object

  ' Set variable to get number of picked entities.

  Dim oNumOfEnt As Integer

  ' using CimESuite command class to clear all selected entities before using new selection

  gSuite.Commands.SetSelectionMode Clear_Selection

  ' Pick entities function

  gSuite.PickTool.PickEntitiesByFilter 1, suFace, suBody

  ' Get the selected entities list

  gSuite.PickTool.SelectedEntityList oEntLst, oNumOfEnt

  ' Get list of Edges of each face loop

  gSuite.GeomData.GetEntityEdgeParent oEntLst(1), oEntityList

End Sub

4. Press the F5 key to run the project or on the Tools menu, click Run Project.