---

Hallo zusammen,
evtl. kann mir ja eine(r) von Euch helfen!?
Ich würde gerne mittels Journal die verschiedenen Texte einer Zeichnung anpassen...
Das funktioniert grundsätzlich auch ganz gut, jedoch habe ich noch keine Möglichkeit gefunden, Schnittlinien- bzw. Schnittansichtenbezeichnungen separat anzusprechen und zu bearbeiten. Momentan durchläuft mein Journal die Zeichnung und stellt für jeden Text (Hinweise, Positionsnummern, Bemaßungen, Oberflächen) dieselbe Schriftart und leider auch dieselbe Schriftgröße ein.
Wie kann ich also die Buchstaben von Schnittlinien und zugehörigen Bezeichnungen der Schnittansichten separat ansprechen?

Zudem bekomme ich es noch nicht hin, die Einstellungen der Schweißsymbole (LineWeld) zu editieren, weil NX mir sagt:
"LineWeld" ist kein Member von "NXOpen.Annotations.AnnotationManager".

Den Durchlauf habe ich wie folgt versucht:
For Each myWeld As NXOpen.Annotations.LineWeld In displayPart.Annotations.LineWeld
So funktioniert es ja mit den Bemaßungen und anderen "Textelementen" auch!?
In dieser Zeile wird mir dann aber der obige Syntax-Error angezeigt!?

Im aufgezeichneten Journal wird ja nur das selektierte Symbol editiert:
Dim lineWeld1 As NXOpen.Annotations.LineWeld = CType(workPart.FindObject("HANDLE R-21362"), NXOpen.Annotations.LineWeld)

Hat irgendwer eine Idee?
Vielen Dank vorab für jede Sekunde Eurer Zeit

Grüße in die Runde

Marc

------------------
"Das kann man so machen, aber dann ist es halt Sch...!"

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

---

Sry Admin,
ich habe gepennt! Der Post gehört natürlich in die NX Programmierung!
Mea culpa

Marc

------------------
"Das kann man so machen, aber dann ist es halt Sch...!"

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

---

Habe den Thread ins Programmier-Forum verschoben.

------------------
Gruß 

Markus

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

---

Wollte der Vollständigkeit halber noch meine Lösung präsentieren...

Die Schrift aller Schweißsymbole auf iso-1 einstellen:

Dim Style As Integer = workPart.Fonts.AddFont("iso-1", NXOpen.FontCollection.Type.Nx)

For Each myWeld As NXOpen.Annotations.LineWeld In displayPart.Annotations.Welds
                Dim objects5(0) As NXOpen.DisplayableObject
                objects5(0) = CType(myWeld, NXOpen.Annotations.LineWeld)

                Dim editSettingsBuilder5 As NXOpen.Annotations.EditSettingsBuilder = Nothing
                editSettingsBuilder5 = workPart.SettingsManager.CreateAnnotationEditSettingsBuilder(objects5)

                Dim dimensionlinearunits5 As NXOpen.Annotations.DimensionUnit = Nothing
                dimensionlinearunits5 = editSettingsBuilder5.AnnotationStyle.UnitsStyle.DimensionLinearUnits

                Dim editsettingsbuilders5(0) As NXOpen.Drafting.BaseEditSettingsBuilder
                editsettingsbuilders5(0) = editSettingsBuilder5
                workPart.SettingsManager.ProcessForMultipleObjectsSettings(editsettingsbuilders5)

                editSettingsBuilder5.AnnotationStyle.LetteringStyle.GeneralTextFont = Style
                editSettingsBuilder5.AnnotationStyle.LetteringStyle.GeneralTextSize = 3.5
                editSettingsBuilder5.AnnotationStyle.LetteringStyle.GeneralTextCharSpaceFactor = 1.0
                editSettingsBuilder5.AnnotationStyle.LetteringStyle.GeneralTextAspectRatio = 1.0
                editSettingsBuilder5.AnnotationStyle.LetteringStyle.GeneralTextLineSpaceFactor = 1.0

                Dim nXObject5 As NXOpen.NXObject = Nothing
                nXObject5 = editSettingsBuilder5.Commit()
                editSettingsBuilder5.Destroy()
            Next

------------------
"Das kann man so machen, aber dann ist es halt Sch...!"

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