CAD Fórum : Akce poklepáním https://www.cadforum.cz/forum/ Sun, 14 Jun 2026 19:55:41 +0000 Thu, 05 Oct 2006 09:51:30 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3186 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Akce poklepáním : Ono to bude tím, že proměnná DIMSTYLE...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14819&title=akce-poklepanim#14819 Autor: Seiner
Předmět: 3186
Zasláno: 05.říj.2006 v 09:51

Ono to bude tím, že proměnná DIMSTYLE je pouze pro čtení.
 
Musíte doplnit do curr:
 
;kotovaci styl
(setq edata (assoc 3 (entget ent)))
(if edata  (COMMAND "-DIMSTYLE" "O" (cdr edata)) 
)
 
V rozporu se zásadami je tam česká volba "O" (Obnov), protože momentálně nevím anglický ekvivalent. Pokud máte anglický AutoCAD, musíte si to upravit. A pokud trváte na návratu k aktuální hodnotě, je nutné DIMSTYLE uložit a v lispu pro obnovu řešit obdobně.
]]> Thu, 05 Oct 2006 09:51:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14819&title=akce-poklepanim#14819 <![CDATA[Akce poklepáním : Ono to právě nefunguje :( a já...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14817&title=akce-poklepanim#14817 Autor: BenaCZ
Předmět: 3186
Zasláno: 05.říj.2006 v 09:26

Ono to právě nefunguje :( a já nevím jak to zprovoznit. Kdybyste někdo věděl, napište to prosím sem. Díky Bena ]]> Thu, 05 Oct 2006 09:26:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14817&title=akce-poklepanim#14817 <![CDATA[Akce poklepáním : To můžete klidně doplnit do toho...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14815&title=akce-poklepanim#14815 Autor: Seiner
Předmět: 3186
Zasláno: 05.říj.2006 v 08:48

To můžete klidně doplnit do toho curr.lsp. Uplatní se to jen, pokud poklepete na kótu - pak by to mělo přepnout aktuální kótovací styl podle vybrané kóty. (Snad - nevím, jak je to s přepisy stylů)
  Truchu nedořešený je návrat k nastavením před akcí. Já bych to asi řešil definováním příkatu navrat a dal ho třeba na nějakou zrychlenou volbu.
  Aby to fungovalo, musíte si aktuální hodnotu dimstyle uložit do proměnné - obdobně jako jsem navrhoval u ostatních nastavení.
]]> Thu, 05 Oct 2006 08:48:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14815&title=akce-poklepanim#14815 <![CDATA[Akce poklepáním : Tak to funguje. Ještě jsem si...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14814&title=akce-poklepanim#14814 Autor: BenaCZ
Předmět: 3186
Zasláno: 05.říj.2006 v 08:36

Tak to funguje. Ještě jsem si tam dopsal kód pro staničení. Když bych chtěl, aby mi to u kót přebíralo i vlastnosti kóty nebo alespon kotovací styl, tak by bylo asi nejlepší si vytvořit pro kóty jiný Curr a tam toto nastavit, ne?
Mohlo by to vypadat nějak takto?

(defun C:CURR KOTA ()
(setq ent(ssname (ssget"_I")0) )
(if ent
(progn
;kotovaci styl
(setq edata (assoc 3 (entget ent)))
(if edata
   (setvar "DIMSTYLE" (cdr edata))
)
))
)

+ Vlastnosti obecné jako v běžném Curr]]> Thu, 05 Oct 2006 08:36:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14814&title=akce-poklepanim#14814 <![CDATA[Akce poklepáním : Díky moc vyzkouším ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14803&title=akce-poklepanim#14803 Autor: BenaCZ
Předmět: 3186
Zasláno: 04.říj.2006 v 13:05

Díky moc vyzkouším]]> Wed, 04 Oct 2006 13:05:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14803&title=akce-poklepanim#14803 <![CDATA[Akce poklepáním : Pro více druhů kó to bude: (cond...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14802&title=akce-poklepanim#14802 Autor: Seiner
Předmět: 3186
Zasláno: 04.říj.2006 v 12:58

Pro více druhů kó to bude:

(cond ((= a "AcDbEntityAcDbDimensionAcDbAlignedDimensionAcDbRotatedDimension")(Command "_DIMLINEAR"))
      ((= a "AcDbEntityAcDbDimensionAcDbAlignedDimension")(Command "_dimaligned"))
      ((= a "AcDbEntityAcDbDimensionAcDbDiametricDimension")(Command "_dimdiameter"))
      ((= a "AcDbEntityAcDbDimensionAcDbRadialDimension")(Command "_dimradius"))
      ((= a "AcDbEntityAcDbDimensionAcDb2LineAngularDimension")(Command "_dimangular"))
      ((= a "AcDbEntityAcDbDimensionAcDbArcDimension")(Commnad "_dimarc"))
)

]]> Wed, 04 Oct 2006 12:58:02 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14802&title=akce-poklepanim#14802 <![CDATA[Akce poklepáním : No třeba takhle nějak: (DEFUN...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14801&title=akce-poklepanim#14801 Autor: Seiner
Předmět: 3186
Zasláno: 04.říj.2006 v 12:46

No třeba takhle nějak:
 
(DEFUN C:KOTAX()
;(setq ent(car (entsel)))
(setq a "")
(setq i 0)
(while (< i (length (entget ent)))
 (If (=(car (nth i (entget ent))) 100)(setq a (strcat a (cdr(nth i (entget ent))))))
(setq i (1+ i))
)
(cond ((= a "AcDbEntityAcDbDimensionAcDbAlignedDimensionAcDbRotatedDimension")(Command "_DIMLINEAR"))
      ((= a "AcDbEntityAcDbDimensionAcDbAlignedDimension")(Command "_dimaligned"))
      ((= a "AcDbEntityAcDbDimensionAcDbDiametricDimension")(Command "_dimdiameter"))
      ((= a "AcDbEntityAcDbDimensionAcDbRadialDimension")(Command "_dimradius"))
)
)
 
Na poklepání na kótu pak bude příkaz ^C^Ccurr KOTAX
 
Vřele doporučuji neupravovat akce přímo v CUI Acad, ale vytvořit si částečnou nabídku třeba DBLCLICK a v ní experimentovat.
]]> Wed, 04 Oct 2006 12:46:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14801&title=akce-poklepanim#14801 <![CDATA[Akce poklepáním : Tak jsem do toho s vervou vlítnul,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14800&title=akce-poklepanim#14800 Autor: Seiner
Předmět: 3186
Zasláno: 04.říj.2006 v 11:51

Tak jsem do toho s vervou vlítnul, ale zase jsem se rychle odplazil s hanbou s bojiště. On tam je ten kód 100 3krát a já nevím, jak je získat všechny a rozlišit. ASSOC mi dá jen ten první.]]> Wed, 04 Oct 2006 11:51:06 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14800&title=akce-poklepanim#14800 <![CDATA[Akce poklepáním : Nemohl byste to prosím zkusit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14798&title=akce-poklepanim#14798 Autor: BenaCZ
Předmět: 3186
Zasláno: 04.říj.2006 v 10:51

Nemohl byste to prosím zkusit ještě napsat pro ty kóty? To bych určitě nezvládl. Jediné čím bych se mohl odvděčit jsou různé prográmky v excelu na stavařinu a statiku [IMG]smileys/smiley2.gif" align="middle" /> viz www.petrbenes.info , když by to někomu u vás pomohlo... Bena


P.S. Výkazy materiálu a databáze mám teď ještě vylepšené, tak bych je tam pak taky šoupnul

Upravil BenaCZ - 04.říj.2006 v 11:05]]> Wed, 04 Oct 2006 10:51:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14798&title=akce-poklepanim#14798 <![CDATA[Akce poklepáním : Tak už je mi to snad jasné. Smotal...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14797&title=akce-poklepanim#14797 Autor: Seiner
Předmět: 3186
Zasláno: 04.říj.2006 v 10:51

Tak už je mi to snad jasné. Smotal jsem dohromady tloušťku a tloušťku čáry. Snad mi může být omluvou, že ani jednu, ani druhou vlastnost běžně nepoužíváme. Ten kód 370 je správně.]]> Wed, 04 Oct 2006 10:51:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3186&PID=14797&title=akce-poklepanim#14797