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?