domingo, 30 de novembro de 2014

Nesta Aula começamos por trabalhar no Notepad ++
Mexendo nos simbolos de orientação, nomeadamente o "Norte"
Inserindo os commandos:

(defun c:norte ()
    (setq pontos (getvar "osmode"))
(setq pl (getpoint "\nQual é o centro do simbolo? ") )
(setq p2 (getpoint "\nQual é a direcção norte? ") )
(setvar "osmode" 0)
(command "circle" p1 p2)
;(command "circle" p1 (* (distance p1 p2) 0.9))
;(command "pline" p1 "w" (* (distance p1 p2) 0.1) (* (distance p1 p2) 2) 0 p2 "")
;(command "line" p1 (polar p1 (angle p1 p2) (* (distance p1 p2) 1.2)) "")
;(command "copy" "last" "" p1 p1 "")
;(command "rotate" "last" "" p1 p1 "90")
  ;(command "copy" "last" "" p1 p1 "")
;(command "rotate" "last" "" p1 p1 "90")
;(command "copy" "last" "" p1 p1 "")
;(command "rotate" "last" "" p1 p1 "90")
(command "solid" p2
               (polar p1 (dtr 230) (distance p1 p2))
(polar p1 (dtr 270) (distance p1 p2) 0.8))
p2
""
"")
(setvar "osmode" pontos)
)

(defun DTR (a)
(* PI (/ a 180.0))
)

E depois instalámos o comando no AutoCAD para criar uma bússola a apontar para norte.






Sem comentários:

Enviar um comentário