(defun c:iso ()
(setq pt1 (getpoint "indique o ponto onde começa o arco:  "))
(command "ucs" "n" pt1)
(setq pt1 (trans pt1 0 1))
(command "ortho" "on" )
(setq pt2 (getpoint "qual a altura?: "))
(setq pt3 (getpoint "comprimento da area:  "))
(command "pline" "0,0" "arc" "a" "90" "2,2" "line" "0,8" "arc" "a" "-180" "4,8" "line" "2,2" "arc" "a" "90" "4,0" "")
(command "scale" "l" "" pt1 "r" "0,0" "10,0" pt2)
(setq factor (/ (distance pt1 pt2) 10))
(repeat  
(fix (/ (distance pt1 pt3) (* factor 4)))
(command "copy" "l" "" pt1 (polar pt1 0 (* factor 4)) "")
)
(command "ucs" "world")
)