| |
| 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, eine Pressemitteilung
|
Autor
|
Thema: Script für Schriftstile (371 mal gelesen)
|
vespe Mitglied Technische Zeichnerin
Beiträge: 15 Registriert: 15.10.2004
|
erstellt am: 12. Jan. 2005 15:14 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich möchte ein Script erstellen (in AutoCaD 2004) welches mir einen Schriftstil durch einen anderen ersetzt. Leider hab ich noch nie ein Script erstellt, hat vielleicht irgend jemand eine Idee wies geht. Vielen Dank vorab Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 12. Jan. 2005 15:23 <-- editieren / zitieren --> Unities abgeben: Nur für vespe
Du benötigst die Information , welche Textstile nutzen die Schriftart"X", ohne diese Information geht garnichts, ansonsten (wenn bekannt) dann einfach die angehängte Datei als Beispiel nehmen und mit SCRIPT aufrufen.. [Datei vorher in *.SCR umbenennen !] (habe es englisch verfasst, MUß ABER NICHT - kannst ganz normal deutsche Befehl/Optionen nutzen bei Scripten..) Oder möchtest du Texten einen anderen Stil zuweisen !? - bin nun doch etwas verwirrt (sorry) wichtig ist beim vorhaben zu sagen ob man den TEXTSTIL bearbeiten will oder ein OBJEKT. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
vespe Mitglied Technische Zeichnerin
Beiträge: 15 Registriert: 15.10.2004
|
erstellt am: 12. Jan. 2005 16:16 <-- editieren / zitieren --> Unities abgeben:
ok, ich habe mich wirklich undeutlich ausgedrückt, konkret möchte ich den Stil: blockfont Schrift: System:simplex.shx in Stil: Standart Schrit: ISOCP umwandeln. siehe auch Screenshot vielen Dank im vorraus für Deine Mühe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 12. Jan. 2005 16:33 <-- editieren / zitieren --> Unities abgeben: Nur für vespe
Zudem möchtest du (anscheinend) keine TEXTobjekte ändern, sondern MTEXTobjekte. Leider kann man sowas nicht mit einem solchen Script realisieren (oder? denkdenk)
Hier im Forum, oder auch im LISPforum hast du aber evtl Glück dennoch eine Lösung zu finden.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 12. Jan. 2005 18:57 <-- editieren / zitieren --> Unities abgeben: Nur für vespe
Hi, wenn es Dir darum geht vorhandenen Mtext-Objekten einen anderen Schriftstil zuzuweisen, benötigst Du kein Script. Markiere Dir alle MTexte die den neuen Stil bekommen sollen (Auswahlsatz eventuell über Filter oder Schnellauswahl...), rufe via STRG + 1 das Eigenschaftenfenster auf und such Dir dort den Eintrag "Stil". Klicke auf das Feld dahinter und wähle aus dem Listenfeld den neuen Stil. Sollte es sich bei Deinen Texten aber um einzeln zugewiesenen Stilüberschreibungen im MText handeln, wird sich nix verändern. Dann bist Du in den A* gekniffen. ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 12. Jan. 2005 19:20 <-- editieren / zitieren --> Unities abgeben: Nur für vespe
Hi, hab' mal geschaut wie so 'ne Textstilüberschreibung denn so festgehalten wird: Im AutoCAD erscheint's als: "Test-Man" wobei das "st-M" mit 'nem anderen Font formatiert ist. Guck ich mir an wie AutoCAD das intern speichert, sieht das so aus: "Te{\\fSwis721 Blk BT|b0|i0|c0|p34;st-M}an" Hier 'ne Testfunktion für Dich:
Code:
(defun C:REALTEXT (/ obj) (vl-load-com) (if (not (setq OBJ (car (entsel "\nMtext-Objekt wählen:")))) (princ "\nNichts gewählt! Funktionsende.") (if (not (equal (vlax-get-property (setq OBJ (vlax-ename->vla-object OBJ)) 'OBJECTNAME ) "AcDbMText" ) ) (princ "\nObjekt war kein MText! Funktionsende.") (alert (strcat "\"Echter\" Textinhalt für gepicktes MText Objekt:\n\"" (vlax-get-property OBJ 'TEXTSTRING) "\"" ) ) ) ) (princ) ) (C:REALTEXT)
... ------------------ Ciao, Marc [Diese Nachricht wurde von marc.scherer am 12. Jan. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
vespe Mitglied Technische Zeichnerin
Beiträge: 15 Registriert: 15.10.2004
|
erstellt am: 13. Jan. 2005 08:14 <-- editieren / zitieren --> Unities abgeben:
|
vespe Mitglied Technische Zeichnerin
Beiträge: 15 Registriert: 15.10.2004
|
erstellt am: 13. Jan. 2005 08:16 <-- editieren / zitieren --> Unities abgeben:
|
vespe Mitglied Technische Zeichnerin
Beiträge: 15 Registriert: 15.10.2004
|
erstellt am: 13. Jan. 2005 08:21 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 13. Jan. 2005 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für vespe
Hi Vespe, zu: Zitat: Original erstellt von vespe: Hi Marc, danke trotzdem für Deine Mühe, ich dachte halt ich kann das mit nem Knopfdruck die verschiedenen Texte auf einmal ändern. Gruß vespe
Hä? Wieso kannst Du doch via Eigenschaften-Dialog machen??? Ist doch nur ein Knopfdruck... Die Auswahl müßtest Du auch bei 'nem Lisp-Tool treffen.
------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 13. Jan. 2005 09:02 <-- editieren / zitieren --> Unities abgeben: Nur für vespe
|