Topic: Retrieving Greek characters from Text objects

[iliekater]

I am trying to retrieve the text from some Text objects (single line texts) . My code seems to work fine , but when I'm doing this on texts that contain Greek characters , the retrieved text contains wrong characters in the position on the Greek ones . For Example , a "Γ1" text is retrieved as "a1" .
If it's useful , this is the code I am using :

Code: [Select]

  ( setq TextObjectFor_Name ( car ( entsel ) ) )
  ( setq vobject ( vlax-ename->vla-object TextObjectFor_Name ) )
  ( setq ActualString ( vla-get-textstring vobject ) )

[mhupp]

Use vl-string-translate

Code: [Select]

(setq vobject (vlax-ename->vla-object (car (entsel"\nSelect Text"))))
(setq ActualString (vla-get-textstring vobject))
(setq ActualString (vl-string-translate "abcdefghijklmnopqrstuvwxyz" "Γand other greek letters" ActualString))

Set a text with all the greek letters. use the vla-get-textstring on them and have it output to see what came though.
ignore the greek letters that made it thought without changing. add the letters that changed to first and then the greek letters 2nd. The source-set and dest-set need to be the same length

(vl-string-translate "ABCD" "1234" "ABCD_ABCDDDDABCD_ABCDCCC")
;; Returns "1234_12344441234_1234333"

--Edit---
 tho this would turn any A into Γ
 

[mhupp]

maybe try not non visual lisp way

Code: [Select]

(defun C:TEST (/ vobject ActualString)
  (Setq txt (car (entsel "\nSelect Text:")))
  (if (eq (cdr (assoc 0 (entget txt))) "TEXT")
    (setq ActualString (cdr (assoc 1 (entget e))))
    (prompt "\nThis Isnt Text")
  )
  (princ)
)

[VovKa]

but when I'm doing this on texts that contain Greek characters , the retrieved text contains wrong characters in the position on the Greek ones

what is your (getvar "SYSCODEPAGE") ?

[iliekater]

Hi . The above variable returns :
"ANSI_1253"

[VovKa]

do you get the same output when you run your code inside vlide and from autocad's command line?

[iliekater]

How can I run the code inside Vlide ? Is it possible ?

[VovKa]

http://www.lee-mac.com/tutorials.html#vlide

[mhupp]

Just saw this might give you the right output.
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/vla-get-textstring-u-symbols/td-p/4365165