CAD Fórum : Příklady programování https://www.cadforum.cz/forum/ Tue, 16 Jun 2026 09:32:15 +0000 Fri, 03 Feb 2006 12:08:16 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=2077 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Příklady programování : Buď si to vložíte do vlastního...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8795&title=priklady-programovani#8795 Autor: PepaR
Předmět: 2077
Zasláno: 03.úno.2006 v 12:08

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^CNT

Pozor, 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.
]]> Fri, 03 Feb 2006 12:08:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8795&title=priklady-programovani#8795 <![CDATA[Příklady programování : A jak to použiju v autocadu? Kde...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8791&title=priklady-programovani#8791 Autor: PetrT
Předmět: 2077
Zasláno: 03.úno.2006 v 10:38

A jak to použiju v autocadu? Kde vytvořím vlastní ikonu  a jak jí přiřadím tuto vlastnost?
Díky moc
]]> Fri, 03 Feb 2006 10:38:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8791&title=priklady-programovani#8791 <![CDATA[Příklady programování : Přikládám příklad včetně dialo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8774&title=priklady-programovani#8774 Autor: PepaR
Předmět: 2077
Zasláno: 03.úno.2006 v 08:05

Přikládám příklad včetně dialogu:

2006-02-03_080544_ddnttext.zip]]> Fri, 03 Feb 2006 08:05:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8774&title=priklady-programovani#8774 <![CDATA[Příklady programování : (defun editvse (retazec) (setq...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8755&title=priklady-programovani#8755 Autor: Sirus
Předmět: 2077
Zasláno: 02.úno.2006 v 16:35


(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")
)

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
]]> Thu, 02 Feb 2006 16:35:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8755&title=priklady-programovani#8755 <![CDATA[Příklady programování : Dobrý den. Kde najdu příklady...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8753&title=priklady-programovani#8753 Autor: PetrT
Předmět: 2077
Zasláno: 02.úno.2006 v 16:24

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

]]> Thu, 02 Feb 2006 16:24:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2077&PID=8753&title=priklady-programovani#8753