Ouça uma das minhas músicas preferidas: , ou o canto de um passarinho: /spam>>

  ♩ ♪ ♫ Música do Dia  ♩  ♪♫

terça-feira, 14 de agosto de 2012

Autolisp para cotar linha (comprimento 3D)


; Cotar linha (comprimento da linha 3D) com texto

(defun c:cotarlin()
(command "dist" pause pause)
(setq d (getvar "distance"))
(setq Comprimento (strcat "Comprimento: " (rtos d 2 2) "m"))
(command "text" "mid" pause "" pause Comprimento)
)


Nenhum comentário: