Tenha uma nova experiência ao navegar no Fórum pelo computador de forma integrada ao portal principal. Acesse o seguinte link: https://www.autolisp.com.br/board/. Entretanto para dispositivos móveis recomendamos acessar este outro link: https://www.autolisp.com.br/forum/

Como setar o ângulo do texto

Dúvidas sobre VB para AutoCAD...

Moderador: Moderadores

Responder
Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Como setar o ângulo do texto

Mensagem por Rogerio » Qui 14 Out 2004 3:21:24 pm

Pessoal, uma pergunta que parece ter uma solução simples, mas eu não sei ainda.

Exisite alguma forma de setar o ângulo do texto sem ser como abaixo?

(command "text" "0,0" "" "0" "")

Ou alguma variável?

Na lisp TW, acontece às vezes de o ângulo do texto estar a 90º, o q gera erros.

[]´s,

Rogério

Avatar do usuário
ronaldoalmeida
Bronze 2/3
Bronze 2/3
Mensagens: 200
Registrado em: Qui 07 Out 2004 12:00:00 am
Localização: Florianópolis-SC

Mensagem por ronaldoalmeida » Qui 14 Out 2004 4:37:40 pm

Use a expressão:
(entmod lent (subst (cons 40 5.0)(assoc 40 (entget ent))(entget ent))))
ent - ename de uma entidade TEXT existen
40 - código DXF de altura
5.0 - nova altura para substituir a existente
Acho que para o angulo o código DXF é 50 e o angulo deve ser em radiano.
ronaldo

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Sex 15 Out 2004 8:52:01 am

Valeu pela dica, Ronaldo.

O código dxf para a altura é 50 mesmo.

[]´s,

Rogério

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Sex 15 Out 2004 8:52:17 am

Valeu pela dica, Ronaldo.

O código dxf para o ângulo é 50 mesmo.

[]´s,

Rogério

Avatar do usuário
clxramos
Madeira
Madeira
Mensagens: 14
Registrado em: Ter 25 Out 2005 11:00:00 pm

Mensagem por clxramos » Qui 29 Jun 2006 3:15:24 pm

Amigo, crie uma getstring e insira o nono ãngulo.

Exemplo:

(setq NAng(getstring"\nNovo ângulo: "))
(command "TEXT" blá... NAng blá...)

Assim ele vai buscar o novo ângulo em NAng e vai escrever para vc, como vc já sabe.

Fui !!!!!!!!!!!

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qui 29 Jun 2006 4:18:33 pm

Valeu.

Muito obrigado.

:)


Rogério

Responder