---

VLE1.jpg VLE2.jpg

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

---

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

---

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

---

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

---

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 ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

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

---

UC.jpg

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

---

(apply 'strcat(mapcar 'chr(reverse(VL-STRING->LIST "ABCDEF"))))  --> "FEDCBA"

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

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

---

text_unicode_ermitteln.lsp

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