| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: textstil via skript ändern (4580 mal gelesen)
|
carmelli76 Mitglied CAD/GIS Teamleitung
Beiträge: 553 Registriert: 05.07.2004 Autodesk Civil 3D 2014 Revit 2016 Vault 2014
|
erstellt am: 11. Aug. 2010 23:36 <-- editieren / zitieren --> Unities abgeben:
|
Ex-Mitglied
|
erstellt am: 11. Aug. 2010 23:44 <-- editieren / zitieren -->
Hi, Befehl: _-style Namen des Textstils eingeben oder [?] <Standard>:Aktueller Textstil. Vollständiger Name der Schriftdatei = Arial Vollständigen Namen der Schrift oder der Schriftdatei angeben (TTF oder SHX) <arial.ttf>: arial.ttf Texthöhe angeben oder [Beschriftung] <0.0000>: Breitenfaktor angeben <1.0000>: .8 Neigungswinkel angeben <0.00>: 15 Text rückwärts anzeigen? [Ja/Nein] <Nein>: Text auf dem Kopf anzeigen? [Ja/Nein] <Nein>: "Standard" ist jetzt der aktuelle Textstil. HTH, - alfred - ------------------ www.hollaus.at |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 12. Aug. 2010 07:49 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
|
carmelli76 Mitglied CAD/GIS Teamleitung
Beiträge: 553 Registriert: 05.07.2004 Autodesk Civil 3D 2014 Revit 2016 Vault 2014
|
erstellt am: 12. Aug. 2010 08:15 <-- editieren / zitieren --> Unities abgeben:
Hallo, Danke für die Antworten. _-style ändert ja nicht die vorhandenen Neigungen... Mit Lisp werde ich es dann machen müssen, da ich viele Zeichnungen mit einigen Texten habe und das Skript stapelweise durchlaufen lasse. LG aus Berlin. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 2966 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 12. Aug. 2010 09:17 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
|
carmelli76 Mitglied CAD/GIS Teamleitung
Beiträge: 553 Registriert: 05.07.2004 Autodesk Civil 3D 2014 Revit 2016 Vault 2014
|
erstellt am: 12. Aug. 2010 09:38 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 12. Aug. 2010 09:43 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
|
zimcad Mitglied Büro für Bauplanung & Bautechnik
Beiträge: 49 Registriert: 26.07.2004
|
erstellt am: 30. Aug. 2010 17:39 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
Hi, bin ich vor ein paar Tagen durch Zuafll drüber gestolpert: Ein Skript was alle Texte in der Zeichnung auf einen Stil ändert, wenn ich mich recht erinnere gefunden bei www.jtbworld.com: ;;; Change all text styles on all objects to specified text style ;;; (ax:ChangeTextStyleName "ISOCPEUR") (defun ax:ChangeTextStyleName (style / sset ename i) (vl-load-com) (setq i 0) (setq sset (ssget "X" '((-4 . "<OR") (0 . "MTEXT") (0 . "TEXT") (-4 . "OR>")))) (if sset (repeat (sslength sset) (setq ename (ssname sset i)) (setq i (1+ i)) (vla-put-stylename (vlax-ename->vla-object ename) style) ) ) ) war es das was du suchst? Das Script was alle Zeichnungen eines Ordners nacheinander lädt hab ich hier im Forum auch schon mal gesehen. Dann musst du nur noch diese Funktion in die acaddoc.lsp einbauen
------------------ Gruss A. Zimmermann - www.zimcad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 31. Aug. 2010 08:06 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
@zimcad dieses LISP (welches du Script nennst, was nicht unbedingt falsch, aber verwirrend ist für manchereins) macht nichts anderes wie "Objektwahl Alle(Texte&MTexte); Textstil- XY zuweisen". Es ändert also die Eigenschaft "Textstil" eines (M)Textobjektes, nicht die Eigenschaften eines Textstiles selbst. Zudem wird ebenfalls nicht die Neigung (SchrägeWinkel) eines (M)Textobjektes geändert. - Ein Programm welches Scripte im Stapelbetrieb ausführt und mit der Acaddoc.lsp geladen werden muß ist etwas merkwürdig und mir unbekannt, solltest du selbst soetwas mal gebrauchen sollte man nach SCC2 (von CADwiesel.de) suchen oder nach ScriptPro (von AutoDESK). ------------------ CAD.de System-Angaben - CAD on demand - User:FAQ(Acad) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ingo Struck Mitglied Holztechniker
Beiträge: 459 Registriert: 08.01.2010 Intel Core i7-3770 16 GB RAM AMD FirePro V3900 (FireGL V) Windows 7 Pro SP1 AutoCAD 2017 SP1 - deutsch
|
erstellt am: 31. Aug. 2010 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
|
zimcad Mitglied Büro für Bauplanung & Bautechnik
Beiträge: 49 Registriert: 26.07.2004
|
erstellt am: 31. Aug. 2010 09:45 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
Hallo, hast recht, hab die Frage etwas zu schnell gelesen und dachte dass nur die Objekte geändert werden sollen. Mit Scripts stehe ich so ein bisschen auf Kriegsfuss, daher verwende ich zu fast 100% Lisp und bleibe wohl auch dabei. Ohne jetzt eine sofortige Lösung parat zu haben denke ich, dass das gestellte Problem mit Lisp relativ einfach zu lösen wäre. Zu dem Stapelbetrieb: Ich hab mir (als es zu vba - Zeiten noch die Visual Basic IDE zu Acad gab (~acad 2007)) eines gebastelt, welches alle Zeichnungen in einem Verzechnis nacheinander öffnet, speichert und wieder schliesst. In jeder dwg wird die acaddoc.lsp geladen, in dieser konnte ich dann alles was ich wollte (mit Lisp, vba oder auch Scripten) machen. ------------------ Gruss A. Zimmermann - www.zimcad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
zimcad Mitglied Büro für Bauplanung & Bautechnik
Beiträge: 49 Registriert: 26.07.2004 aca-2017, win10-64bit
|
erstellt am: 31. Aug. 2010 10:17 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
Habs doch gefunden und dann ein wenig weiter gebastelt: Auch wenn es kein Script ist , aber ein Lisp, was den Winkel aller Textstile der aktuellen Zeichnung auf 15 Grad ändert. Wie vermutet in Lisp relativ simpel zu realisieren. Das muss jetzt in das besagte Script eingebaut werden, das alle dwg's aufruft. (defun C:TSW15 ( / ad style) (vl-load-com) (setq ad (vla-get-ActiveDocument (vlax-get-Acad-Object))) (princ "Alle Textstilwinkel auf 15 Grad ändern") (vlax-for style (vla-get-TextStyles ad) (if (/= (wcmatch (vla-get-Name style) "*|*")); keine Xrefs (progn (vla-put-ObliqueAngle style 0.2618); Angabe des Winkels - hier 15 Grad - im Bogenmass (princ "\n") (princ (vla-get-name style)) (prompt " geändert.\n") ) ) ) (command "._regenall") (princ) )
------------------ Gruss A. Zimmermann - www.zimcad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |