Textart in Skizzen per Knopfdruck ändern?

[TAR_Loki]

Hallo Zusammen,

ich habe derzeit einige Detailzeichnungen in AutoCAD, die ich gerne schnell und unkompliziert zu einem Skizzensymbol für Inventor umändern möchte.

In diesen Details sind natürlich auch viele Texte bzw. Bemaßungen enthalten.

Wenn ich die Zeichnungen aus AutoCAD rüberkopiere wird die Textart interpretiert und entspricht nicht der Standarttextart. (ISOCPEUR)

Gibt es vieleicht die Möglichkeit, hier ein kleines Makro drüberlaufen zu lassen, das mir alle Texte auf eine bestimmte Schriftart ändert?

Gruß Sven

[Udo_Huebner]

Wo soll denn der Text angepasst werden - bereits auf der AutoCAD Seite oder lieber in Inventor?

In AutoCAD könnte man die Texte aber auch mit Befehl TXTEXP in Linien und zerlegen lassen und erst dann importieren.

[TAR_Loki]

Hallo @Udo_Huebner ,

der Befehl auf AutoCAD Ebene ist nicht schlecht, aber nur ein Notnagel, wenn ich nichts mehr von den Texten benötige.

Somit wäre mir die Inventor Ebene am liebsten.

Mein bisheriges vorgehen sieht wie folgt aus:

AutoCAD:

Detailzeichnung auf Ursprung zerlegen

Gegebenfalls auf 1:1 skalieren

Alles weiß färben

Zeichnung kopieren

Inventor:

Einfügen

Anpassungen vornehmen

[Juergen_Wagner]

@Udo_Huebner den Text in Striche zerlegen macht ihn ja nicht lesbarer im Inventor.

@TAR_Loki Wenn du sowieso in AutoCAD was machst, wieso änderst du dort nicht die Schriftart?

Befehl STIL in ACAD und allen Textstilen z.B. Schriftart Arial (oder welche TTF Schrift du auch immer nutzen willst) zuweisen

Du kannst auch nur einen Textstil ändern, dann alle Texte auswählen (Funktion Ähnlich auswählen)

Dann STRG+1 drücken ==> Eigenschaftsfenster

Dort kannst du allen markierten Texten den einen Textstil zuweisen.

In Inventor:

iLogictregel zum ändern der Schriftart skizzierter Symbole

Dim oApp As Application: oApp = ThisApplication
Dim oDoc As DrawingDocument: oDoc = oApp.ActiveDocument
Dim oSymbol As SketchedSymbol
Dim oSymbols As SketchedSymbols
Dim oSketch As DrawingSketch
Dim oTextBox As TextBox
Dim oTextBoxes As TextBoxes
Dim oSymDef As SketchedSymbolDefinition
Dim oStyle As TextStyle
oSymbols = oDoc.ActiveSheet.SketchedSymbols
	For Each oSymbol In oSymbols
		oSymDef = oSymbol.Definition
        oTextBoxes = oSymDef.Sketch.TextBoxes
            For Each oTextBox In oTextBoxes
                oStyle = oTextBox.Style
'NAME SCHRIFTART ANPASSEN
                oStyle.Font = "Tahoma"
                'oStyle.FontSize = 10
            Next
    Next

[Quelle iLogic Code. Google sei dank ;)]

[TAR_Loki]

Hallo @Juergen_Wagner 

die iLogic Regel funktiniert anscheinend nur bei Texten, die schon im INventor erstellt wurden.

Die Texte, die rüberkopiert wurden, überarbeitet er nicht.

Ich habe zum ausprobieren, mal die Detailzeichnung angehängt, mit der ich das gerade ausprobiere.

Vielleicht mache ich da ja etwas falsch.

Gruß Sven

[Juergen_Wagner · Accepted solution]

Dann Plan A: Änderung Textstil in ACAD

= 

Wenn du in ACAD immer die gleichen Schritte machst (Ursprung, alle Objekte weiß, Textstil = Arial,..) dann könnte man auch da gleich eine LISP-Routine machen oder du zeichnest einen Makro auf und lässt in immer wieder ablaufen. Bei Auswahlfunktionen (Fensterwahl) musst du dem Makro noch sagen, das er diese Picken immer wieder abfragen soll.

[TAR_Loki]

Vielen lieben Dank @Juergen_Wagner!

Ich tendiere dann auch eher zu Deiner Lösung A, da ich eh die meiste vorarbeit in AutoCAD machen muss, bzw. diese dort einfacher zu erledigen ist.

Eine kleine Frage hab ich allerdings noch. Wo finde ich die Makrofunktion bei AutoCAD Mechanical 2018?

Gruß Sven

[Juergen_Wagner]

https://knowledge.autodesk.com/de/search-result/caas/CloudHelp/cloudhelp/2016/DEU/AutoCAD-Customizat...

Aber das Menü gibt es nur in AUTOCAD nicht in ACAD Mechanical! Unter ACADM ist der Befehl (bei manueller Eingabe in der Befehlszeile) deaktiviert! Nutze als AutoCAD 2009 (da gibt es eine Verknüpfung im Startmenü zu AutoCAD (ohne Mechanical!)

Tipp: Nutze den Befehl -STIL (also mit - davor) dann kommt keine Dialogbox, sondern alles wir in der Befehlszeile angefragt. Dort musst du dann einfach die Abfrage in der Befehlszeile eingeben oder bestätigen.