Dobrý den, mám následují program v LISP: ;startup for application ACADM, installed xxxxxxx(princ (load "gen/acadm.lsp" "\nError: acadm.lsp not loaded!")) ;(if acadmappend (setq s::startup (acadmappend s::startup)))(defun MK3 () (setq b11 (getpoint "\n zadej bod")))(defun cti(cislo 1) (setq x (car b11)) (setq y (cadr b11)) (setq x (rtos x 2 3)) (setq y (rtos y 2 3)) (setq cislo (+ 1 cislo) cislo2 (itoa cislo)) (setq xy (strcat "N" cislo2 " G1 " "\X" y "\ " "\Z" x)) (write-line xy f))(defun C:M4 () (setq f1 (getstring "\nZadej jméno programu ! { max. osum znak… } :") f1 (strcase f1)) (setq b (strcat ";ROLNA" f1)) (setq f (strcat "C:/Popis/M4/" f1 ".H")) (setq f (open f "w")) (write-line b f) (while (< i 4) (MK3) (cti) )Muj problém je následující: hodnota proměné "cislo2" by s měla s každým opakováním navýšit o hodnotu 1, bohužel se tak neděje. Nevím si s tím rady, prosim pomozte. Děkuji za veškeré rady.Aktuální výstup programu:;ROLNAEN2 G1 X-128.185 Z-96.161N2 G1 X-140.624 Z-85.977N2 G1 X-166.258 Z-100.31N2 G1 X-158.719 Z-116.906 )
