AutoCad - Este Autolisp de TEXTOS me da error

Buenas Tardes:

He localizado este programa en autolisp que se supone que centra textos en tablas. Según elcreador, que lo ha subido y compartido en Youtube, centra desde un solo texto a varios textos a la vez. El en el video, lo hace muy facil. Pero a mi el programa me da error. Estoy usando Autocad 2016.

Pongo aquí todos los datos, para si alguien puede ayudarme.

El programa, es este:

(defun crear-region ()
(setq int_reg t_insert)
(vl-cmdf "._-boundary" int_reg "")
(command "region" "last" "")
(SETQ entidad (entlast))
(setvar "filedia" 0)
(setq osnap_mode (getvar "osmode"))
(setq osnap_mode (getvar "osmode"))
(setvar "osmode" 0)
(setq obj (vlax-ename->vla-object entidad))
(setq m_centroid
(vlax-safearray->list
(vlax-variant-value (vla-get-Centroid obj))
)
)
(entdel entidad)


(setvar "filedia" 1)
(setvar "osmode" osnap_mode)
)

(vl-load-com)

(princ "\n\tc:FUNCIONA TECLEANDO \"cent\"")
(princ)

(defun c:cent ()
(setvar "cmdecho" 0)
(setq sst (ssget '((0 . "TEXT"))))
(setq cont (sslength sst))
(setq ini 0)
(princ "\n")
(while (< ini cont)
(setq entidad-t (ssname sst ini))
(setq obj-t (vlax-ename->vla-object entidad-t))
(setq
t_insert (vlax-safearray->list
(vlax-variant-value (vla-get-InsertionPoint obj-t))
)
)

(crear-region)
(vla-put-Alignment obj-t 10)
(vla-put-TextAlignmentPoint
obj-t
(vlax-3D-point m_centroid)
)


(setq ini (1+ ini))
)
(setvar "cmdecho" 1)
)


El creador original es AutoCAD Fast & Easy, que al parecer programa sus propias utilidades. En el video, la gente a comentado que no le funciona, pero no responde. Por eso pongo la consulta por aqui.

Pongo enlace al video en cuestión, por si queréis ver el programa en acción.
es este: https://www.youtube.com/watch?v=f4WC25Ozg_Y
El titulo del video es centrar textos con autolisp.

Gracias por vuestro tiempo y al que pueda ayudarme. Muchas gracias.

Es un código poco ortodoxo y tiene muchas cosas redundantes.... pero funciona bien!

Viendo el código solo se me ocurren dos cosas para que a mi me funcione y a vos no.

1-Que lo estés corriendo en un autocad en español (porque en el codigo se ve que el comando region está en inglés)
2-Que el tipo de los objetos no sea texto simple (aunque eso lo notarías porque no te seleccionaría los textos)

Si tienes cad en español solo agrégale un guin bajo antes del comando "region" y la opción "last", es decir, que la línea que dice
(command "region" "last" "")
uede así
(command "_region" "_last" "")
Eso hará que funcione en atuocad en cualquier idioma

Y si lo estás corriendo en autocad en inglés y te falla, podrías subir el dwg donde falla para revisar donde es que se traba

Gerardo muchísimas gracias.

No se como se me ha podido pasar algo tan sencillo como eso. He programado algo en Autolisp, pero no había caído.

Efectivamente estoy ejecutando el programa en un Autocad en Castellano y le faltaban los guiones a los comandos Region y Last.
Lo de comprobar los textos, ya lo había dicho el autor en la única respuesta que había dado en los comentarios de Youtube.

No me creía que en tan pocas lineas, el programa pudiese encontrar el centro de gravedad de las regiones que formaban las polilíneas de la tabla....

Eternamente agradecido... ya me has ayudado en varias consultas que he puesto en el foro. Este programa me vale para unas cosas, pero voy a intentar hacer otra version que una vz que tenga el punto medio del texto, me pida un punto a donde quiera mover el mismo.
A ver si lo consigo.

Gracias.