| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Visuelle Fabrikplanung und Echtzeit-Monitoring in der Produktion, ein Webinar am 13.11.2024
|
Autor
|
Thema: zum 10. Mal Zahlen hochstellen (1175 mal gelesen)
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 11. Dez. 2003 16:30 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe im meinem Grundriß ca. 400 Zahlen bei denen ich die letzte Zahl hochstellen möchte. wie bekomme ich das am schnellsten in den Griff. Gibt es eventuell ein .lsp? Einzeln editieren kommt nicht in Betracht; wenns zu lange dauert, lasse ich es halt so wie es ist. Ciao
------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 11. Dez. 2003 16:43 <-- editieren / zitieren --> Unities abgeben:
ich stelle mir das so vor. Texte markieren: danach an der 3.Stelle des Textes das Steuerzeichen einfügen. Das müsste doch zu realisieren sein. Ich frage mich nur wie. Von LISP habe ich noch zu wenig Ahnung. Wäre nett, wen mir jemand einen Tipp geben könnte. Ciao ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 11. Dez. 2003 17:04 <-- editieren / zitieren --> Unities abgeben: Nur für AsSchu
|
dan_rather Mitglied Techniker HLK
Beiträge: 97 Registriert: 09.12.2003
|
erstellt am: 11. Dez. 2003 17:09 <-- editieren / zitieren --> Unities abgeben: Nur für AsSchu
Hallo Aschuh mit der Beigefügten Schriftart geht das. Die Datei ins Autocad Verzeichniss kopieren. Z.B. "D:\Programme\AutoCAD 2002 Deu\Fonts". Wenn die Datei geladen und ein passender Stil definiert ist, können Sie die neuen Befehle zum Hoch- und Tiefstellen durch Drücken der Zeichen [, ], { und } aufrufen. Das Zeichen [ erzeugt hochgestellte Zeichen, und das Zeichen ] erzeugt wieder normale Zeichen. Das Zeichen { erzeugt tiefgestellte Zeichen, und das Zeichen } erzeugt wieder normale Zeichen. Z.B.: 5[5] ergibt dann 5 hoch 5. Funktioniert leider nur bei einzeiligem Text! Weitere Sonderzeichen : Ø = gleichzeitig die "ALT"-Taste und die Ziffernfolge 0216 ± = "ALT" + 0177 Gruß Dan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Dez. 2003 08:17 <-- editieren / zitieren --> Unities abgeben: Nur für AsSchu
Servus Geht auch mit Jeder anderen Schrift (obwohl das nicht die frage war )
^2 dann A/B ergibt Tiefgestellt 2 2^ dann A/B ergibt ² A/B im Mtextfenster zu finden ------------------
Warum einfach, es geht auch Kompliziert. mfG Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 12. Dez. 2003 09:34 <-- editieren / zitieren --> Unities abgeben:
Danke erstmal für die Antworten. Wie man Texte hochstellt ist mir genau bekannt. Habe auch den dazugehörigen _Textstil Ich möchte die Texte (ca 400) in einem Arbeitszug hochstellen und nicht einzeln editieren Ciao [/B][/QUOTE]
------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 12. Dez. 2003 09:37 <-- editieren / zitieren --> Unities abgeben: Nur für AsSchu
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 12. Dez. 2003 10:01 <-- editieren / zitieren --> Unities abgeben:
|
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 12. Dez. 2003 10:20 <-- editieren / zitieren --> Unities abgeben: Nur für AsSchu
hier mal eben zusammengelispelt: (defun C:THS() (setq as (ssget '((0 . "TEXT")))) (setq n 0 en (ssname as n)) (while en (setq ts (cdr (assoc 1 (entget en)))) (setq tn (strcat (substr ts 1 (1- (strlen ts))) (chr 243) (substr ts (strlen ts)))) (entmod (list (cons -1 en) (cons 1 tn))) (setq n (1+ n) en (ssname as n)) ) ) ------------------ gruß Stephan [Diese Nachricht wurde von StephanJP am 12. Dez. 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 12. Dez. 2003 10:57 <-- editieren / zitieren --> Unities abgeben:
|