CAD Fórum : b.lsp https://www.cadforum.cz/forum/ Tue, 12 May 2026 11:45:53 +0000 Wed, 04 Jun 2008 09:18:54 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=6402 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[b.lsp : No to jste mi toho moc nesdělil....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31961&title=blsp#31961 Autor: Seiner
Předmět: 6402
Zasláno: 04.čer.2008 v 09:18

No to jste mi toho moc nesdělil. Pak (se) nechtějte radit. Předpokládám, že máte nějakou uživatelskou funkci, která dělá, co chcete. Je celkem zbytečné dělat ji jako startatup. Jestliže ji odladíte na jednom výkrese a funguje, je druhým krokem aplikovat to na nějaký seznam výkresů. A já jsem toho názoru, že tady je cesta jen přes script. A ten není nutné psát ručně, ale je možné použít generátor.
  Já používám svůj generátor a tajnosti s ním nedělám http://www2.chrudim.cz/seiner/programy/Davka.zip
 
]]> Wed, 04 Jun 2008 09:18:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31961&title=blsp#31961 <![CDATA[b.lsp : Je to řešeno formou (defun S::STARTUP...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31958&title=blsp#31958 Autor: Ferdinand
Předmět: 6402
Zasláno: 04.čer.2008 v 08:09

Je to řešeno formou
(defun S::STARTUP ()
(již jsem o tom psal v minulosti na jiném místě...)
pak se sestaví seznam dwg v akt. adresáři a pak z něj se berou výkres za výkresem (je to práce kolegy, takže podrobnosti musím vynechat).


Upravil Ferdinand - 04.čer.2008 v 08:10]]> Wed, 04 Jun 2008 08:09:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31958&title=blsp#31958 <![CDATA[b.lsp : Omlouvám se, nesledoval jsem....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31935&title=blsp#31935 Autor: Seiner
Předmět: 6402
Zasláno: 03.čer.2008 v 15:54

Omlouvám se, nesledoval jsem. Ale jak chcete otevírat další výkresy? V lispu to já teda neumím. Na to požívám scripty (demo) a generátor scriptů.]]> Tue, 03 Jun 2008 15:54:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31935&title=blsp#31935 <![CDATA[b.lsp : Je to nějak zacyklovaný - pořád...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31934&title=blsp#31934 Autor: Ferdinand
Předmět: 6402
Zasláno: 03.čer.2008 v 15:48

Je to nějak zacyklovaný - pořád to dělá ten 1 a samý výkres (v uzavřeném cyklu) a CAD musím sestřelit TaskManagerem...]]> Tue, 03 Jun 2008 15:48:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31934&title=blsp#31934 <![CDATA[b.lsp : No vždyť kvůli tomu jsem posílal...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31869&title=blsp#31869 Autor: pavelstyl
Předmět: 6402
Zasláno: 02.čer.2008 v 06:59

No vždyť kvůli tomu jsem posílal tu funkci "block_edit_ss", jejíž první parametr je výběrová množina. Potom to přebarvení se provede jenom na bloky v té výběrové množině.
 
Podle mě by stačilo něco jako:
(setq ss (ssget "X" (list (cons 0 "INSERT") (cons 2 "*_C-*"))))
(block_edit_ss ss ......)
 
PS: Jestli plácám nesmysly, tak se omlouvám. Právě jsem se vrátil z dovolené :-)
 
Pavel Štyl
]]> Mon, 02 Jun 2008 06:59:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31869&title=blsp#31869 <![CDATA[b.lsp : Potřebuji pomoct s provedením...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31849&title=blsp#31849 Autor: Ferdinand
Předmět: 6402
Zasláno: 30.kvě.2008 v 14:52

Potřebuji pomoct s provedením následujících (pro sjednocení vzhledu bloků v naší nadstavbové databázi - cca. 1200 souborů) - tj. aplikovat "hromadný" _refedit :
1- najdi v akt. výkresu bloky, které mají ve svém názvu řetězec *_C-*
- vyber jejich entity, které mají současně tyto vlastnosti:
-- mají barvu "ByBlock"
-- mají typ čáry "center"
- změň vlastnosti těchto entit na:
-- barva=ByBlock
-- typ čáry=ByBlock
- nastav vlastnosti těchto bloků na:
-- barva=6
-- typ čáry=center
 
2- najdi v akt. výkresu bloky, které neobsahují ve svém názvu řetězec  *_C-*
- vyber jejich entity s těmito vlastnostmi:
-- mají barvu "ByLayer"
-- mají typ čáry "ByLayer"
- změň vlastnosti těchto entit na:
-- barva=ByBlock
-- typ čáry=ByBlock
- nastav vlastnosti těchto bloků na:
-- barva=ByBlock
-- typ čáry=ByBlock
 
Potíž je v tom, že Pavlův program b.lsp řeší vlastnosti všech bloků, a to globálně.
]]> Fri, 30 May 2008 14:52:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31849&title=blsp#31849 <![CDATA[b.lsp : Projeví se to nějak i v dialogu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31628&title=blsp#31628 Autor: Ferdinand
Předmět: 6402
Zasláno: 20.kvě.2008 v 10:13

Projeví se to nějak i v dialogu / ve skriptu ?]]> Tue, 20 May 2008 10:13:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31628&title=blsp#31628 <![CDATA[b.lsp : Dobrý den,píši to z hlavy bez...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31627&title=blsp#31627 Autor: pavelstyl
Předmět: 6402
Zasláno: 20.kvě.2008 v 10:00

Dobrý den,
 píši to z hlavy bez odzkoušení. Zkuste do b.lsp přidat následující procedurku viz níže. První parametr je výběrová množina, ve které by měly být bloky.

Pavel Štyl
 
(defun block_edit_ss (ss co1 co2 co3 lt1 lt2 lt3 la1 la2 la3 / b i eg)
 (setq _BLOCK_CO_TYP co1)
 (setq _BLOCK_CO_2 co2)
 (setq _BLOCK_CO_3 co3)
 (setq _BLOCK_LT_TYP lt1)
 (setq _BLOCK_LT_2 lt2)
 (setq _BLOCK_LT_3 lt3)
 (setq _BLOCK_LA_TYP la1)
 (setq _BLOCK_LA_2 la2)
 (setq _BLOCK_LA_3 la3)
 
 (setq _BLOCK_LIST nil i 0)
 (while (< i (sslength ss))
  (setq eg (entget (ssname ss i)))
  (if (= (cdr (assoc 0 eg)) "INSERT")
   (setq _BLOCK_LIST (append _BLOCK_LIST (list (cdr (assoc 2 eg)))))
  )
  (setq i (1+ i))
 )
 (block_change)
 (command "_regen")
)
]]> Tue, 20 May 2008 10:00:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31627&title=blsp#31627 <![CDATA[b.lsp : To je OK, filtrované výběry samostatních...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31626&title=blsp#31626 Autor: Ferdinand
Předmět: 6402
Zasláno: 20.kvě.2008 v 10:00

To je OK, filtrované výběry samostatních entit (mimo blok) běžně používám taky. Ale jak na ty bloky? V podstatě jde o jakýsi přepis dialogového příkazu refedit do lispové podoby (což už jsme probírali v jiném mnou založeném tématu myslím že se to jmenovalo hromadný refedit) - vzešlo z toho skvělá pomůcka od Pavla a zda by ji o tuto možnost (pokud je to možné) rozšířil.

Upravil Ferdinand - 20.kvě.2008 v 10:07]]> Tue, 20 May 2008 10:00:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31626&title=blsp#31626 <![CDATA[b.lsp : Já používám třeba takovýto způsob...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31623&title=blsp#31623 Autor: Martin Bielina
Předmět: 6402
Zasláno: 20.kvě.2008 v 09:24

Já používám třeba takovýto způsob filtrování v lispu

;výběr entit k záměně (úsečka ležící v jedné ze tří určených hladin)
(setq ent_sel (ssget "_X" '((-4 . "<AND")
                                (0 . "LINE")
                                (-4 . "<OR")
                                  (8 . "HLADINA 1")
                                  (8 . "HLADINA 2")
                                  (8 . "HLADINA X...")
                                (-4 . "OR>")
                             (-4 . "AND>")
                             )
                            )
                          )

Kombinovat se dají i jiné typy požadavků (barva, název entity, souřadnice atd. viz referenční příručka nápovědě). Toto je jen příklad, který přímo Váš problém nevyřeší, bude to potřeba trochu upravit na konkrétní požadavky.]]> Tue, 20 May 2008 09:24:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6402&PID=31623&title=blsp#31623