Spodaj je napisan program zs to zadevo
Poisneti ga je potrebno v datoteko skončnico Razdol.lsp
Program naložiti v AutoCAD in pognati z ukazom RAZDOL
Mnogo zabave
;RAZDOL.LSP
;
;Januar 1997
;
;Dovoljena prosta uporaba
;
;Program izračuna razvito dolžino ukrivljene pločevine.
;Pokazati je potrebno notranji radij in ravne linije.
;
; ***************************************
; **** Avtor: rmatija ****
; **** Email: ****
; ****
rmatija@hotmail.com ****
; ***************************************
;
(defun loki ()
(setq radlok (cdr (assoc 40 ent)))
(setq skot (cdr (assoc 50 ent)))
(setq kkot (cdr (assoc 51 ent)))
(setq kotsr (/ (+ kkot skot) 2))
(if (> skot kkot)(setq kotsr (- kotsr pi)))
(setq kot (/ (- kkot skot) 2))
(if (> skot kkot)(setq kot (/ (+ (- (* 2 pi) skot) kkot) 2)))
(setq lok (* (* kot 2) radlok))
(setq rs (/ radlok s))
(tabela)
(setq llok (* (* kot 2) (+ radlok (* ksi s))))
(setq lloks (+ llok lloks))
)
(defun crte ()
(setq x (cdr (assoc 10 ent)))
(setq y (cdr (assoc 11 ent)))
(setq l (distance x y ))
(setq ls (+ l ls))
)
(defun te ()
(setq ent (ssname a n))
(if (= ent nil)(COMMAND razvl))
(setq ent (entget ent))
(if (= (cdr (assoc 0 ent)) "LINE")(crte))
(if (= (cdr (assoc 0 ent)) "ARC")(loki))
(if (= (cdr (assoc 0 ent)) "LINE")(setq elem " linije = "))
(if (= (cdr (assoc 0 ent)) "ARC")(setq elem " lok = "))
(setq razvl (+ ls lloks))
(setq n (1+ n))
(prompt "\rRazvita dolžina - ")(princ n)(princ elem)
(te)
)
(defun C:RAZDOL ()
(setq a nil)
(setq s (getreal "\nVstavi debelino pločevine <mm>: "))
(setq a (ssget))
(setq n 0)
(setq l 0 llok 0 razvl 0 lloks 0 ls 0)
(te)
)
(defun tabela ()
(if (> rs 10)(setq ksi 0.5))
(if (<= rs 10)(setq ksi 0.5))
(if (<= rs 5)(setq ksi 0.48))
(if (<= rs 4)(setq ksi 0.47))
(if (<= rs 3)(setq ksi 0.46))
(if (<= rs 2)(setq ksi 0.45))
(if (<= rs 1.5)(setq ksi 0.44))
(if (<= rs 1.2)(setq ksi 0.42))
(if (<= rs 1)(setq ksi 0.41))
(if (<= rs 0.

(setq ksi 0.4))
(if (<= rs 0.7)(setq ksi 0.39))
(if (<= rs 0.6)(setq ksi 0.38))
(if (<= rs 0.5)(setq ksi 0.37))
(if (<= rs 0.4)(setq ksi 0.35))
(if (<= rs 0.3)(setq ksi 0.32))
(if (<= rs 0.2)(setq ksi 0.29))
(if (<= rs 0.1)(setq ksi 0.23))
)
(princ "\nZa start vtipkaj RAZDOL")
(princ)
Nič na svetu ni tako pravično razdeljeno kot inteligenca.
Vsak misli, da je ima dovolj![René Descartes]