boas pessoal..
preciso de um script que altere as layers todas de um desenho para uma cor e expessuras á minha escolhas e que logo de seguida coloque algumas layers com que trabalho com uma cor diferente e com a respectiva expessura..
preciso de algo deste género.... (command "layer" "m" "layer_1" "c" "56" "" "")...mas este cria a layer com a côr 56......mas era deste tipo que pretendia.
Obrigado
Solucionado! Ir para Solução.
Solucionado por nmareis. Ir para Solução.
Solucionado por hmsilva. Ir para Solução.
Olá nmareis,
qual a cor e expessura para todas as layers, quais os nome da layers que trabalhas, cor e expessura?
Henrique
preciso apenas de um exemplo...depois eu adapto ás minhas necessidades...obrigado
Só mais uma pergunta, com"script" queres dizer um ficheiro .scr ou pode ser uma rotina de lisp?
Henrique
Aqui vai...
(defun c:demo (/ lay process) (defun process (la col lwt / trc) (if (= (vla-get-Lock la) :vlax-true) (progn (vla-put-Lock la :vlax-false) (setq trc (vla-get-truecolor la)) (vla-put-colorindex trc col) (vla-put-truecolor la trc) (vlax-release-object trc) (vla-put-Lineweight la lwt) (vla-put-Lock la :vlax-True) ) (progn (setq trc (vla-get-truecolor la)) (vla-put-colorindex trc col) (vla-put-truecolor la trc) (vlax-release-object trc) (vla-put-Lineweight la lwt) ) ) ) (vlax-for Layer (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) (cond ((wcmatch (strcase (vla-get-Name Layer)) "LAYER A,LAYER B") (process layer 3 acLnWt020) ) ((wcmatch (strcase (vla-get-Name Layer)) "LAYER C,LAYER D") (process layer 6 acLnWt020) ) ((wcmatch (strcase (vla-get-Name Layer)) "LAYER E,LAYER F") (process layer 4 acLnWt020) ) (T (process layer 1 acLnWt009) ) ) ) (princ) )
em que
((wcmatch (strcase (vla-get-Name Layer)) "LAYER A,LAYER B");; escreve o nome das layers em maiusculas
(process layer 3 acLnWt020);; 3 é a cor e acLnWt020 a expessura 0.2
)
e
(T
(process layer 1 acLnWt009);; todas as outras na cor 1 e expessura 0.09
)
Espero que ajude
Henrique
Acho que ajuda mesmo...obrigadão....hoje já não tenho tempo mas amanhã vou tratar disso e vou experimentar depois dou o feedback...mais uma vez um muito obrigado.
Não funcionou como lisp. Funcionou como script mesmo, copiei o conteúdo e colei no "command line" do Autocad. Muito bom mesmo. Obrigado também.
Não encontrou o que está procurando? Pergunte à comunidade ou compartilhe seu conhecimento.