Dobrý den
Prosím o radu s následujícím problémem
Mám jednu jednoduchou funkci, jejímž výsledkem jsou dvě číselné hodnoty (s 2  desetinnými místy). Převedu si je na řetězec a spolu s několika fixními texty (jednotky) spojím do jednoho řetězce a jako text vložím do výkresu.
Je pravdou, že by tam mohla zůstat desetinná tečka, ale vzhledem k místním zvyklostem bych tam chtěl dát čárku. Kam to umístit, bych věděl, ale nějak mne nenapadá jednoduché řešení - jen (snad) rozříznout řetězec na část před tečkou a za tečkou a mezi ně vložit čárku. Nestkali jste se už někdo tím?
Děkuji
J. Mantlík

Domnívám se, že v lispu přímé řešení neexistuje. Já používám (pro "inverzní" funkci) toto:
(defun inter(string / ii,ll,str) (if (/= string "")(progn   (setq ll (strlen string) ii 1 str string string "") (while (<= ii ll)    (if (= (substr str ii 1) ",")        (setq string (strcat string "."))        (setq string (strcat string (substr str ii 1)))     )    (setq ii (1+ ii)))))(setq string string))

Dobrý den,
můžete také použít funkci VisualLispu vl-string-subst, např.
(vl-string-subst "," "." "123.456")
s pozdravem

Děkuji panu Liškovi, že mne upozornil tak kulantně :-) ("můžete také" místo "co to navrhujete za zvrhlost"). Je vidět, že mé znalosti LISPu zatuhly před pár lety.

Děkuji
Ale protože mé znalosti jsou o dost menší, než p. Seinera, musím se ještě zeptat.
Je možno místo posledního řetězce ve výrazu (použil jste "123.456") použít proměnnou, obsahující řetězec?
např. tedy
(vl-string-subst "," "." p)
 
J. Mantlík

Samozřejmě. vl-string-subst je funkce jako každá jiná, tzn. pro každý z parametrů lze použít proměnnou. Funkce je definována VisualLispem, proto to předpona vl-.
S pozdravem