EXTRAER BLOCK DE TABLA

Un cordial saludos amigo en un post anterior consulte el como insertar un bloque en una tabla a hora la consulta es todo lo contrario, como se puede hacer para extraer un bloque de una tabla, alguien que tenga la amabilidad de Ayudar!!

Copia la tabla y la explotas :-P

Del codigo que subí tendrías que hacer lo siguiente:

Código:

extraer la funcion que obtiene la celda donde haces click
checar el tipo de celda, debe ser acBlockCell
Si lo es obtener el BlockTableRecordId
Convertir el objectID al objeto bloque
Obtener el nombre del bloque
Insertar el bloque.


Muchas Gracias, Marco Jacinto, lo voy a intentar...

Muchas Gracias Marco, funcionó a la perfección la excelente recomendación...

(setq aDoc (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))

(vla-ObjectIDToObject aDoc Id) ---- Convierte el Objeto Id a Bloque

Excelente, que bueno que te resulto, un buen detalle, no necesario, pero un buen detalle, sería postear aquí el resultado.

Saludos

Muy bien Estimado Marco
De esta manera es como lo hago
(vl-load-com)
(setq aDoc (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
(setq tabla (vlax-ename->vla-object (CAR (ENTSEL))))
(setq aObjId (vla-GetBlockTableRecordId tabla 2 0))
(setq aObj (vla-ObjectIDToObject aDoc aObjId))
(vlax-get-property aObj "Name")

Con esta rutina extraes el nombre del bloque ubicado en la Fila 2 Columna Cero

Checa este código, hace la selección de la celda directamente en el dibujo, como lo explicaba en el pseudocódigo de arriba e inicia inmediatamente el comando insert con el bloque de la celda.

http://mcommands.blogspot.mx/2018/05/la-de-contiene-insertar-el-ellas.html

El nombre del link quedó algo raro y ya no supe como cambiarlo :-(

Saludos