Dobrý den.
Kde najdu příklady programování. Potřebuju třeba ikonu na značku průměru abych nemusel dokola psát %%c.
Máte nějaké dobré odkazy?
Díky moc

[code](defun editvse (retazec)  (setq en (entsel))  (setq en (nth 0 en))  (setq ed (entget en))  (setq ed (subst (cons 1 retazec) (assoc 1 ed) ed))  (entmod ed))(defun c:editzr    ()  ;prida x45 na kotu  (editvse "<>x45%%d"))[/code]Tu je jeden z mojich prvych lispov do acadu. Prisposobte si ho ako potrebujete.Teraz uz mam vyspelejsiu verziu vo VBA ale toto by vam malo stacit

Přikládám příklad včetně dialogu:
2006-02-03_080544_ddnttext.zip

A jak to použiju v autocadu? Kde vytvořím vlastní ikonu  a jak jí přiřadím tuto vlastnost?Díky moc

Buď si to vložíte do vlastního MNU a bude to vypadat následovně:ID_Dimmod      [_Button("Editace textu kóty", "dimmod.bmp", "dimmod.bmp")]^C^CNTPozor, musítre mít načten dany LISP a soubory musí být v některém z podpůrných adresářů.PS. pozor toto bude fungovat jen v plnem ACADu. LT načítaní LISP nepodporuje.