Zobrazit plnou verzi příspěvku: Náhrada 1 znaku

Ferdinand
08.12.2006, 10:28
...;;ziskani nazvu bez predpon a pripon z prave otevreneho vykresu  (setq R1 (getvar "dwgname"))        ;napr. 3VT_CX2.dwg  (setq PRI (strlen R1))        ;11  (setq R2 (substr R1 1 (- PRI 4)))    ;3VT_CX2  (setq NV (substr R2 5))        ;CX2  ;;vytvoreni noveho nazvu 3VF_CX2, 3VL_CX2, ...  (setq R3 (substr R2 1 2))        ;3V  (setq RF (strcat (R3 "F_" NV)))    ;mel by to byt poskladany retezec 3VF_CX2 ale neudela - hodnoty bere jako neznamou funkci  (setq RL (strcat (R3 "L_" NV))) ;dtto... (command "_new" "acadiso.dwt") (command "_-insert" RF "0,0" "1" "1" "0") (command "_-insert" RL "-100,0" "1" "1" "0")...Výkresy 3VF_CX2, 3VL_CX2, ... existují. Jak poskládat řetězec RF, RL, ... , aby za R3 a NV byly dosazeny získané hodnoty?

pavelstyl
08.12.2006, 10:44
Je tam moc zavorek. Za tim "strcat" uz nema byt.
 
(setq RF (strcat R3 "F_" NV)) ;mel by to byt poskladany retezec 3VF_CX2 ...
(setq RL (strcat R3 "L_" NV)) ;dtto
 
Pavel Styl

Ferdinand
08.12.2006, 13:51

Aha - takže zde neplatí ono všeobecné (FUNKCE (Hodnota1 Hodnota2 ...))Jasně - už to je OK.S tím _new to taky nepůjde - vyřešil jsem to jinak
Ferdinand2006-12-08 13:51:50

hynekn
11.12.2006, 07:59
...to taky v LISPech všeho druhu nikdy neplatilo 

Ferdinand
11.12.2006, 11:25
OK, děkuji za info.