Zarovnávání odstavcového textu - klávesové zkratky
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=11510
Datum vytištění: 20.dub.2026 v 23:10
Téma: Zarovnávání odstavcového textu - klávesové zkratky
Odeslal: radimf
Předmět: Zarovnávání odstavcového textu - klávesové zkratky
Datum odeslání: 17.zář.2010 v 07:57
Dobrý den. Prosím o radu jak vytvořit lispy pro klávesové zkratky jednotlivých zarovnávání odstavcového textu. Např. zkratka "TDL" by vytvořila mtext se zarovnávání dolní levý.
Mám toto:
(defun C:TDL()
(command "mtext" (setq bod1 (getpoint)) "Z" "DL" bod1)
(setq bod1 nil)
)
Funguje, ale problém je v tom, že mi pro zadávání vlastného textu nevyskočí dialogové okno pro psaní odstavcového textu, ale mohu ho zadávat jen v příkazové řádce.
Děkuji za každou radu.
|
Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 17.zář.2010 v 08:47
|
Z LISPu spuštěné příkazy komunikují implicitně přes příkazový řádek. Ale dají se přesvědčit:
(defun C:TDL( / bod1)
(setq bod1 (getpoint "\nLevý dolní bod: "))
(initdia 1)
(command "_mtext" bod1 "_ju" "_bl" bod1)
(princ)
)
|
-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
|
|