Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
 - od firmy ARKANCE [www.cadforum.cz] ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.000 registrovaných u nás, celkem 1.092.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor. Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.

CAD tip CAD tip # 13736:

Otázka

CAD 
 %  platforma  kategorie 
A
Pomocí vyhledávací tabulky a dynamických bloků můžete v některých případech vyřešit formátování automatických popisek (polí) využívajících úvodní nuly (a znaménko "+") - tedy formátování zachovávající počet míst před desetinnou tečkou/čárkou.

Příklad takového bloku ("Lead0") najdete v ukázkovém DWG výkresu FmtBlk.dwg - ke stažení viz Blok 22544. Ten zobrazuje zformátovaný aktuální úhel otočení. Podobně jde použít parametr vzdálenosti, počtu prvků apod. Pro zarovnání výsledného složeného textu by bylo potřeba posouvat polohu textu (např. opět Lookup tabulkou).

Použití dynamického bloku Lead0 pak ilustruje video:

Ve videu je rovněž použit "trik" s automatickou aktualizací hodnoty textového pole (není tedy nutná ruční regenerace výkresu). Na to je využit LISP reaktor, který aktualizaci polí provádí po každé uzlové editaci bloku. Není však vhodný pro větší výkresy (výkon). Pro jeho aktivaci si načtěte následující LISP kód (přes .LSP soubor nebo jeho nakopírováním do příkazového řádku či do ACADDOC.LSP):

;Auto-update block fields after grip edit
(vl-load-com)
(if (not autoUpFldReactor)(setq autoUpFldReactor (VLR-Command-Reactor nil '((:VLR-commandEnded . autoUpFldCB)))))
(princ "\nBlock grip reactor active")

(defun autoUpFldCB (reactor objectlist / sset blk)
 (if (= (car objectlist) "GRIP_STRETCH")
  (progn
   (if (setq sset (ssget "_I" '((0 . "INSERT")(2 . "`*U*"))))
    (setq blk (ssname sset 0))
   )
   (if blk
    (vla-SendCommand (vla-get-activedocument (vlax-get-acad-object)) "_UPDATEFIELD ")
   )
  )
 )
)
(princ)
ACADACLTADTACADMPlantMapCivil3D
100% *CAD
17.5.2023 2963×
blok font lisp text výkres
 
Sdílet tip:
Digg it! Del.icio.us Facebook Twitter Whatsapp Google záložka Technorati Linkuj

Zpět    Všechny další tipy



Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy ARKANCE.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD: 
OS: 
Kateg: 
Text:
 FAQ
  






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist