Leaderboard

Maybe use overkill on that polyline then see if that helps.

If you use the region command it gives you a clue as to why it won't work:

The mhupp command works fine, in fact the polyline in question has repeated vertices. I have created a program to remove duplicate vertices from polylines, but it is much easier to use the BOUNDARY command in this case.

Still works. maybe what your selecting isn't a poly or closed all the way. I know if you try to region a open poly in BricsCAD it just deletes it

Works for me. tho I have other lisp that have this already add (vl-load-com) vl-load-com is need with commands that start with vla, vlax, vlr or it will error out. (defun C:foo () (vl-load-com) (setq poly_p (entsel "\nSelecciona una parcela exterior: ")) (setq nombre_ent (car poly_p)) (setq obj_n (vlax-ename->vla-object nombre_ent)) (vlax-invoke (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) 'addregion (list obj_n)) (princ) )

You're welcome anytime.

Just to elaborate on RKMcSwain's code, this filters out non-text entities and allows for errors in input: (defun c:chgtxt (/ ht ss) (vl-load-com) (if (and (setq ht (getdist "\nSpecify New Text Height: ")) (setq ss (ssget '((0 . "*TEXT"))))) (foreach x (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (entmod (subst (cons 40 ht) (assoc 40 x) x)))) (princ))

I'm assuming that you are posting this as code for others to use, so I'm moving this thread to the Autolisp Archive forum Allow me to make a few changes for consideration... 1. declare variables local 2. restore cmdecho value that was set, not just set it to 1 3. use (getdist) in text height prompt so user can pick height 4. Add c: prefix so the parenthesis are not needed to call this function (defun C:chgtext1 (/ CMDECHO CONLIST ENT NAME NEWHT NEWLIST OLDLIST SS1) (setq cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (setq newht (getdist "\n Enter new text height; ")) (princ "\nSelect text: ") (setq ss1 (ssget)) (setq name (ssname ss1 0)) (setq ent (entget name)) (setq oldlist (assoc 40 ent)) (setq conlist (cons (car oldlist) newht)) (setq newlist (subst conlist oldlist ent)) (entmod newlist) (setvar "cmdecho" cmdecho) (princ) )