Programs that draw it for you!






22 November 2017

Welcome, Visitor

Powered By

lusovps.com
Visitor Access





Alterar larguras de colunas em tabelas


scamaru

Olá a todos,
Tenho muitos desenhos com tabelas de 4 colunas (HEADER), já inseridas.
Preciso de um código que solicite ao usuário a seleção da tabela e altere a largura das 4 colunas, com valores diferentes para cada uma.

Alguém pode me ajudar?

Obrigado pela atenção.

Dude

Completo e testado:

;---------------------------------------------
(defun c:tab()
(vl-load-com) ;para usar activex
(setq *ModelSpace* (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-Acad-Object)))); para identificares o model do desenho
(setq *Desenho* (vla-get-ActiveDocument (vlax-get-Acad-Object))) ; para identificares o desenho

(setq lar_1 (getreal "Largura 1º Coluna?"))
(setq lar_2 (getreal "Largura 2º Coluna?"))
(setq lar_3 (getreal "Largura 3º Coluna?"))
(setq lar_4 (getreal "Largura 4º Coluna?"))

(setq ss_tab (ssget ))
(setq conta 0) ;contador
(repeat (sslength ss_tab)
(setq vlaxobj (vlax-ename->vla-object (ssname ss_tab conta))); saberes a identificação em activex


(if (= (vlax-get-property vlaxobj "ObjectName") "AcDbTable")(progn ;actuar apenas sobre tabelas
(vla-setcolumnWidth vlaxobj 0 lar_1 )
(vla-setcolumnWidth vlaxobj 1 lar_2 )
(vla-setcolumnWidth vlaxobj 2 lar_3 )
(vla-setcolumnWidth vlaxobj 3 lar_4 )
))
(setq conta (+ conta 1))
)
)
;---------------------------------------------

Exclusivamente para tabelas de 4 colunas, mas facilmente se altera para tabelas com nº de colunas variável.

Espero que ajude!

Bons bonecos :)

scamaru

Dude,
Sua rotina rodou perfeitamente, será muito útil nos meus trabalhos.

Poderia me ajudar a montar algo para um número de colunas variável? Isso seria mais abrangente.

Desde já, agradeço imensamente sua ajuda.

Saudações.

... AutolisPro 2014



You must be registered to leave posts.


... AutolisPro is a project still under construction, we will try to implement as soon as possible all the missing features ! ...


At this starting fase, we are recruiting new programmers, if you are interested in investing in our project please contact us!


We want the site to be the most practical and functional. Your ideas and opinions are very important to us, please share them with us!


If you find any problem contact... webmaster Time to buil: 0 ... site online since October 2008... ... last update at 09/12/2014...