AutoCad - Espirales continuacion

 
Vista:

Espirales continuacion

Publicado por SpeedCAD (362 intervenciones) el 13/05/2002 17:56:18
(IF (= op "Paso") (PROGN
(IF paso0 ( ) (SETQ paso0 0))
(SETQ mens (STRCAT "Paso de la hélice <" (RTOS paso0 2 2) ">: "))
(IF (SETQ paso (GETDIST cen mens)) ( ) (SETQ paso paso0))(TERPRI)
(SETQ paso0 paso)))
(IF (= op "Altura") (PROGN
(IF alt0 ( ) (SETQ alt0 0))
(SETQ mens (STRCAT "Altura total de la hélice <" (RTOS alt0 2 2) ">: "))
(IF (SETQ alt (GETDIST cen mens)) ( ) (SETQ alt alt0)) (TERPRI)
(SETQ alt0 alt paso (/ alt nv))))
(SETQ dang (/ (* 2 PI) pv))
(SETQ dz (/ paso pv))
(SETQ drad (/ (- radfin radin) (* pv nv )))
)

(DEFUN helice ( / n z0 z xy pto ptant)
(SETQ p0 (POLAR cen 0 radin))
(SETQ z0 (CADDR p0))
(COMMAND "_3dpoly" p0)
(SETQ n 1)(SETQ distot 0 ptant p0)
(REPEAT (* pv nv)
(SETQ z (+ z0 (* dz n)))
(SETQ xy (POLAR cen (* dang n) (+ radin (* drad n))))
(SETQ pto (list (car xy) (cadr xy) z))
(COMMAND pto)
(SETQ n (+ n 1))
(SETQ distot (+ distot (DISTANCE ptant pto)))
(SETQ ptant pto)
)
(COMMAND "")
)

continua...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder