Medicioneslisp

(defun c:sumcam ()
(setvar "cmdecho" 0)
(graphscr)
(setq
p1 (getpoint "\nSelecciona el primer punto: ")
p2 (getpoint p1 "\nSelecciona el siguiente punto: ")
d1 (distance p1 p2)
prdist(strcat "\nDistancia inicial: " (rtos d1))
)
(princ prdist)
(setq p3 (getpoint p2 "\nSelecciona el siguiente punto o ENTER para acabar"))
(while p3
(setq
d0 (distance p2 p3)
d1 (+ (distancep2 p3) d1)
p2 p3
prdist (strcat "\nDistancia parcial: " (rtos d0) ", Distancia acumulada: " (rtos d1))
)
(princ prdist)
(setq p3 (getpoint p2 "\nSelecciona el siguiente punto o ENTER paraacabar: "))
)
(setq cumd (strcat "Distancia total: " (rtos d1)))
(prompt cumd)
(princ)
)




(defun c:sumcnc (/ pt1 pt2 d0 d1 )
(graphscr)
(setvar "CMDECHO" 0)
(setq pt1 (getpoint "Selecciona el primer punto: "))(terpri)
(setq pt2 (getpoint " Selecciona el siguiente punto: " pt1))(terpri)
(setq d1 (distance pt1 pt2))
(prompt " Distancia inicial: ")(prompt (rtos d1 2 4))(while
(setq pt1 (getpoint "\nSelecciona el siguiente primer punto o ENTER para acabar: " )) (terpri)
(setq pt2 (getpoint " Selecciona el siguiente punto: " pt1 )) (terpri)
(setq d0(distance pt1 pt2))
(setq d1 (+ (distance pt1 pt2) d1))
(prompt "Distancia parcial: ")(prompt (rtos d0 2 4))(prompt " Distancia acumulada: ")(prompt (rtos d1 2 4))
)
(prompt "Distanciatotal: ")(prompt (rtos d1 2 4))
(princ)
)



(defun C:sumarea (/ p l e sum1 sum2)
(setq p (ssget (list (cons -4 " (cons 0 "LWPOLYLINE")(cons -4 " (cons 0 "POLYLINE")
(cons -4 " (cons -4 "&") (cons 70 (+ 16 32 64))(cons -4 "not>")
(cons -4 "and>")
(cons -4 "or>")
)
)
sum1 0.0...

Leer documento completo

Regístrate para leer el documento completo.