Home Downloads Fóruns Pesquisas Sua Conta
Navegação
icon_home.gif HomeNovo conteúdo !
· Forums
· Equipe/Team
· CADklein BLOG
· CADKlein Podcast
· Boletins CADKlein
· Galeria/Gallery
· Contato/Contact
· Recomende-nos

icon_vip.gif Membro VIPNovo conteúdo !Show/Hide content
· InformaçõesNovo conteúdo !

icon_usuarios.gif UsuáriosShow/Hide content
· Sua Conta/Account
_SOMRESTRICTEDMEMBERS Msg Privadas
_SOMRESTRICTEDMEMBERS Members_List
favoritos.gif NewsShow/Hide content
_SOMRESTRICTEDGROUP News Submission
· News Topics
· News Archive
som_downloads.gif DownloadsNovo conteúdo !Show/Hide content
· DownloadsNovo conteúdo !
icon_estatisticasl.gif InformaçõesShow/Hide content
· Pesquisas/Surveys
_SOMRESTRICTEDMEMBERS Estatísticas
· Top 10
som_downloads.gif LinksShow/Hide content
· Web LinksNovo conteúdo !
utils.gif UtilitáriosShow/Hide content
· conversor
icon_comunidade.gif EquipeShow/Hide content
· Administração do site
· Forums
nuke.gif Comunidade

CADKLein no Yahoogrupos
Faça parte de nossa lista de discussão no Yahoogrupos,
Grupo CADKLEIN.

Simplesmente digite o seu email no campo abaixo:

User Menu
Bem-vindo

Visitante

Apelido
Senha
Fazer Registro

Usuários:
Último(a): emarkes
Pendente(s): 44
Hoje:: 0
Ontem: 6
Total: 21995

On-line Agora [17]:
Visitantes: 16
Cadastrados: 1
Usuário On-Line:
01: Ver o Perfil do Usuário CFerreirinha  Enviar uma mensagem privada para CFerreirinha  cferre... - 452 pts

01: Verificar o IP com o Protector System 67.195.xxx.xxx
02: Verificar o IP com o Protector System 66.249.xx.xx
03: Verificar o IP com o Protector System 38.107.xxx.xx
04: Verificar o IP com o Protector System 95.108.xxx.xxx
05: Verificar o IP com o Protector System 65.55.xx.xxx
06: Verificar o IP com o Protector System 72.14.xxx.xxx
07: Verificar o IP com o Protector System 220.181.xxx.xx
08: Verificar o IP com o Protector System 72.14.xxx.xx
09: Verificar o IP com o Protector System 220.181.xxx.xx
10: Verificar o IP com o Protector System 38.107.xxx.xx
11: Verificar o IP com o Protector System 38.107.xxx.xx
12: Verificar o IP com o Protector System 38.107.xxx.xx
13: Verificar o IP com o Protector System 207.46.xx.xxx
14: Verificar o IP com o Protector System 38.107.xxx.xx
15: Verificar o IP com o Protector System 58.61.xxx.xxx
16: Verificar o IP com o Protector System 174.133.xxx.xx

Páginas Vistas:
Hoje: 1107
Total: 9015695

Google Ads

CADKLEIN: Forums

CADKLEIN :: Exibir tópico - Gerar roteiro perimétrico de um poligono
Main  •  FAQ  •  Search  •  User Groups  •  Profile  •  Members List  •  Private Messages
Arcade  •  Attachments  •  Buddy List  •  Ranks  •  Rules  •  Smilies List  •  Statistics  •  Staff


Gerar roteiro perimétrico de um poligono

 
Novo Tópico   Responder Mensagem    CADKLEIN - Índice do Fórum -> AutoCAD 2D Exibir página para Impressão
Exibir mensagem anterior :: Exibir próxima mensagem  


Autor Mensagem
ClaudioPaixao
Bronze
Bronze


Registro: Nov 01, 2003
Mensagens: 34


Status: Offline

MensagemEnviada: Qua 24 Set 2008 7:08:43 pm    Assunto: Gerar roteiro perimétrico de um poligono Responder com Citação Scroll Down to Next postGo to last Post of Page

Boa noite,

Trabalho com mapeamento de áreas, e constantemento tenho que fazer roteiros de poligonos ou seja, cotar os ângulos entre vértices com AZIMUTES e DISTÂNCIAS.

Gostaria de obter um rotina que pudesse facilitar esse trabalho, o que é muito cansativo em casos que este poligono tem inumeras vértices.

Se alguém conhecer alguma, e puder me passar, agradeço muito.


----------------------
Claudio Paixão

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular

Autor Mensagem
FELIXJM
Bronze
Bronze


Registro: Sep 22, 2003
Mensagens: 91


Status: Offline

MensagemEnviada: Qui 25 Set 2008 10:09:39 am    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Veja se é isto que está precisando.


http://www.amicrocad.com.br/Downloads/AZMT.ZIP


OK.

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular

Autor Mensagem
ClaudioPaixao
Bronze
Bronze


Registro: Nov 01, 2003
Mensagens: 34


Status: Offline

MensagemEnviada: Qui 25 Set 2008 3:59:01 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Caro FELIXJM,


Está tbm é uma ótima rotina, e tem me ajudado muito.
Ma so que procuro não é isso precisamente.
A rotina a qual vc indica, simplismente uso AZIMUTE E DISTÂNCIA para gerar um polígono. O que necessito é o contrário. Preciso de uma que desenhe os AZIMUTES E DISTÃNCIAS de um poligono já feito, ou seja, gere o roteiro das vértices deste poligono, cotando AZIMUTE E DISTANCIA, de cada linha.

... mas muito obrigado pela atenção e o intuito de ajudar.

Valeu, abraços

------------------------------
Arrow Claudio Paixão

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular

Autor Mensagem
Ismaeldoxp
Ouro
Ouro
Image Hosted by ImageShack.us
" alt="" border="0" />

Registro: Apr 20, 2007
Mensagens: 269


Status: Offline

MensagemEnviada: Qui 25 Set 2008 4:08:26 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

caro amigo, pelo o que eu entendi vc quer uma rotina que mostre pra vc a distãncia e a azimute em um polígono que ja está criado, não é? se for isso eu ja passei isso pra vc a uns dias atras, ai está novamente.

Código:

;=====inicio====

(princ "tDigite azimute p/ara iniciar ")
(defun c:azimute ()
 (setvar"cmdecho" 0)
 (command "osmode" 0)
 (command "angbase" 270)
 (command "angdir" 1)
 (setq flagv "falso")
 (setq controle 0)
 (setq controle1 0)
 (setq contador 0)
(while (= flagv "falso")
 (setq mostre (entsel "Selecione uma Polyline <2d> : "))
 (setq linha (entget (car mostre )))
 (setq verificador (cdr(assoc 0 linha)))
 (if (= verificador "LWPOLYLINE")
  (progn
   (setq verif (cdr (assoc 70 linha)))
   (setq flagv "verdade")
  )
  (princ "tNão é Polyline !! ")
 )
)
 
 (setq controle1 (length linha))
 (setq amostra '())
  (repeat controle1
   (setq x (caar linha))
   (if (= x 10)
    (progn
     (setq item (car linha))
     (setq amostra (cons item amostra))
     (setq contador (1+ contador))
    )
   )
   (setq linha (cdr linha))
  )
  (setq amostra1 (reverse amostra))
  (if (= verif 1)
   (setq  amostra (cons (car amostra1)  amostra))
   (setq contador (1- contador))
  )
  (setq controle contador)
  (repeat controle
   (setq PTO1 (cdr(car amostra)))
   (setq PTO2 (cdr(car(cdr amostra))))
   (AZIMUTAR)
   (setq amostra(cdr amostra))
  )
  (princ)
)
(defun AZIMUTAR ()
 (setq padroes (getvar "osmode"))
 (setvar"cmdecho" 0)
 (command "osmode" 0)
 (setq  A  PTO1)
 (setq  B PTO2)
 (setq  C  "m - Az  ")
 (setq  D  (angtos (angle A B) 1 4))
 (MUDAR)
 (setq  E (rtos (distance A B) 2 0))
 (setq DADO (strcat E C PALAV))
 (PARALELO)
 (command "text" "j" "mc" ponto_meio 2.5 inicio dado )
 (command "osmode" padroes)
)
(defun PARALELO   ()
 (setq  A1  (polar A (+ (/ pi 2)(angle B A )) 2))
 (setq  B1  (polar B (+ (/ pi 2)(angle B A )) 2))
 (setq ptx (/    (+ (car B1) (car A1)) 2))
 (setq pty (/    (+ (cadr B1) (cadr A1)) 2))
 (setq ponto_meio (list ptx pty))
 (if (< (car A1)(car B1))
  (setq inicio  B1)
  (setq inicio A1)
 )
)
(defun MUDAR ()
 (setq XL 2)
 (setq  J "d")
 (setq COM1 (substr D 1 1))
 (while (< XL   5)
  (setq LETRAT (substr D XL 1))
  (setq RESTOT (substr D (+ 1 XL) ))
  (if  (= LETRAT J)
   (progn (setq J "%%d")
    (setq  XL 6)
    (setq  PALAV (strcat  COM1  J   RESTOT))
   )
  )
  (setq  COM1 (strcat  COM1 LETRAT ))
  (setq XL (1+ XL))
 )
)
(defun RTD ()
 (/ (* (angle A B) 180) Pi)
)
(defun DTR (AZIMUTE)
 (* (/ AZIMUTE 180) Pi)
)
;==== fim===




Caso não seja desconsidere.

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular

Autor Mensagem
ClaudioPaixao
Bronze
Bronze


Registro: Nov 01, 2003
Mensagens: 34


Status: Offline

MensagemEnviada: Sex 26 Set 2008 10:43:04 am    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous postScroll Down to Next postGo to last Post of Page

Caro Ismaeldoxp,

Interessante essa Rotina, é o que precisava.
Caso você queira melhorar ela ainda mais, o que facilitaria ainda mais o trabalho que ela reduz, e no quesito de dar opção de tamanho de texto, o que poderia dar opção de digitar o tamanho desejado, e nesta é fixado um valor de 2.5 como mostra.

"(PARALELO)
(command "text" "j" "mc" ponto_meio 2.5 inicio dado )
(command "osmode" padroes) ".

Outra melhoria que poderia ser feita, é em relação ao sentido em que é gerado os azimutes do poligono, o que poderia tbm ser opcional.
Neste, simplismente gera no oposto ao sentido da criação do polígono.


....mas muito obrigado.

Abraços,

_______________
Claudio Paixão

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular

Autor Mensagem
operacoes



Registro: Apr 24, 2008
Mensagens: 1


Status: Offline

MensagemEnviada: Ter 16 Jun 2009 2:30:23 pm    Assunto: Responder com Citação Go to Top of PageScroll Up to Previous post

BLZ?
Muito bacana esta lisp, era o que precisava, mas precisaria que ele me informe a distancia com 3 casas decimais apos a virgula.....
Sds

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular

Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    CADKLEIN - Índice do Fórum -> AutoCAD 2D Todos os horários são GMT - 3 Hours
Página 1 de 1

Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.

Related topics
 Tópicos   Respostas   Autor   Exibições   Última mensagem 
Não há mensagens novas Como corrigir este erro= FATAL ERROR UNHANDLED C000000091h 5 emonteiro 3506 Sex 28 Set 2007 10:12:46 pm
USUARIOPC Exibir a última mensagem
Não há mensagens novas Nao consigo instalar o autocad2000 8 mankowsky 2325 Dom 31 Jul 2005 10:40:25 pm
tonisc Exibir a última mensagem
Este Tópico está Bloqueado. Você não pode editar mensagens ou responder Onde fazer Certificação em Autocad em Salvador? 4 adrssa 4034 Qui 09 Dez 2004 9:08:01 pm
Assis Exibir a última mensagem
Não há mensagens novas COMO FAZER PLT NO AUTO CAD 2002? 1 Fontanelli 2562 Qua 07 Jul 2004 1:54:33 pm
LuKlein Exibir a última mensagem
Não há mensagens novas como fazer um jpeg entra no mechanical ... 2 erickcouto 1747 Sex 12 Mar 2004 8:38:38 pm
hugopaulo Exibir a última mensagem
 


Powered by phpBB 2.0.10 © 2001-2003 phpBB Group

T-Platinum v.2.0.0 © TechGFX.com
Forums ©

Todos os logos e marcas registradas são propriedade de seus respectivos proprietários. Os comentários são propriedade e responsabilidade de seus autores,
todo o resto © 2002, 2003, 2004 e 2005 - Equipe CADKLEIN.
Você pode ter o conteúdo deste portal/fórum acessando os arquivos Backend?s (RSS) Conteúdo de nossos artigos em seu portal Conteúdo de nosso fórum em seu portal


PHP-Nuke Copyright © 2004 by Francisco Burzi. This is free software, and you may redistribute it under the GPL.
PHP-Nuke comes with absolutely no warranty, for details, see the license.
Powered by PHP-Nuke Platinum

Tempo para gerar esta página: 0.46 segundos
TechGFX