Agregar INTERNOS consecutivos en bloques con campo definido en tabla de datos de objeto en AutoCAD MAP3D

[BriamR]

Buenas tardes Comunidad de expertos AUTODESK,

Quisiera saber si es posible enumerar automáticamente un campo de valor entero con nombre INTERNO_SENAL de una tabla OD con nombre SDM_SEN_SENALIZACION en AutoCAD MAP 3D a través de un LISP, sabiendo que al enumerar los bloques que representan señales verticales estos deben enumerarse desde un rango inicial hasta un rango final numérico, y que estos bloques tienen asociada una tabla OD (SDM_SEN_SENALIZACION) con dos campos:  INTERNO_SENAL y TIPO_SENAL, además de que el bloque dinámico que representa a los tipos de señal tienen atributos, los cuales la etiqueta con nombre INTERNO debe quedar igual que el valor del campo del OD INTERNO_SENAL; estuve investigando sobre este tema en los foros relacionados a manejo y gestión de OD desde AUTODESK y encontré material muy bueno pero al momento de adaptarlo a mi propuesta me genera error, les dejo el programa de código con el que me estuve apoyando y una pantallazo de como debe quedar un bloque de señal vertical, agradezco su ayuda de antemano.

(defun c: addid ()
(setq tn (getstring "\ nEntrar el nombre de la tabla:"))
(mensaje "Seleccionar señales") (princ)
(setq ss (ssget))
(setq len (sslength ss))
(setq inc 0 )
(repetir len
(setq enam (ssname ss inc))
(setq id (strcat (itoa (+ 1 inc))))
(setq idd id)
(ade_odaddrecord enam tn)
(ade_odsetfield enam tn "id" 0 idd)
(comando "chprop" enam "" "c" "

)
(alerta "Se actualizaron las entidades seleccionadas con INTERNO_SENAL")
(princ)
)

[pbejse]

Any day now...

----------------------------------------------------------------------------------------

The post Agregar INTERNOS consecutivos en bloques con campo definido en tabla de datos de objeto en AutoCAD M...  was moved by [ Administrator ]

Reason:
Thread was moved to the Spanish community forums

----------------------------------------------------------------------------------------

😁