Macro para AutoCAD Mecânica para rotação de texto

[Superignazzio]

Olá a todos, eu precisaria de ajuda ou orientação para criar botões especializados para o tópico macro em autocad mecânica 2010.
o que eu tenho que fazer é criar um botão que, seleccionado um texto as rodas 90° com pino o aperto de inserção

 

[GP.]

para a criação de botões veja aqui: http://www.speculumatrum.it/cad_pulsanti.htmlum symilmacro a ser atribuído para a rotação do texto poderia ser este (em lisp): ↑c(setq txt (entsel "selezionare il testo da ruotare")) (command "_rotate" txt "" (cdr (assoc 10 (entget (car txt))))))) "90")No entanto, você não seria capaz de repetir o comando enviando, então seria melhor atribuir ao botão o lançamento de um lisp como este:
(diversão c:ruotatosto (/txt)
(setq txt (entsel "\nselezionare il testo da ruotare"))
(se (= (cdr (assoc 0) "texto")
(command "_rotate" txt "" (cdr (assoc 10 (entget))) "90")
)
)Se, em vez disso, os textos a serem selecionados para rotação de 90° fossem mais de um, você poderia usar um lisp como este:
(defunção)
(prompt "\nselezionare and testi da ruotare")
(setq txt (sget '(0 . "text")))))
(setq cont -1)
(repete (comprimento txt)
(setq txt1 (ssname txt (setq cont (1+ cont))))))
(command "_rotate" txt1" (cdr (assoc 10 (entget txt1)) "90")
)
)

 

[Mauro76]

Olá, excelente explicação. e se eu quiser girar o texto com base em uma linha de referência? como uma "cópia de formato" que dá ao texto o mesmo ângulo de uma linha selecionada anteriormente.

Obrigado.

 

[GP.]

Eu respondo agora porque eu não seguir o fórum mecânico e só hoje eu tenho o email de notificação.

...se eu quisesse girar o texto com base numa linha de referência? como uma "cópia de formato" que dá ao texto o mesmo ângulo que uma linha previamente selecionada.

é uma função egregious de torient (expresstools), mas também joga o olho sobre este lisp: http://www.lee-mac.com/objectalign.htmlpara não reinventar a roda... - Sim.

 

[Mauro76]

inventar a roda.. Posso pensar nisso, sabes? Acho que não me expressei muito bem. Em resumo eu tive que calcular a inclinação de um parque de estacionamento cujas cotas foram obtidas de uma detecção com uma ferramenta de GPS. Eu fodi alguns lsp para o cálculo do canto, clicando na linha a inclinação foi calculada automaticamente e ao mesmo tempo foi escrito e colocado paralelo à linha. uma pequena coisa que para os mais experientes poderia ser simples, mas para mim foi realmente a descoberta da roda de ahahahah de qualquer maneira eu parabenizo você e todos aqueles que espalham o conhecimento neste fórum facilitando o trabalho das pessoas e estimulando o desejo de melhorar (além disso, para dominar sobre os colegas de escritório que estão em níveis de tecnigraph) :