Dobrý den,

jsem absolutním začátečníkem v programovani LISP. Chtěl bych vytvořit jeden program. Už mám udělanou kostru, ale některé věci netusím jak udělat, proto Vás žádam o pomoc :)

Kod:

;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()
(setq x (car b11))
(setq y (cadr b11))
(setq x (rtos x 2 3))
(setq y (rtos y 2 3))
(setq xy (strcat "N"cislo "\" "\X=" x "\ " "\Y=" y))
(write-line xy f)
)

(defun C:M4 ()

(setq f1 (getstring "\nZadej jméno programu ! { max. osum znak… } :") f1 (strcase f1))
(setq b (strcat "0 Testovací hlavika souboru"))
(setq f (strcat "C:/Popis/M4/" f1 ".H"))
(setq f (open f "w"))
(write-line b f)

    (while (< i 4)       
                          
        (MK3)
        (cti)
        )
)

Potřebná modifikace je nasledující: U setq xy by se měla za písmenem N mělo zvyšovat číslo (viz. 100, 101, 102 atd.) a druha, ze pokud bude během nacitani bodu zmačknuto pismeno R, vyskoci okno s požadavkem na zadání radiusu a pote bude nacitani bodu dal pokracovat.

Děkuji za veškeré rady.

když pouziji Váš kod, vyhodi mi to chybu: "chyba: chybný typ argumentu: numberp: nil" :(

dekuji za upozorneni, close f jsem uz zadefinoval, a co se tyká pouzitelnosti programu, ma za úkol z technického vykresu nacitat souradnice a radiusy. Jde o to, ze ne vždy tam je raius, aproto by bylo nejlepší, kdyby si dialog pro zadaní radiusu vyvoval uživatel

jedna se o výkresy nástroju pro výrobky. Uživatel si na výkresu nakliká body, které potřebuje a radiusy, které jsou ve výkresu zapsany, a program by je mel zapsat do dokumentu. V podstate se jedna o usnadnění PP., aby nemuseli v nastrojárně přepisovat velike množství cisel

enddys napsal(a): když pouziji Váš kod, vyhodi mi to chybu: "chyba: chybný typ argumentu: numberp: nil" :(

enddys napsal(a): po dekladaci (setq cislo 1), chyba chyba: chybná funkce: 1,aneb stejný problém, jako když jsem postupovat podle návodu na internetu. Dle mého testovani je chybná funkce: 1 (kdy číslo je rovno číslu, které je zadano zde: (setq cislo (1 + cislo))

Pozor na mezery! Název funkce je "1+" ne "1 +"

(1+ číslo)

Můžete použít i obyčejné sčítání
(setq a 0)
(setq a (+ a 1))

Předpokládám, že ten výstup čísla chcete v oné funkci (strcat), nikoliv jen tak volně ve smyčce.