Vytisknout stránku | Zavřít okno

Příklady programování

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=2077
Datum vytištění: 16.čer.2026 v 20:58


Téma: Příklady programování
Odeslal: PetrT
Předmět: Příklady programování
Datum odeslání: 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



-------------
AutoCAD LT 2005


Odpovědi:
Odeslal: Sirus
Datum odeslání: 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

Odeslal: PepaR
Datum odeslání: 03.úno.2006 v 08:05
Přikládám příklad včetně dialogu:

uploads/PepaR/2006-02-03_080544_ddnttext.zip - 2006-02-03_080544_ddnttext.zip

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: PetrT
Datum odeslání: 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


-------------
AutoCAD LT 2005

Odeslal: PepaR
Datum odeslání: 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.


-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz


Vytisknout stránku | Zavřít okno