Insertar Block en Tabla

Ir abajo

Insertar Block en Tabla

Mensaje por ronaldT el Lun Abr 02, 2018 4:28 pm

Buenos días Amigos, alguien que comparta como  insertar bloque en la tabla con rutina Lisp??



Con esta pequeña Rutina se puede ingresar Textos, la Pregunta como hago para Insertar un bloque de nombre especifico???

(defun tab_t (/)
(vl-load-com)
(setq p1 (getpoint))
(or adoc (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(setq acsp (if (= (getvar "CVPORT") 1) (vla-get-paperspace adoc)(vla-get-modelspace adoc)))
(setq objtable (vlax-invoke acsp 'Addtable p1 5 5 5 10 ))
(vla-settext objtable 0 0 "TABLE title")
(vla-settext objtable 1 0 "A")
(vla-settext objtable 1 1 "B")
(vla-settext objtable 1 2 "C")
(vla-settext objtable 1 3 "D")
(vla-settext objtable 1 4 "E")
(vla-settext objtable 2 0 "1")
(vla-settext objtable 3 0 "2")
(vla-settext objtable 4 0 "3")
(vla-setcolumnwidth objtable 0 15) ; 0 is first column
(vla-setcolumnwidth objtable 1 10)
(vla-setcolumnwidth objtable 2 15)
(command "_zoom" "e")
(princ)
)


Última edición por ronaldtroya el Mar Abr 03, 2018 4:54 am, editado 1 vez

ronaldT

Mensajes : 34
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por saulo2016 el Lun Abr 02, 2018 5:06 pm

Haber...checate este link:


http://www.lee-mac.com/blockcounter.html



Saludos
avatar
saulo2016

Mensajes : 139
Fecha de inscripción : 17/03/2016
Edad : 52
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por ronaldT el Lun Abr 02, 2018 5:27 pm

Está buena esta solución (estuve revisando antes de realizar esta consulta), pero son tantas Variables que maneja, que no he logrado comprender, si no es mucho pedir un ejemplo mas sencillo??

ronaldT

Mensajes : 34
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por ronaldT el Mar Abr 03, 2018 5:45 am

Revisando la rutina de Lee-mac

Complemento de La Rutina Usada como ejemplo
estas son mis conclusiones: debemos usar las siguientes rutinas

(defun count:setblocktablerecord ( obj row col blk )
   (eval
       (list 'defun 'count:setblocktablerecord '( obj row col blk )
           (cons
               (if (vlax-method-applicable-p obj 'setblocktablerecordid32)
                   'vla-setblocktablerecordid32
                   'vla-setblocktablerecordid
               )
               (list
                   'obj 'row 'col
                   (list 'count:objectid (list 'vla-item (vla-get-blocks (count:acdoc)) 'blk))
                   ':vlax-true
               )
           )
       )
   )
   (count:setblocktablerecord obj row col blk)
)



(defun count:acdoc nil
   (eval (list 'defun 'count:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
   (count:acdoc)
)



(defun count:objectid ( obj )
   (eval
       (list 'defun 'count:objectid '( obj )
           (cond
               (   (not (wcmatch (getenv "PROCESSOR_ARCHITECTURE") "*64*"))
                  '(vla-get-objectid obj)
               )
               (   (= 'subr (type vla-get-objectid32))
                  '(vla-get-objectid32 obj)
               )
               (   (list 'vla-getobjectidstring (vla-get-utility (count:acdoc)) 'obj ':vlax-false))
           )
       )
   )
   (count:objectid obj)
)


Con ello podemos usar

(count:setblocktablerecord objtable 1 0 "Nombre del Bloque")
Con esto ultimo podemos insertar un bloque en la table Creada

Si alguno Pudiera Simplificarlo sería mucho mejor


ronaldT

Mensajes : 34
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por Marco Jacinto el Lun Abr 09, 2018 12:18 am

Checa este post que recién hice, ya tenia la rutina, solo faltaba postearla.

http://mcommands.blogspot.mx/2018/04/block2cell.html

Saludos

Marco Jacinto

Mensajes : 52
Fecha de inscripción : 12/08/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por ronaldT el Lun Abr 09, 2018 8:28 pm

Muchas Gracias Marco

ronaldT

Mensajes : 34
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por Marco Jacinto el Lun Abr 09, 2018 8:39 pm

Supongo que te sirvió, saludos

Marco Jacinto

Mensajes : 52
Fecha de inscripción : 12/08/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por saulo2016 el Lun Abr 09, 2018 11:27 pm

A mi no ne funcionó....







Saludos
avatar
saulo2016

Mensajes : 139
Fecha de inscripción : 17/03/2016
Edad : 52
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por Marco Jacinto el Lun Abr 09, 2018 11:34 pm

¿que error te arrojó?

Marco Jacinto

Mensajes : 52
Fecha de inscripción : 12/08/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por saulo2016 el Mar Abr 10, 2018 3:34 pm

avatar
saulo2016

Mensajes : 139
Fecha de inscripción : 17/03/2016
Edad : 52
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por Marco Jacinto el Mar Abr 10, 2018 5:13 pm

Ya actualice el código, el error estaba en que buscaba la variable mu:thisdrawing antes de que se estableciera.

Saludos y gracias por el dato.

Marco Jacinto

Mensajes : 52
Fecha de inscripción : 12/08/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por saulo2016 el Mar Abr 10, 2018 6:47 pm

Listo.....ya quedó!!!

Me es muy util tu rutina

Gracias

Saludos
avatar
saulo2016

Mensajes : 139
Fecha de inscripción : 17/03/2016
Edad : 52
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por Marco Jacinto el Mar Abr 10, 2018 7:11 pm

Excelente, un placer colaborar

Marco Jacinto

Mensajes : 52
Fecha de inscripción : 12/08/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Insertar Block en Tabla

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.