Náhrada 1 znaku
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=3584
Datum vytištění: 11.kvě.2026 v 03:07
Téma: Náhrada 1 znaku
Odeslal: Ferdinand
Předmět: Náhrada 1 znaku
Datum odeslání: 08.pro.2006 v 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? ------------- -FerTh- |
Odpovědi:
Odeslal: pavelstyl
Datum odeslání: 08.pro.2006 v 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
|
Odeslal: Ferdinand
Datum odeslání: 08.pro.2006 v 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  ------------- -FerTh- |
Odeslal: hynekn
Datum odeslání: 11.pro.2006 v 07:59
...to taky v LISPech všeho druhu nikdy neplatilo 
------------- Hynek |
Odeslal: Ferdinand
Datum odeslání: 11.pro.2006 v 11:25
|
OK, děkuji za info.
------------- -FerTh- |