Hi all,
I have written a simple routine to convert "Unicode"s to equivalent "character"s
It is as following:
(defun MT:Conv:Unichar->Char ;added: 94/12/12
(%unichar% / *ret*)
(command "_.TEXT" '(0 0) "0.3" "0" %unichar%)
(setq *ret* (cdr (assoc 1 (entget (entlast)))))
(entdel (entlast))
*ret*
)
Example:
(MT:Conv:Unichar->Char "\\U+0647") -- returns --> "ه"
Is there any way to define a function to do the reverse?
I mean, it gets "character" as arguments and returns equivalent "Unicode"?
I appreciate any help or suggestions.