CAD Fórum : Triedenie, migracia vykresov https://www.cadforum.cz/forum/ Mon, 13 Apr 2026 04:39:16 +0000 Thu, 27 Sep 2012 15:34:26 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=15555 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Triedenie, migracia vykresov : Zdravím tak sa opäť vraciam k...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72696&title=triedenie-migracia-vykresov#72696 Autor: pedroxxl
Předmět: 15555
Zasláno: 27.zář.2012 v 15:34

Zdravím tak sa opäť vraciam k tomu mojmu problému. Mal som trochu čas tak som experimentoval a narazil som na problém, ktorému nechápem. 
Predkladám lispík, ktorý v jednoduchosti označí A4 výkres presunie ho do SS 0,0 vyčíta z daných pozíci číslo a nazov a uloží ho pod týmto číslom a názvom.
Mám,ale problém, že ak počas vydzobávania výkresov z modeloveho priestoru sa napr. presuniem resp zoomujem priestor tak, že nieje vidno pozíciu 0,0 tak mi vyskočí chyba 
"Nesprávny typ argumentu lselsetp nil" a lisp sa ukončí:(( neviem prečo...
Ak je vo viditelnej "zone" pozícia 0,0 tak všetko funguje normálne.

(While T
(setq bod1 (getpoint "\nZadaj LDR"))
(setq X2 (+ (nth 0 bod1) 210.0))
(setq Y2 (+ (nth 1 bod1) 297.0))
(setq bod2 (list X2 Y2))
  (setq v(ssget "_C" bod1 bod2))
(command "_move" v "" bod1 '(0 0))

(setq X0(list 0 0))
(Setq X1(list 210 297))
(setq PozNum1(list 178 16))
(setq PozNum2(list 111 15))

(setq PozText1(list 95 16))
(setq PozText2(list 22 15))


  (command "_RECTANGLE" X0 X1)
  
(setq prvni (ssname (setq v (ssget "_C" PozNum1 PozNum2)) 0))
(setq Cislo (cdr (assoc 1 (entget prvni))))
  
(setq druhy (ssname (setq v (ssget "_C" PozText1 PozText2)) 0))
(setq TXT (cdr (assoc 1 (entget druhy))))


(setq nazev (strcat "X:/Drawings/" Cislo" - "TXT".dwg"))
(command "_-WBLOCK" nazev "" X0 "_W" X0 X1 "")

  
  )


]]> Thu, 27 Sep 2012 15:34:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72696&title=triedenie-migracia-vykresov#72696 <![CDATA[Triedenie, migracia vykresov : Mám odzkoušeno, že třeba definice...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72413&title=triedenie-migracia-vykresov#72413 Autor: Seiner
Předmět: 15555
Zasláno: 13.zář.2012 v 09:52

Mám odzkoušeno, že třeba definice hladin, písem, kótovacích stylů apod. jde dostat do výkresu prostým vložením šablony jako bloku. Nevím teď, jestli to funguje i pro nastavení strany (nepoužívám - hromadný tisk/publikování řešíme pomocí vlastní aplikace). Pokud ano, mělo by stačit vložit tu šablonu do výkresu před "rozebíráním" nebo do jednotlivých výkresů následně.]]> Thu, 13 Sep 2012 09:52:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72413&title=triedenie-migracia-vykresov#72413 <![CDATA[Triedenie, migracia vykresov : keď som mal čas tak som sa s tým...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72412&title=triedenie-migracia-vykresov#72412 Autor: pedroxxl
Předmět: 15555
Zasláno: 13.zář.2012 v 09:46

keď som mal čas tak som sa s tým hral a doplnil som tam ukladanie výkresu pod číslom a menom, ktorý načíta z výkresu a ešte som ich popresúval pred uložením do začiatku SS(X0Y0). 
Mám vytvorenu šablonu hlavne pre publikovanie(nastavenie strany), preto som chcel aby mal každý výkres rovnaké vlastnosti stránky. V budúcnosti napr. pre hromadne vytvaranie PDF.
]]> Thu, 13 Sep 2012 09:46:03 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72412&title=triedenie-migracia-vykresov#72412 <![CDATA[Triedenie, migracia vykresov : Další možnost by pak měla být,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72411&title=triedenie-migracia-vykresov#72411 Autor: Seiner
Předmět: 15555
Zasláno: 13.zář.2012 v 09:25

Další možnost by pak měla být, napřed vytvořit dy dílčí výkresy a pak si udělat script, který by do všech vložil potřebné věci. Generátor dávky není problém.]]> Thu, 13 Sep 2012 09:25:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72411&title=triedenie-migracia-vykresov#72411 <![CDATA[Triedenie, migracia vykresov : A co tím chcete dosáhnout? Jestli...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72410&title=triedenie-migracia-vykresov#72410 Autor: Seiner
Předmět: 15555
Zasláno: 13.zář.2012 v 09:23

A co tím chcete dosáhnout? Jestli potřebujete nějaké definice, hladiny apod., pak by mělo podle mého stačit do toho mega-výkresu napřed vložit šablonu.
Wblok nic takového, pokud vím, neumí. Programátorsky by to byla jiná liga. (Založit nový výkres a vložit do něj blok.)
]]> Thu, 13 Sep 2012 09:23:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72410&title=triedenie-migracia-vykresov#72410 <![CDATA[Triedenie, migracia vykresov : Chcel by som sa Vás spýtať ešte...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72409&title=triedenie-migracia-vykresov#72409 Autor: pedroxxl
Předmět: 15555
Zasláno: 13.zář.2012 v 08:28

Chcel by som sa Vás spýtať ešte pán Seiner, ten lispík čo ste tu dali na ten pišblok (viď nižšie) či by sa dal ukladať ten blok do súboru so šablónou? Alebo by to už cez ten blok nešlo, ale inou cestou.

(setq i 1)
(setq n1 (getstring "\nZákladní název:"))
(While T
(Setq LDR (getpoint "\nLDR:"))
(setq PHR (getpoint LDR "\nPHR:"))
(setq nazev (strcat (getvar 'dwgprefix) n1 "-" (itoa i)))
(command "_-WBLOCK" nazev "" LDR "_W" ldr phr "")
(setq i (1+ i))
)
]]> Thu, 13 Sep 2012 08:28:22 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=72409&title=triedenie-migracia-vykresov#72409 <![CDATA[Triedenie, migracia vykresov : leda, že by to byl třetí klik...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71991&title=triedenie-migracia-vykresov#71991 Autor: Seiner
Předmět: 15555
Zasláno: 24.srp.2012 v 13:39

leda, že by to byl třetí klik té utility - LDR, PHR, ČV
]]> Fri, 24 Aug 2012 13:39:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71991&title=triedenie-migracia-vykresov#71991 <![CDATA[Triedenie, migracia vykresov : Pokud byste dokázal s jistotou...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71990&title=triedenie-migracia-vykresov#71990 Autor: Seiner
Předmět: 15555
Zasláno: 24.srp.2012 v 13:38

Pokud byste dokázal s jistotou vybrat ten text (a tomu moc nevěřím), pak se dostanete na data entity a pomoci ASSOC si text přečtete.
 
Nemám čas - tak ukázka práce s textem:
 
(defun C:prepistext(/ PRVNI DRUHY TXT USPECH)
(setq uspech 0)
(while (= uspech 0)
(prompt "\n Vyber kopírovaný text  ")
(command "_SELECT" "_SINGLE" pause)
 (setq prvni(ssname(setq v(ssget "P"))0))
(if (= "TEXT" (cdr(assoc 0(entget prvni))))(setq uspech 1))
)
(setq TXT (cdr(assoc 1(entget prvni))))
(setq uspech 0)
(while (= uspech 0)
(prompt "\n Vyber přepisovaný text  ")
(command "_SELECT" "_SINGLE" pause)
 (setq druhy(ssname(setq v(ssget "P"))0))
(if (= "TEXT" (cdr(assoc 0(entget druhy))))(setq uspech 1))
)
(entmod  (subst (cons '1 TXT)(assoc '1 (entget Druhy))(entget druhy)))

)
]]> Fri, 24 Aug 2012 13:38:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71990&title=triedenie-migracia-vykresov#71990 <![CDATA[Triedenie, migracia vykresov : Seiner napsal(a):Teď jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71988&title=triedenie-migracia-vykresov#71988 Autor: pedroxxl
Předmět: 15555
Zasláno: 24.srp.2012 v 13:26

Původně odeslal(a) Seiner Seiner napsal(a):

Teď jsem si ještě všimnul toho čísla výkresu - to by také šlo v rámci té utilitky. Máte okno, v něm dáte vybrat blok razítka a přečtete si atribut a ten použijete jako název souboru. (Já jsem tam dal jen pořadové číslo). Ale s tím se teď nemůžu zabývat.
No akurát sa o to snažím, ale razítka sú kreslene normalne čiarami a je tam vloženy len text takže žiadne bloky... A hľadám príkazy lebo ja som taký začiatočník v tom. Viete mi poradiť ako z obrazovky prečítam text ak poznám súradnice?
]]> Fri, 24 Aug 2012 13:26:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71988&title=triedenie-migracia-vykresov#71988 <![CDATA[Triedenie, migracia vykresov : Teď jsem si ještě všimnul toho...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71986&title=triedenie-migracia-vykresov#71986 Autor: Seiner
Předmět: 15555
Zasláno: 24.srp.2012 v 13:09

Teď jsem si ještě všimnul toho čísla výkresu - to by také šlo v rámci té utilitky. Máte okno, v něm dáte vybrat blok razítka a přečtete si atribut a ten použijete jako název souboru. (Já jsem tam dal jen pořadové číslo). Ale s tím se teď nemůžu zabývat.]]> Fri, 24 Aug 2012 13:09:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15555&PID=71986&title=triedenie-migracia-vykresov#71986