| |
| 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: Sonderzeichen aus edit_box ermitteln (1335 mal gelesen)
|
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 29. Okt. 2013 15:42 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich möchte Sonderzeichen aus der Dialogfeld-Komponente edit_box ermitteln. Leider werden manche Zeichen falsch von der Funktion get_tile geliefert, in dem ein Zeichen aus mehreren Einzelzeichen der Form \U+06B3 besteht (siehe Anlage). Hier mein Beispiel-Text: Text ÐÆǼϡظڑڳ Was muss ich tun, damit die Funktion get_tile alle Zeichen meines Beispiel-Textes korrekt liefert? Danke im Voraus und viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 29. Okt. 2013 21:09 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
Hallo Bernd, die Funktion liefert schon den korrekten Text... allerdings als unicode ("\U+ ..."). Was willst Du mit dem Text machen? Wenn Du ihn z.B. in einen MTEXT schreibst, kommen auch wieder die richtigen Zeichen an. Grüsse, Henning ------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 30. Okt. 2013 08:12 <-- editieren / zitieren --> Unities abgeben:
Hallo Henning, danke für Deine Antwort. Zitat: Original erstellt von wronzky:
Was willst Du mit dem Text machen?
ich möchte nachfolgend einen Objekt Text erstellen. Ich habe jetzt aber noch nicht nachgesehn, ob ich es per (entmake ...) oder per (command "_.text" ...) mache. Liegt mein Problem dann beim Erstellen der Textes? Danke im Voraus und viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 30. Okt. 2013 08:52 <-- editieren / zitieren --> Unities abgeben:
Hallo, hier meine Erstellung des Textes: (entmake (list (cons 0 "text") (cons 10 lefpkttmp) (cons 40 rhoentmake) (cons 1 cbust) (cons 41 rbrfak) (cons 7 cstil))) Liegt hier das Problem? Viele Grüße Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 30. Okt. 2013 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
|
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 30. Okt. 2013 09:48 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, danke für Deine Antwort. Zitat: Original erstellt von CADmium: kann der Font des vom Text referenzierten Textstils die Zeichen überhaupt ????also bei mir klappt (entmake (list (cons 0 "text") (cons 10 '(0 0 0)) (cons 40 0.0) (cons 1 "\\U+03C0\\U+04B4\\U+04C3") (cons 41 0.0))) wenn der aktuelle Stil z.b. den Font "Arial Unicode MS" referenziert ...
Ich verwende für meinen Test die Schrift Arial. Deine Zeile (entmake ...) funktioniert bei mir mit Arial auch. Ich muss somit meine firmeninterne Besonderheiten durchgehen. Ich melde mich wieder. Viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 30. Okt. 2013 10:56 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich bin jetzt einen Schritt weiter. Aus firmeninternen Gründen besteht unser Text aus Einzelbuchstaben, die zu einem Block zusammengefügt und als Objekt Insert in der Zeichnung verwendet wird. Ich habe deshalb im ersten Schritt die Unicode-Zeichen so in meinem Lisp-Code berücksichtigt: (setq cbust (substr ctxt izler 1)) ; Buchstabe (if (and (= cbust "\\") (= (substr ctxt (+ izler 1) 1) "U") (= (substr ctxt (+ izler 2) 1) "+")) ; Unicode berücksichtigen (progn (setq ilenunicode 7) (setq cbust (substr ctxt izler ilenunicode)) ; Buchstabe Unicode (setq izler (+ izler (- ilenunicode 1))) ) ; progn ) ; if Im zweiten Schritt muss ich noch die Schreibrichtung bei arabischen Zeichen (von rechts nach links) berücksichtigen. Im Moment stimmt die Reihenfolge der arabischen Buchstaben noch nicht (siehe Anlage). Leider habe ich noch keine Idee, wie ich das bewerkstelligen kann? Wie kann ich die Schreibrichtung bei arabischen Zeichen (von rechts nach links) berücksichtigen? Danke im Voraus und viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 30. Okt. 2013 11:16 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
|
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 30. Okt. 2013 11:30 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, Zitat: Original erstellt von CADmium: (apply 'strcat(mapcar 'chr(reverse(VL-STRING->LIST "ABCDEF")))) --> "FEDCBA"
Du bist schon einen Schritt zu weit für mich. Ich muss zuerst eine Möglichkeit finden, ob es sich überhaupt um ein arabisches Zeichen handelt. So nach dem Motto: if (and (>= cbust "\U+?????") (<= cbust "\U+?????")) (setq sarabisch t) (setq sarabisch nil) ; else ) ; if Danach kann ich Deine Code-Zeile verwenden. Viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 04. Nov. 2013 10:17 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe es jetzt unter Berücksichtigung meiner firmeninternen Vorgaben so gemacht, dass der Text aus der Editbox vor dem Zeichnen nach Unicode-Zeichen untersucht wird (siehe Anlage). Dadurch funktionieren die Unicode-Zeichen inklusive der Schreibrichtung für arabische Zeichen. Viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |