;PODRZKA KOJA PO REDNIM BROJEVIMA IZPISUJE POVRSINE ODABRANIH MNOGOKUTA.

;PRVO UPISI NAZIV IZLAZNE DATOTEKE

;DRUGO UPISI BROJ MNOGOKUTA OD KOJIH ZELIS POVRSINE

;ZATIM OZNACI PRVI REDNI BROJ OD POVRSINE I PRITISNI ENTER

;NAKON TOGA OZNACI SAM MNOGOKUT I PRITISNI ENTER

;I TAKO REDOM...

;

;--IZRADIO DANE--

;

(defun c:ip ()

(setq naziv (getstring "\nnaziv izpisne datoteke:"))

(setq brpov (getreal "\nbroj povrsina koje zelis izpisati:"))

(setq datoteka (strcat "c:\\iskol\\" naziv ".pov"))

(setq d (open datoteka "w"))

(princ "\noznaci redni broj povrsine 1 i pritisni ENTER")

(setq skupsl (ssget))

(princ "\noznaci mnogokut pod brojem 1 i pritisni ENTER")

(setq skupmnog (ssget))

(setq sl (cdr (assoc 1 (entget (ssname skupsl 0)))))

(command "area" "Object" (ssname skupmnog 0)) ;izvlaci sam povrsinu

(setq pov (getvar "area")) ;izvlaci sam povrsinu

(princ "POVRSINE MNOGOKUTA PO REDNIM BROJEVIMA:" d)

(princ (strcat "\n" sl) d)

(setq br 1)

(princ (strcat "\n" (rtos pov 2 2)) d)

(while (/= br brpov)

(setq br (+ br 1))

(princ (strcat "\noznaci redni broj povrsine " (rtos br 2 0) " i pritisni ENTER"))