Brasilia e o AutoCAD 2013

0 milhões de comentários
Daniel, vou roubar o seu post, hehehe afinal eu também fotografei a maquete depois do curso de civil 3d:
Depois que vi a caixa do AutoCAD 2013 é que caiu a ficha!!

Do you want to know more?

Visual Lisp - Tabela de distâncias e azimutes

7 milhões de comentários

Ando meio sem assunto ultimamente, hehehe,

achei aqui uma lisp que eu fiz para um amigo uma vez, Creio que vai ser útil para muita gente!!

Ela faz o seguinte:

Ela pede a seleção de uma polilinha e em seguida desenha uma tabela com os alinhamentos da mesma, com numeração, comprimento e azimute de todos os segmentos da mesma. Fica assim:



Download dela já compilada A lisp é esta:

(defun c:plh (/ ent ss p1 p2 n file pt str)
  (
tbn:error-init (list (list "cmdecho" 0) T))
  (
prompt "\nSelecione a polilinha")
  (
setq ss  (ssget ":S" '((0 . "LWPOLYLINE")))
    ent (ssname ss 0)
    pt  (getpoint "\nClique o ponto de inserção")
    str (getstring "\nQual o nome da área?" t)
    pts (get-points-polig ent)
        n   0
        p1  (car pts)
    table        (vla-addtable (vla-get-modelspace thisdrawing) (vlax-3d-point pt)
               (
 1+ (length pts))
               7
               1
               1
))

  (
vla-settext table 0 0 (strcat "TABELA-AZIMUTES/DISTÂNCIAS/COORDENADAS\\P" STR))

  (
foreach tit '("Vértice" "Para" "Rumo" "Azimute" "Distância" "Coord. Norte" "Coord. Leste")
    (
vla-settext table 1 n tit)
    (
setq n (1+ n))
    )

  (
Setq n 0)
  (
repeat (1- (length pts))
    (
setq p2  (nth (1+ n) pts))

    (
vla-settext table (+ n 2) 0 (iF (= N 0 ) "0=pp" (itoa n)))
    (
vla-settext table (+ n 2) 1 (IF (= (+ 2 N) (LENGTH PTS)) "0=pp" (itoa  (1+ n))))
    (
vla-settext table (+ n 2) 2 (format-ang2 (angle p1 p2) t "Rumo" 4))
    (
vla-settext table (+ n 2) 3 (format-ang2 (angle p1 p2) t "Azimute" 4))
    (
vla-settext table (+ n 2) 4 (fnum (dist-h p1 p2) 2))
    (
vla-settext table (+ n 2) 5 (fnum (caDr p1) 3))
    (
vla-settext table (+ n 2) 6 (fnum (car p1) 3))
    (
setq p1 p2
      n
  (1+ n)))
 
 

  (
tbn:error-restore))


(defun format-ang2 (ang spc formato precisao / i g m un angbase angdir str)
  (
setq un (getvar "unitmode")
    angbase  (getvar "ANGBASE")
    angdir   (getvar "angdir")
    precisao (if (= 'int (type precisao)) precisao (nth (vl-position precisao '("M") ) '(4)))
    )
  (
setvar "UNITMODE" 0)
  (
setvar "angbase" (/ pi 2))
  (
setvar "angdir" 1)
  (
setq    g   (if    spc  "° " "°" )
    m   (if    spc  (if (= 1 precisao) "'" "' ") "'" )
    str (vl-string-subst m  "'" (vl-string-subst g "d"
                      (angtos ang (if (OR (= formato "A") (= formato "Azimute")) 1 4)
                          precisao)))
    i   0  )
  (
setvar "UNITMODE" un)
  (
setvar "angbase" angbase)
  (
setvar "angdir" angdir)
  (
repeat 10
    (setq str (vl-string-subst
        (strcat g "0" (itoa i) "'")
        (
strcat g (itoa i) "'")
        str)
      str (vl-string-subst
        (strcat m "0" (itoa i) "\"")
        (
strcat m (itoa i) "\"")
        str )
      i   (1+ i)))
  (
if (= formato "Rumo")
    (
vl-string-subst "O" "W"  (if (/= 1 (strlen str))
                (
strcat    (substr str 3 (- (strlen str) 3))
                    (
substr str 1 1)
                    (
substr str (strlen str) 1))
                str))
    str)
  )

; dist-h (pt1 pt2): calcula a distancia no plano xy entre dois pontos
(defun dist-h (pt1 pt2 /)
  (
if (and pt1 pt2) (distance (3dto2d pt1) pt2)))



Link(s) da(s) subrotina(s) usada(s): tbn:error-init, 3dto2d, get-points-polig, thisdrawing, format-ang2, fnum, dist-h, tbn:error-restore

Gostou? Sugiro ler o artigo sobre programação em lisp que está aqui

Civil 3D API - Curso

5 milhões de comentários
Olá, olha que notícia boa:

a Autodesk está oferecendo um treinamento de API de programação do Civil 3D!!

Será de 7 a 9 de maio, em São Paulo!!

Veja a notícia completa no site Civil 3D Br.

Eu ja fiz a minha inscrição, faça você também, aqui 


Civil 3D - Cursos

1 milhões de comentários
Está semana estive em brasília, ministrando um curso de civil 3D para os engenheiros do DNIT. Um grande abraço a todos os participantes, à MCR software e ao Daniel Queiroz!!! Espero que tenham gostado e aprendido algo!!!
Penamos um pouco, mas valeu a pena!!

Civil 3D Fail - Artes

4 milhões de comentários


Faça você também a sua arte com os erros do autocad/civil 3d.... olha só o meu aí em cima.... tem dado isso direto aqui depois de fazer um save...

Promoção de páscoa

7 milhões de comentários

Olha aí, a promoção está quase no fome, falta muito pouco hein!!! Mas lembre-se : tem que ser um print screen da tela do pc que apareça o contador de visitas igual a 400000. Participar é fácil: é só visitar a página!!!

LinkWithin

Related Posts Plugin for WordPress, Blogger...