Diskuzní fórum, poradna

archiv

   Pokud Vám bude tahle moje rychlovka stačit, tak ať Vám slouží   

Přidal jsem tam i dost komentářů, aby to byl opravdu studijní materiál. A taky je ten kód dost ukecaný (tím mám na mysli výpisy na příkazový řádek), aby jste co nejlépe pochopil kdy, jak a co dělá. S laděním jsem se ale moc nezdržoval, takže je to na Vaše riziko.

 ;doplnění pevně dané předpony a koncovky textovým řetězcům

 ;funguje na TEXT a MTEXT

 ;

 ;

(PRINT "Spouští se příkazem: DOPLN")

(DEFUN c:DOPLN (/ i sel_length ent_sel TextString Predpona Koncovka)

 ;výběr entit k záměně

  (PRINC

    "\nVyber Texty, MTexty k doplnění předpony/koncovky :"

  )

  (SETQ ent_sel (SSGET '((0 . "TEXT,MTEXT"))));výběr množiny k provedení požadované operace

  (SETQ i 0)

  (IF (= ent_sel nil);určí počet prvků ve výběru => použít pro operaci cyklu

    (SETQ sel_length 0)

    (SETQ sel_length (SSLENGTH ent_sel))

  ) ;if

  (PRINT (STRCAT (RTOS sel_length 2 0) " TEXTů a MTEXTů"))

  (PRINT) ;kontrolní oznámení kolik textů je ve výběru  

  (SETQ Predpona (GETSTRING "Zadejte předponu <> : "))

  (SETQ Koncovka (GETSTRING "Zadejte koncovku <> : "))

  (PRINT)

  (WHILE (/= i sel_length) ;cyklus na procházení výběru

    (SETQ entlist (ENTGET (SSNAME ent_sel i)))

    (SETQ TextString (CDR (ASSOC 1 entlist)))

 ; kontrolní tisk - při optimalizaci lze zakomentovat  

    (PRINC TextString)

    (PRINC " ==> ")

; slučování původního řetězce a nových požadavků na obsah

    (SETQ TextString (STRCAT Predpona TextString Koncovka))     

    (PRINC TextString)

    (PRINT) ; kontrolní tisk - při optimalizaci lze zakomentovat 

 ;zapsání textu do entity

    (SETQ EntList (SUBST (CONS 1 TextString) (ASSOC 1 entlist) entlist))

    (ENTMOD (SUBST EntList EntList EntList))

    (SETQ i (+ i 1))

  ) ;while

  (PRINT)

) ;konec hlavní funkce

(PRINT)

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
Martin Bielina 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: 04.led.2007 Lokalita: ČR (Pha) Používám: AutoCAD True view 2016 Stav: Offline Bodů: 100	Téma: příkaz do AutoLISPu Zasláno: 28.srp.2009 v 16:08
	Pokud Vám bude tahle moje rychlovka stačit, tak ať Vám slouží Přidal jsem tam i dost komentářů, aby to byl opravdu studijní materiál. A taky je ten kód dost ukecaný (tím mám na mysli výpisy na příkazový řádek), aby jste co nejlépe pochopil kdy, jak a co dělá. S laděním jsem se ale moc nezdržoval, takže je to na Vaše riziko. ;doplnění pevně dané předpony a koncovky textovým řetězcům ;funguje na TEXT a MTEXT ; ; (PRINT "Spouští se příkazem: DOPLN") (DEFUN c:DOPLN (/ i sel_length ent_sel TextString Predpona Koncovka) ;výběr entit k záměně (PRINC "\nVyber Texty, MTexty k doplnění předpony/koncovky :" ) (SETQ ent_sel (SSGET '((0 . "TEXT,MTEXT"))));výběr množiny k provedení požadované operace (SETQ i 0) (IF (= ent_sel nil);určí počet prvků ve výběru => použít pro operaci cyklu (SETQ sel_length 0) (SETQ sel_length (SSLENGTH ent_sel)) ) ;if (PRINT (STRCAT (RTOS sel_length 2 0) " TEXTů a MTEXTů")) (PRINT) ;kontrolní oznámení kolik textů je ve výběru (SETQ Predpona (GETSTRING "Zadejte předponu <> : ")) (SETQ Koncovka (GETSTRING "Zadejte koncovku <> : ")) (PRINT) (WHILE (/= i sel_length) ;cyklus na procházení výběru (SETQ entlist (ENTGET (SSNAME ent_sel i))) (SETQ TextString (CDR (ASSOC 1 entlist))) ; kontrolní tisk - při optimalizaci lze zakomentovat (PRINC TextString) (PRINC " ==> ") ; slučování původního řetězce a nových požadavků na obsah (SETQ TextString (STRCAT Predpona TextString Koncovka)) (PRINC TextString) (PRINT) ; kontrolní tisk - při optimalizaci lze zakomentovat ;zapsání textu do entity (SETQ EntList (SUBST (CONS 1 TextString) (ASSOC 1 entlist) entlist)) (ENTMOD (SUBST EntList EntList EntList)) (SETQ i (+ i 1)) ) ;while (PRINT) ) ;konec hlavní funkce (PRINT)

pavel.w Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 27.srp.2009 Lokalita: ČR (OL) Používám: AutoCAD Stav: Offline Bodů: 1	Zasláno: 27.srp.2009 v 22:53
	Dobrý den, s AutoLISPem začínám a potřeboval bych poradit s jednou situací. Mám selection set, ve kterém je několik textových entit, ke kterým potřebuji připojit textovou předponu a příponu.

Příbuzné CAD tipy:
Tip 7243:		Vytvoření filtru hladin řádkovým příkazem z menu nebo skriptu.
Tip 6648:		Dávkové spuštění Převodníku hladin - vynucení standardů.
Tip 6326:		Pořadí načítání souborů ACAD.LSP, ACADDOC.LSP, ACAD20xxDOC.LSP, MENU.MNL a dalších
Tip 13544:		Jaké je nejmenší a největší číslo reprezentovatelné v AutoLISPu v AutoCADu?
Tip 13551:		Rozdílová kóta X,Y.
Tip 267:		Automatické načtení doplňkových aplikací

Diskuzní fórum, poradna

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

příkaz do AutoLISPu

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