EXTRAER BLOCK DE TABLA
2 participantes
Página 1 de 1.
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!!
![EXTRAER BLOCK DE TABLA Tt10](https://i.servimg.com/u/f62/19/88/78/15/tt10.jpg)
![EXTRAER BLOCK DE TABLA Tt10](https://i.servimg.com/u/f62/19/88/78/15/tt10.jpg)
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: EXTRAER BLOCK DE TABLA
Copia la tabla y la explotas :-P
Del codigo que subí tendrías que hacer lo siguiente:
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.
Marco Jacinto- Mensajes : 104
Fecha de inscripción : 12/08/2016
Re: EXTRAER BLOCK DE TABLA
Muchas Gracias, Marco Jacinto, lo voy a intentar...
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: EXTRAER BLOCK DE TABLA
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
(setq aDoc (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
(vla-ObjectIDToObject aDoc Id) ---- Convierte el Objeto Id a Bloque
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: EXTRAER BLOCK DE TABLA
Excelente, que bueno que te resulto, un buen detalle, no necesario, pero un buen detalle, sería postear aquí el resultado.
Saludos
Saludos
Marco Jacinto- Mensajes : 104
Fecha de inscripción : 12/08/2016
Re: EXTRAER BLOCK DE TABLA
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
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
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: EXTRAER BLOCK DE TABLA
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
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
Marco Jacinto- Mensajes : 104
Fecha de inscripción : 12/08/2016
![-](https://2img.net/i/empty.gif)
» Insertar Block en Tabla
» Extraer contenido de comando LIST en un .txt
» Tabla de Puntos
» Tabla de coordenadas de puntos
» tabla con visual lisp
» Extraer contenido de comando LIST en un .txt
» Tabla de Puntos
» Tabla de coordenadas de puntos
» tabla con visual lisp
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.