ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.098.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Registrujte se na konferenci CADfórum 2025 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

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

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenopříkaz do AutoLISPu
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
pavel.w Zobrazit panel
Nováček
Nováček

Přihlášen: 27.srp.2009
Lokalita: ČR (OL)
Používám:
AutoCAD
Stav: Offline
Bodů: 1
 Přímý odkaz na tuto zprávu Téma: příkaz do AutoLISPu
    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.
Zpět nahoru
Martin Bielina Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 04.led.2007
Lokalita: ČR (Pha)
Používám:
AutoCAD True view 2016
Stav: Offline
Bodů: 100
 Přímý odkaz na tuto zprávu 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)

Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 7243:VIPVytvoření filtru hladin řádkovým příkazem z menu nebo skriptu.
Tip 6648:VIPDávkové spuštění Převodníku hladin - vynucení standardů.
Tip 6326:VIPPoř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í


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,157 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img