| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Digitale Engineering-Prozesse bei Pergande mit BIM-, CAD- und PDM-Lösungen von Autodesk, ein Anwenderbericht |
Autor
|
Thema: Lisp für Textstilfont wechsel und Bereinigung (452 mal gelesen)
|
Knif.m Mitglied Techniker
Beiträge: 12 Registriert: 23.07.2008 Core 2 4300@1.80 Ghz, 2GB Autocad 2002
|
erstellt am: 23. Jul. 2008 20:13 <-- editieren / zitieren --> Unities abgeben:
hallo zusammen, bin auf der suche nach einem lisp file, dass es ermöglicht - alle textstile mit txt.shx auf simplex.shx zu setzen - und anschließend eine zeichnungsprüfung & zeichnungsbereinigung durchzuführen (dienstprogramme>prüfung; dienstprogramme>bereinigen...) ist sowas in lisp-form überhaupt möglich (im speziellen die zeichnungsbereinigung)? hab im forum in diese richtung nichts gefunden, daher mein post. hoffe ihr könnt mir weiterhelfen, bin was lisp angeht nicht so versiert. danke, beste grüße hias ------------------ M.Fink Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 24. Jul. 2008 08:06 <-- editieren / zitieren --> Unities abgeben: Nur für Knif.m
Willkommen als Aktivposter auf Cad.de. Zu deiner Frage : So was ist mit Lisp relativ einfach möglich. Für das Bereinigen und Prüfen reichen schon 2 commandaufrufe : (command "_audit" "_y") und (command "_-purge" "_all" "*" "_n") Als Lispeinstieg empfehle ich das "Kochbuch Autolisp" und die Tutorials von Mapcar Fürs Suchen empfehle ich das Zu deiner Anfrage betreffs Programm zum Textstiltausch möchte abschließend ich auf den Beitrag von Tom hinweisen. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Knif.m Mitglied Techniker
Beiträge: 12 Registriert: 23.07.2008 Core 2 4300@1.80 Ghz, 2GB Autocad 2002
|
erstellt am: 24. Jul. 2008 08:55 <-- editieren / zitieren --> Unities abgeben:
herzlichen dank für deine hilfe. es freut mich das man hier so offen aufgenommen wird. zum thread: jetzt hab ich nur noch ein problem: ich bräuchte diese drei sachen in einem lisp verpakt, habe aber überhaupt keine ahnung wie sowas im geringsten aussieht. wie gesagt, bin ein lisp-neuling. könnte sich wer erbarmen und mir vieleicht diesbezüglich so ein lisp zusammenstellen? nochmals danke für die mithilfe. ------------------ M.Fink Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Claudio Mitglied Architekt
Beiträge: 334 Registriert: 13.04.2002
|
erstellt am: 24. Jul. 2008 22:16 <-- editieren / zitieren --> Unities abgeben: Nur für Knif.m
|
Knif.m Mitglied Techniker
Beiträge: 12 Registriert: 23.07.2008 Core 2 4300@1.80 Ghz, 2GB Autocad 2002
|
erstellt am: 25. Jul. 2008 09:09 <-- editieren / zitieren --> Unities abgeben:
|
Knif.m Mitglied Techniker
Beiträge: 12 Registriert: 23.07.2008 Core 2 4300@1.80 Ghz, 2GB Autocad 2002
|
erstellt am: 25. Jul. 2008 09:46 <-- editieren / zitieren --> Unities abgeben:
hallo zusammen, habe das lisp von claudio getestet, funktioniert bei sehr gut. bei einigen dwg files funktioniert das wechseln der txt auf simlex nicht. im anhang eine beispieldatei. bitte um hilfe ------------------ M.Fink [Diese Nachricht wurde von Knif.m am 25. Jul. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 25. Jul. 2008 10:13 <-- editieren / zitieren --> Unities abgeben: Nur für Knif.m
probier damit und versuch es zu verstehen : (defun c:Xrein (/ TX_ST) (vl-load-com) (setq TX_ST (vla-get-Textstyles (vla-get-ActiveDocument (vlax-get-acad-object)) ) ) (vlax-for i TX_ST (if (or(=(strcase(vla-get-fontFile i)) "TXT.SHX") (=(strcase(vla-get-fontFile i)) "TXT") ) (vla-put-fontFile i "simplex.shx") ) ) (command "_audit" "_y") (command "_purge" "a" "*" "n") (princ "...ausgeführt!")(princ) ) (princ "Programm geladen -> mit XREIN starten")
------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Knif.m Mitglied Techniker
Beiträge: 12 Registriert: 23.07.2008 Core 2 4300@1.80 Ghz, 2GB Autocad 2002
|
erstellt am: 25. Jul. 2008 10:23 <-- editieren / zitieren --> Unities abgeben:
|