Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Text von skizzierten Symbolen nachträglich verändern mittels VBA

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT
Autor Thema:  Text von skizzierten Symbolen nachträglich verändern mittels VBA (2382 mal gelesen)
Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 15. Mai. 2017 10:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo ihr Lieben,

ich bin gerade dabei über ein VBA-makro texte in skizzierte Symbole meiner Zeichnungsvorlage zu schreiben.

Jetzt stehe ich vor dem Problem, dass ich es nicht hinbekomme, den Text von bereits existieren Textboxes zu verändern.

unter der Andresse

oSketchedSymbolDef.Sketch.TextBoxes(2).Text

findet Inventor zwar den Eintrag und gibt mir den entsprechenden Wert aus, aber wie kann ich diesen verändern

Danke für eure Hilfe

Christian

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 15. Mai. 2017 15:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Hallo 

Da musst einen kleinen Umweg gehen. Hab das mal kurz getestet, hat funktioniert.

osketchsym ist natürlich dein Symbol und der erste wert des Aufrufs ist deine Textbox, die musst natürlich auch irgendwie anders definieren als .Item(1). Zweiter Wert ist der zu schreibende Text.

Call osketchsym.SetPromptResultText(osketchsym.Definition.Sketch.TextBoxes.Item(1), "Hey")

Mit freundlichen Grüßen

Tacker

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 16. Mai. 2017 09:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ich habs leider bisher nicht hinbekommen.

Hast du vielleicht ein ausführlicheres beispiel, wie es bei dir funktioniert hat?

Liebe Grüße

Christian

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 16. Mai. 2017 15:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Hallo,

schau mal ob damit klar kommst 

Code:

Sub test()

    Dim oapp As Inventor.Application
    Dim odrawdoc As Inventor.DrawingDocument
    Dim oTbox As Object
    Dim oSketch As Inventor.SketchedSymbol
   
    Set oapp = Inventor.ThisApplication
   
    If oapp.ActiveDocument.Type = Inventor.kDocumentObject Then
        Set odrawdoc = oapp.ActiveDocument
        For Each oSketch In odrawdoc.ActiveSheet.SketchedSymbols
            If oSketch.Name = "Name des Skizzierten Symbols" Then
                For Each oTbox In oSketch.Definition.Sketch.TextBoxes
                    If oTbox.Text = "Name der Textbox" Then 'NICHT des skizzierten Symbols!!
                        Call oTitle.SetPromptResultText(oTbox, "Neuer Text")
                    End If
                Next
            End If
        Next
    End If

End Sub


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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 16. Mai. 2017 16:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Tacker,

vielen Dank für deine Antwort.

Wie hast du denn oTitle definiert?

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 17. Mai. 2017 09:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Mein Fehler, da sollte oSketch stehen.

Hab das schnell zusammenkopiert und nicht getestet. Schande über mich 

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 17. Mai. 2017 10:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Leider immernoch ein:

"Invalid procedure call or argument"

als Antwort.

Aber bis zu der Call-Zeile findet er seinen weg.

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 17. Mai. 2017 10:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Hm, hab das jetzt getestet und hat funktioniert wie gewünscht.
Probier den Code mal und schau dann ob der funktioniert.

Code:

Sub test()

    Dim oapp As Inventor.Application
    Dim odrawdoc As Inventor.DrawingDocument
    Dim oTbox As Object
    Dim oSketch As Inventor.SketchedSymbol
   
    Set oapp = Inventor.ThisApplication
   
    If oapp.ActiveDocument.Type = Inventor.kDocumentObject Then
        Set odrawdoc = oapp.ActiveDocument
        For Each oSketch In odrawdoc.ActiveSheet.SketchedSymbols
            If oSketch.Name = "Kunde" Then
                For Each oTbox In oSketch.Definition.Sketch.[_TextBoxes]
                    If oTbox.Text = "Kunden Nr. eingeben" Then
                        Call oSketch.SetPromptResultText(oTbox, "112134")
                    End If
                Next
            End If
        Next
    End If

End Sub


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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 17. Mai. 2017 10:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Leider der selbe Fehler,

hast du vielleicht irgendwelche References aktiviert?

Bei mir sind es nur

Visual Basic for Applications
Autodesk Inventor Objekt Library
OLE Automation

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 17. Mai. 2017 11:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Ja noch
Microsoft Form 2.0 Object Library
Microsoft Scripting Runtime
Microsoft Shell Controls And Automation

die dürften aber wenig mit dem Problem zu tun haben.

Welche Inventor Version benutzt du denn? Getestet wurde in 2017

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 17. Mai. 2017 11:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Aktuell sitze ich an einem Inventor 2016

werde es heute abend mal auf 2017 testen.

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 18. Mai. 2017 09:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Auf einem anderen rechner habe ich sowohl in Inventor 2016 als auch bei 2017 die selbe Fehlermeldung 

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 18. Mai. 2017 10:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Seltsam, weiß jetzt auch nicht auf Anhieb woran das liegt.

Kannst du eine Beispieldatei bereitstellen bei der der Fehler auftritt? Dann könnte ich das bis morgen getestet haben.

Gruß Tacker

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 18. Mai. 2017 11:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Symbole_Baustelle.zip

 
Datei liegt bei,

wäre echt super, wenn du da was findest

Liebe Grüße

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 23. Mai. 2017 08:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Servus,

hat leider bisschen länger gedauert.
Das Problem lag darin dass der Text in der Definition unter Typ (ein Dropdownfeld in dem Feld Text bearbeiten) nicht auf "angeforderte Eingabe" stand.
Dafür ist die Funktion SetPromptResultText da.
Ist der Textbaustein nicht so definiert, kann Inventor da keinen Wert setzen deswegen der Fehler.

Auf Anhieb hab ich nur die Eigenschaft "FormattedText" gefunden anhand derer man erkennen kann ob der Text so definiert wurde oder nicht um einen Fehler zu umgehen (Ist wahrscheinlich auch das einzige).

Wenn du allerdings die Definition bearbeiten willst ist das eine andere Geschichte. Hab ich so noch nie gemacht (Symboldefintionen bearbeiten ist normalerweise ja keine repetetive Aufgabe), daher kann ich auf die Schnelle auch keine Hilfestellung geben.

Wenn dich da aber eingelesen hast und noch Hilfe brauchst fragst einfach nochmal.

Gruß Tacker

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

Charly Setter
Moderator





Sehen Sie sich das Profil von Charly Setter an!   Senden Sie eine Private Message an Charly Setter  Schreiben Sie einen Gästebucheintrag für Charly Setter

Beiträge: 11977
Registriert: 28.05.2002

Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

erstellt am: 23. Mai. 2017 09:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Warum greifst Du in deinen Symbolen nicht auf Properties von Modell oder ZEichnung zu, und änderst Diese dann mittels VBA. Ich gehe davon aus, das solche Daten nicht nur für die Zeichnung interessant sind, sondern auch z.B. fürs PPS.

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 23. Mai. 2017 10:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@Tacker

Ja schade vllt weiß Autodesk selbst wie ich es machen kann - habs mal an den SUpport geleitet.

@Charly

Das geht leider nicht, da es sich im Summe über 1300 Symbole mit jeweils mindestens 3 Textfeldern handelt

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 23. Mai. 2017 11:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Verstehe ich das richtig dass da 1300 verschiedene Symbole in einer .idw sind?

Gruß Tacker

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 23. Mai. 2017 11:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@Tacker

ja stimmt - ist ne Symbolvorlagedatei weil bei uns keine Freitexte mehr verwendet werden sollen

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 23. Mai. 2017 11:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Würde mich interessieren welche Lösung Autodesk vorschlägt.
Ich könnte übers Wochenende da zumindest einen Lösungsansatz entwickeln.

Dass man keine Freitexte mehr verwenden soll für die Automatisierung ja gut, aber dafür dann fixe Symbole in unüberschaubarer Anzahl einzuführen ist meiner Meinung nach der falsche Weg.

Sinnvoller wäre es die Symbole flexibel zu halten und dafür die zugeführten Texte (Per iPropertys, Eingabe (nicht händisch) etc.) automatisch zu generieren. Per Makro, Addin oder iLogic.

Frage am Rande, die 1300 Symbole die in der Vorlage sind, sind ja auch in den Zeichnungen, wie aktualisiert ihr die? Oder müssen die nicht angepasst werden?

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

Fischkopp
Mitglied



Sehen Sie sich das Profil von Fischkopp an!   Senden Sie eine Private Message an Fischkopp  Schreiben Sie einen Gästebucheintrag für Fischkopp

Beiträge: 375
Registriert: 23.02.2004

Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

erstellt am: 23. Mai. 2017 12:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Zeichnerschlumpf:

ja stimmt - ist ne Symbolvorlagedatei weil bei uns keine Freitexte mehr verwendet werden sollen


Herzlichen Glühstrumpf.... Eine typische Chef-Idee 

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 23. Mai. 2017 13:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@Tacker

Das funktioniert über eine Verlinkung der Zeichnungsvorlagedatei mit der Symbolvorlage.
Zugriff erhälst du dann über den Reiter "Mit Anmerkung versehen" -> "Skizzensymbole einfügen"

Dort kannst du dann anhand des Symbolnamens das gesuchte Symbol inkl. Voransicht dir anzeigen lassen.

In deine richtige Zeichnung werden dann nur noch die wirklich verwendeten Symbole geladen und nicht alle 1300

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


Sehen Sie sich das Profil von Tacker an!   Senden Sie eine Private Message an Tacker  Schreiben Sie einen Gästebucheintrag für Tacker

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 23. Mai. 2017 13:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Zeichnerschlumpf 10 Unities + Antwort hilfreich

@Zeichnerschlumpf: woher die Symbole kommen ist mir schon klar, aber die werden doch nicht automatisch aktualisiert wenn sie in der Vorlage geändert werden, oder?

Zumindest bei allem anderem was mir in Inventor bisher über den Weg gelaufen ist war es immer so, dass eine Datei sich nie von selbst aktualisiert hat ausgenommen 3D Daten (und selbst die sind zickig → DIVA)

Was ich meinte war, dass da jetzt je nach Firmengröße ganz viele Zeichnungen rumschwirren müssten die veraltete Symbole beinhalten. Nicht zwingend die ganze Bibliothek, aber eben die auf der Zeichnung verwendeten → in der lokalen Datei abgespeichert.
Und das zu beheben könnte ziemlich...spaßig werden. 

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 23. Mai. 2017 13:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@ Tacker

ja das wäre wohl so, altzeichnungen müssen zum Glück nicht damit übereinstimmen.

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

Zeichnerschlumpf
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von Zeichnerschlumpf an!   Senden Sie eine Private Message an Zeichnerschlumpf  Schreiben Sie einen Gästebucheintrag für Zeichnerschlumpf

Beiträge: 79
Registriert: 26.01.2010

AutoCAD 2005-2018 LT
AutoCAD 2009-2018 Mechanical
Inventor Professional 8-2018 + Space Pilot pro
Pault Professional 2016

erstellt am: 23. Mai. 2017 14:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hier die Lösung zu meinem Problem, falls sie mal wieder gebraucht wird:

Code:

Public Sub SymbolBearbeitung()
' Set a reference to the drawing document.
' This assumes a drawing document is active.

Dim ID As String

ID = "ADSK_Symbol"
Dim odrawdoc As DrawingDocument
Set odrawdoc = ThisApplication.ActiveDocument

Dim oSketchedSymbolDef As SketchedSymbolDefinition
If odrawdoc.SketchedSymbolDefinitions(ID) Is Nothing Then
' Create the new sketched symbol definition.
' Set oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Add(ID)
Else
Set oSketchedSymbolDef = odrawdoc.SketchedSymbolDefinitions(ID)
End If

Dim oSketch As DrawingSketch
Call oSketchedSymbolDef.Edit(oSketch)

'MsgBox (oSketch.TextBoxes(1).Text)
oSketch.TextBoxes(1).Text = "Hallo ADSK Welt!!"

Call oSketchedSymbolDef.ExitEdit(True)
End Sub


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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz