---

Hallo Forum

Ich möchte den Text aller „Rounded Box“ ID-Symbols in der Zeichnung auslesen und in einer MsgBox ausgeben.

--------------------------------------------------------------------------------------------------------------------------------------------

Do
  ufs.Obj.CycleObjsInPart(partTag, UFConstants.UF_drafting_entity_type, thisDraftingEnt)

  If NXOpen.Tag.Null <> thisDraftingEnt Then
    ufs.Obj.AskTypeAndSubtype(thisDraftingEnt, type, subtype)
    If subtype = UFConstants.UF_draft_id_symbol_subtype Then
      ...
    End If
  End If

Loop While NXOpen.Tag.Null <> thisDraftingEnt

--------------------------------------------------------------------------------------------------------------------------------------------

Das durchlaufen aller Zeichnungselemente geht so einigermaßen, mit dem auslesen der Werte bin ich nicht weitergekommen.

Hat jemand einen Tip wie das gehen könnte?
Danke
Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Joe,

ich habe so etwas mal für die Position und Textinhalte von PMI Labels auf Zeichnungen benötigt bzw. im Grundgerüst erstellt. Funktionierte nur zum Teil einwandfrei. Stichworte waren hier der "AnnotationManager" und die "LabelCollection" des aktiven Teils unter workPart.Annotations bzw. workPart.Labels.

Code Schnippsel:
...
Imports NXOpen.Annotations
...
Dim workPartAnnotations As AnnotationManager
Dim workPartLabelCol As LabelCollection
Dim workPartLabelArray As Object 'Wird zu einem Array von Lable
...
Dim LabelItem As Label
Dim LabelType As Type
Dim LabelTypeDefault As String
Dim LabelContentLines() As String
...
' ----------------------------------------------
'  Vorgabewerte setzen
' ----------------------------------------------
LabelTypeDefault = "PmiLabel"
...
' ----------------------------------------------
'  LabelCollection von workPart zuordnen
' ----------------------------------------------
workPartLabelCol = workPart.Labels
...
workPartLabelArray = workPartLabelCol.ToArray
...
' ----------------------------------------------
'  Sicherstellen, dass es sich nur um PMI Labels im Array handelt
' ----------------------------------------------
For Each LabelItem In workPartLabelArray
  LabelType = LabelItem.GetType
  If LabelType.Name <> LabelTypeDefault Then
...
  End If
Next LabelItem
...
For Each LabelItem In workPartLabelArray
  PCDLabelTag(Counter) = LabelItem.Tag
  ' ----------------------------------------------
  '  Label Inhalt 1. Zeile(0) einlesen
  ' ----------------------------------------------
  LabelContentLines = LabelItem.GetText
  PCDlabelContent(Counter) = LabelContentLines(0)
  ' ----------------------------------------------
...

Ich bin mir nicht sicher ob das für ID Symbole in ähnlicher Weise funktionieren kann.
Es gibt aber u.a auf der Support Webseite von UGS http://support.ugs.com  unter den Open Samples einige Beispiele, die Dir hier vielleicht weiterhelfen können. So gibt es dort ein Visual Basic Beispiel unter dem Titel
"Sample NXOpen .NET Visual Basic program to report origin and text of all notes".

Viel Glück beim Recherchieren und Programmieren

Gruß

Matthias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP