Make layers from text string

[neam]

Hi everyone

How to create layers name from right to left text language?

Style=Arial

Keyboard=Persian

[neam]

This can be done by edit text and ctrl+c then paste to new layer name in layer box.
But this is done by Lisp, the pasted text in the layer box is corrupted.

[komondormrex · Accepted solution]

hey,

check if this helps

(vl-catch-all-apply 'vla-add (list (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (cdr (assoc 1 (entget (car (entsel "\nPick to add layer text: ")))))))

[Sea-Haven · Accepted solution]

Maybe try also  going old fashioned

(command "-layer" "M" (cdr (assoc 1 (entget (car (entsel "\nPick to add layer text: "))))) "")