Leaderboard

You could look for a point at each vertice and see what layer it is, the only question is the 1st point always the correct layer ? You could possibly use (ssget pt '((0 . "POINT"))) for each vertice. Post a dwg.

;; Change this (foreach x b (entdel (last x)) (setq r (vl-remove x r))) ;; to this (foreach x b (append (entget (last x)) '((8 . "Duplicate"))) (setq r (vl-remove x r)))

Entmake way. First, a classic style, second for annotative Text style. (entmakex '( (0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "My TEXT") (70 . 0) (40 . 0.0);<- text height not defined (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.0) (3 . "arial.ttf") (4 . "") ) ) (entmakex '( (0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "My TEXT") (70 . 0) (40 . 2.2);;<- text height (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.2) (3 . "arial.ttf") (4 . "") (-3 ("AcadAnnotative" (1000 . "AnnotativeData") (1002 . "{") (1070 . 1) (1070 . 1) (1002 . "}") ) ) ) )

(setvar "TEXTSTYLE" "STANDARD") or (vla-put-activetextstyle (vla-get-activedocument(vlax-get-acad-object)) (vla-item (vla-get-textstyles(vla-get-activedocument(vlax-get-acad-object))) "STANDARD" ) ) or (vla-SetVariable (vla-get-activedocument(vlax-get-acad-object)) "TEXTSTYLE" "STANDARD" )