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:
;ROLNAE
N2 G1 X-128.185 Z-96.161
N2 G1 X-140.624 Z-85.977
N2 G1 X-166.258 Z-100.31
N2 G1 X-158.719 Z-116.906
)
