Diskuzní fórum, poradna

archiv

   ...
;;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?

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	Téma: Náhrada 1 znaku Zasláno: 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-

pavelstyl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Zasloužilý člen Přihlášen: 06.říj.2004 Lokalita: Czech Republic Používám: AutoCAD Mech 2025, SolidEdgeE 2025 Stav: Offline Bodů: 229	Zasláno: 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

Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	Zasláno: 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 Upravil Ferdinand - 08.pro.2006 v 13:51
	-FerTh-

hynekn Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Diskutér Přihlášen: 13.lis.2006 Lokalita: ČR (Pha) Používám: ADT 3 Stav: Offline Bodů: 49	Zasláno: 11.pro.2006 v 07:59
	...to taky v LISPech všeho druhu nikdy neplatilo
	Hynek

Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	Zasláno: 11.pro.2006 v 11:25
	OK, děkuji za info.
	-FerTh-

Příbuzné CAD tipy:
Tip 1741:		Jak opravit nesprávně kódované texty v AutoCADu? Jak nahradit kódy typu %%236 normálními znaky?
Tip 9726:		Zjednodušení velké sestavy náhradou odvozenou sestavou.
Tip 13126:		Jak vyměnit rohové razítko ve výkresech Inventoru?
Tip 4229:		Jak se zbavit dialogů "Zadejte písmo pro styl XXX"?
Tip 11154:		Zefektivnění sestavy použitím aktualizovaných náhrad.
Tip 7493:		Jak v DWG výkresu nahradit interní blok externím?

Diskuzní fórum, poradna

?CAD diskuze, rady, výměna zkušeností

Náhrada 1 znaku

?
CAD diskuze, rady, výměna zkušeností