---

Hallo Zusammen,

ich habe ein eher spezielles Anliegen.
Unser Kunde verlangt von uns bei den Schnitten in den Zeichnungen eine Zusatzangabe . Dabei muss neben dem Schnittname (neben dem Schnittpfeil auf der Schnittlinie) noch einseitig das Zeichnungsfeld, in dem sich die Schnittansicht befindet eingetragen sein.
D.h. z.B. Label Schnittpfeil Links: "A", und Label Schnittpfeil Rechts: "A-F10"
Da mir manuell keine Möglichkeit dafür bekannt ist habe ich mir vom Konzept her folgendes Makro zusammenkopiert (Fehlerbehaftet):

Option Strict Off
Imports System
Imports NXOpen

Module Module1

    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        If IsNothing(theSession.Parts.Work) Then
            'active part required
            Return
        End If

        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

        Dim markId1 As Session.UndoMarkId

        For Each theNote As Annotations.Note In workPart.Notes

            'lw.WriteLine("type: " & theNote.GetType.ToString)

            Dim noteText() As String
            noteText = theNote.GetText
            For Each txtLine As String In noteText
                'lw.WriteLine(txtLine)

                If txtLine.Contains("@VWLETTER_DISP") Then  '...

Function StripModifiers(ByVal TextString As String) As String

TextString = Replace(TextString, "<W&Ref1*0@VWLETTER_DISP>-C10", "<W&Ref1*0@VWLETTER_DISP>-E10")
   
Return TextString

Exit For

End Function

                End If

            Next
            'lw.WriteLine("")
        Next

        lw.Close()

    End Sub

End Module

Da ich mich nicht besonders mit den Makros auskenne sind sicherlich einige Fehler enthalten, aber vom Grundkonzept sollte evtl. das eine oder andere brauchbar sein denke ich.

Das Endresultat des Strings sollte folgendermaßen ausschauen: <W&Ref1*0@VWLETTER_DISP>-E10 (mehr muss nicht verändert werden)
In der Vorlagezeichnung die wir bekommen haben schaut die Info zum Label wie folgt aus (als Beispiel):

OBJECT SPECIFIC INFORMATION
------------------------------------------------------------
Object Origin        XC =  869.281                X =  869.281           
                     YC =  452.037                Y =  452.037           
                     ZC =    0.000                Z =    0.000           
                    
Character Size       =       5.000
Character Aspect     =       1.000
Space Factor         =       0.000
Line Factor          =       1.000
Text Angle           =       0.000
                    
Text Origin          XC =  869.281                X =  869.281           
                     YC =  449.494                Y =  449.494           
                     ZC =    0.000                Z =    0.000           
                    
Text String          <W&Ref1*0@VWLETTER_DISP>-C10
                    
Text References     
                    
Ref1*0              
Attribute Title      VWLETTER_DISP
Attribute Owner      Exact Section View : SX@48
Attribute Value      C1
                    
------------------------------------------------------------
Object Dependency Graph:
Section Line Label - ID 1163629
Used by:
     None

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

Ich hoffe, dass mir jemand von euch kurz aushelfen kann.

Besten Dank!

[Diese Nachricht wurde von Engineer303 am 22. Sep. 2015 editiert.]

[Diese Nachricht wurde von Engineer303 am 22. Sep. 2015 editiert.]

[Diese Nachricht wurde von Engineer303 am 22. Sep. 2015 editiert.]

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

---

Welche Funktion(en) soll dein "Makro" überhaupt haben ?
Das ist nicht ersichtlich.

Verwendest du Zonen in den Zeichnungen ?

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

---

Label.png

Hallo Thomas,

im Grunde genommen soll das Makro nur den String des Schnittlabels suchen und durch einen individuellen String ersetzen.
Ja genau, dabei soll die Zone im Schnittnamen (aber nur auf einer Seite) ergänzt werden.
Ich habe dir ein Beispiel angehängt.
Unser Kunde hat dies auch in einem Makro verbaut, aber will oder kann uns dieses nicht zukommen lassen. In der Zeichnung müssen wir es allerdings genauso ausführen =)

SG Jan

[Diese Nachricht wurde von Engineer303 am 23. Sep. 2015 editiert.]

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

---

Also sowas ist relativ einfach möglich.
Aber eine Endlösung werden wir dir hier nicht bereitstellen.

Als Ablauf könnte ich mir folgendes vorstellen.

1. Alle Schnittdarstellung auf der Zeichnung ermitteln
2. Die Blattgröße ermitteln
3. Unterteilung aufgrund der Blattgröße ermitteln
4. Die Positionen der Schnittdarstellung aufgrund der Unterteilungen des Blattes ermitteln.
5. Schnittlinien anpassen

Wenn du dann Probleme mit den einzelnen Punkten hasst, helfen wir dir gerne. Eine Schritt für Schritt Anleitung kannst du aber nicht erwarten... Gruß

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

---

Hallo Matthias,

ich kann mir derzeit leider kaum 5 Minuten Zeit für das Thema in Anspruch nehmen, da ich ohnehin, auch mit Überstunden bis zur gesetzlichen Grenze, mit den Neuprojekten voll ausgelastet bin.
Also Punkt 1-4 kann ich derzeit ohnehin getrost weglassen.
Ich brauche lediglich für Punkt 5 Hilfe, es ist mir auch recht jeden Schnittnamen manuell einzugeben, jedoch funktioniert mein bisheriger Makro-Aufbau dafür noch nicht und über die Standartfunktionen gibt's meines Wissens nach (habe lange gesucht) keine Editiermöglich dafür wie z.B. beim Label der Schnittansicht selbst.
Wenn du offensichtlich Fehler im Makro bereits erkennst, bin ich dir sehr Dankbar!
Das Makro muss lediglich den String finden und ersetzen können, z.B.: von "<W&Ref1*0@VWLETTER_DISP>" zu "<W&Ref1*0@VWLETTER_DISP>-E10", oder bei, vom Kunden bereits angepassten Schnitten z.B.: von "<W&Ref1*0@VWLETTER_DISP>-E10" zu z.B. : "<W&Ref1*0@VWLETTER_DISP>-C10"
Leider ist es wie gesagt nicht auf normalem Wege möglich ein z.B. "-C10" dem String hinzuzufügen wie es sonst so oft der Fall ist.

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

---

sectionline.jpg

Manuell kannst du das ganz einfach über die NX Standardfunktionalität machen. Siehe Anhang.

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

---

Danke!!! Du rettest mir den Tag =]
So einfach kann es sein... Ich hab ewig gesucht, auch über Foren etc.
Besten Dank nochmals! Das reicht mir schon völlig aus =]

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