CAD Fórum : DIESEL - getvar.... https://www.cadforum.cz/forum/ Fri, 12 Jun 2026 20:11:13 +0000 Fri, 05 Sep 2008 12:40:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=7129 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[DIESEL - getvar.... : Diesel neumím. V lispu: ;do prom....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35209&title=diesel-getvar#35209 Autor: Ferdinand
Předmět: 7129
Zasláno: 05.zář.2008 v 12:40

Diesel neumím. V lispu:
;do prom. DWG bude uložen název akt.výkresu bez přípony-kde(y)si jsem to vyčetl:
(setq DWG (cadr (fnsplitl (getvar "dwgname"))))
;do prom. ARV bude uložen název akt. rozvržení:
(setq ARV (getvar "ctab"))
Když napíšete do p.ř. (např.) příkaz _-plot , tak přesně v tom sledu jak to naskakuje, to lze zapsat i do makra/lispu (tj. včetně voleb).
ED:
Anebo můžete tisknout do automaticky vytvořené adresáře (má název akt. datumu/hodiny)
1. vytvoří se řetězec akt. datumu ->lisp
2. vytvoří se adresář ->lisp (ev. upravit)
3. plotuje se do adresare ad2. ->lisp nemám Smile - ale je velmi jednoduchý ho zapsat
ED2:
Tak jo, mám chvilku času. Mělo by to vypadat asi takto (asi bude třeba upravit v makedir.lsp název adresáře na "tisk..." a zkontrolovat volby u příkazu -plot zde):
;;tisk z prik.radku (z rozvrzeni)
(defun C:TT ()
(if(not c:DNES) (load (findfile "dnes.lsp")))
(if(not c:ADR2) (load (findfile "makedir.lsp")))
(C:ADR2)
(setq PLT (strcat A3 "-" ARV ".plt"))
(command: _-plot "_Y" ARV "" "" "_M" "_L" "_N" "_L" "_F" "0,0" "_Y" "" "_Y" "_N" "_N" "_N" "_Y" PLT "_N" "_Y")
)


Upravil Ferdinand - 05.zář.2008 v 13:48]]> Fri, 05 Sep 2008 12:40:10 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35209&title=diesel-getvar#35209 <![CDATA[DIESEL - getvar.... : Peter Jirat napsal(a):Z Dieselu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35116&title=diesel-getvar#35116 Autor: Rostislav Říha
Předmět: 7129
Zasláno: 03.zář.2008 v 15:45

Původně odeslal(a) Peter Jirat Peter Jirat napsal(a):

Z Dieselu moje znalosti nezrezly (kde nic není, tam nic nerezne), ale ve scriptu pro zápis bloku to mám takto:
(strcat (getvar "dwgprefix") (getvar "dwgname")), ale to je lisp, nevím nakolik to lze převést do makro jazyka.
 
Zdraví
no vidíte, já to mám s lispem jako vy s dieselem...takže to Vaše sice vypadá velmi učeně, ale já s tím nic nezmůžu:)
]]> Wed, 03 Sep 2008 15:45:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35116&title=diesel-getvar#35116 <![CDATA[DIESEL - getvar.... : Menu-makro se nemusí omezovat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35111&title=diesel-getvar#35111 Autor: Vladimír Michl
Předmět: 7129
Zasláno: 03.zář.2008 v 13:56

Menu-makro se nemusí omezovat jen na DIESEL (pokud nemá fungovat i v LT) - můžete použít i LISP výrazy, třeba ten od PJ. Aktuální rozvržení je proměnné [VAR]CTAB[/VAR].]]> Wed, 03 Sep 2008 13:56:07 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35111&title=diesel-getvar#35111 <![CDATA[DIESEL - getvar.... : Z Dieselu moje znalosti nezrezly...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35107&title=diesel-getvar#35107 Autor: Peter Jirat
Předmět: 7129
Zasláno: 03.zář.2008 v 13:18

Z Dieselu moje znalosti nezrezly (kde nic není, tam nic nerezne), ale ve scriptu pro zápis bloku to mám takto:
(strcat (getvar "dwgprefix") (getvar "dwgname")), ale to je lisp, nevím nakolik to lze převést do makro jazyka.
 
Zdraví
]]> Wed, 03 Sep 2008 13:18:03 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35107&title=diesel-getvar#35107 <![CDATA[DIESEL - getvar.... : DD, moje znalosti dieselu už...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35106&title=diesel-getvar#35106 Autor: Rostislav Říha
Předmět: 7129
Zasláno: 03.zář.2008 v 12:07

DD,
moje znalosti dieselu už trošku zrezly a teď potřebuju udělat makro na tištění (defacto jen posloupnost příkazu -plot) do souboru. Mám následující problémy:
  1. Jak dostanu do názvu plotsouboru název výkresu? Tuším, že něco jako getvar,dwgname, ale nevím, kam napsat uvozovky, aby to mezeru v názvu ninterpretovalo jako enter
  2. Lze v Dieselu nějak dostat (getněco) název sheetu, ze kterého se tiskne?
  3. Chci, aby se to neptalo, jestli chci přepsat název již existujícího plotsouboru - na začátek makra jsem napsal expert;2 a ono to nepomohlo...

Děkuji za případné rady

rr
]]> Wed, 03 Sep 2008 12:07:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7129&PID=35106&title=diesel-getvar#35106