CAD Fórum : tvorba bloku https://www.cadforum.cz/forum/ Thu, 11 Jun 2026 10:27:07 +0000 Thu, 12 Feb 2009 14:39:20 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=8087 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[tvorba bloku : Děkuji za objasnění. Takže při...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40906&title=tvorba-bloku#40906 Autor: Ferdinand
Předmět: 8087
Zasláno: 12.úno.2009 v 14:39

Děkuji za objasnění. Takže při použití ! mi vytvořil blok včetně DWGC, DWGH proto, že výrazy !Q... v lispu jsou brány jako nil - vlastně jsem odebíral "nic"... Opraveno, vyzkoušeno, je to OK.]]> Thu, 12 Feb 2009 14:39:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40906&title=tvorba-bloku#40906 <![CDATA[tvorba bloku : V LISPU píšete jen název proměnné...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40896&title=tvorba-bloku#40896 Autor: Vladimír Michl
Předmět: 8087
Zasláno: 12.úno.2009 v 13:07

V LISPU píšete jen název proměnné (symbolu) s výběrovou množinou. Při ručním zadávání příkazu žádný LISP neběží, takže se k hodnotě symbolu musíte dostat funkcí "!".]]> Thu, 12 Feb 2009 13:07:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40896&title=tvorba-bloku#40896 <![CDATA[tvorba bloku : To jsem samozřejmě již vyzkoušel....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40879&title=tvorba-bloku#40879 Autor: Ferdinand
Předmět: 8087
Zasláno: 12.úno.2009 v 10:12

To jsem samozřejmě již vyzkoušel. Nakopíruji-li do p.ř.

(command "_-block" DWG "0,0" "_All" "_R" QSC QSH "")
tak to provede, ale pokud píšu ručně na p.ř. celý příkaz -block, tak tam musím psát !QSC..., jinak tu výběrovou množinu neuzná... Jak to má být v lispu?
]]> Thu, 12 Feb 2009 10:12:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40879&title=tvorba-bloku#40879 <![CDATA[tvorba bloku : Ferdinand napsal(a): (command...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40870&title=tvorba-bloku#40870 Autor: pavelstyl
Předmět: 8087
Zasláno: 12.úno.2009 v 08:57

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

    (command "_-block" DWG "0,0" "_All" "_R" !QSC !QSH "")
 
Ty vykřičníky mi tam nějak nesedí. Zkusil bych to bez nich.
 
Pavel Štyl
]]> Thu, 12 Feb 2009 08:57:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40870&title=tvorba-bloku#40870 <![CDATA[tvorba bloku : Mám lisp pro vytvoření bloku (defun... ... (command...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40868&title=tvorba-bloku#40868 Autor: Ferdinand
Předmět: 8087
Zasláno: 12.úno.2009 v 08:53

Mám lisp pro vytvoření bloku
(defun...
...
(command "-purge" "_B" "*" "_N")
(setq DWG (cadr (fnsplitl (getvar "dwgname"))))
(setq DWGC (strcat DWG "_C"))
(setq DWGH (strcat DWG "_H"))
(setq QS (ssget "X" (list (cons 0 "insert") (cons 2 DWG))))
(setq QSC (ssget "X" (list (cons 0 "insert") (cons 2 DWGC))))
(setq QSH (ssget "X" (list (cons 0 "insert") (cons 2 DWGH))))
(if (tblsearch "block" DWG)
  nil
  (progn
    (command "_-block" DWG "0,0" "_All" "_R" !QSC !QSH "")
    (command "_-insert" DWG "0,0" 1 1 0)
    (command "_-purge" "_A" "*" "_N")
    (command "_zoom" "_e")
    (command "_qsave")
  )
)
...
)
Pokud ten lisp načtu, vytvoří se blok včetně DWGC a DWGH (pokud tam jsou) - což nechci  Confused ; potřebuji čistě blok ze všech entit kromě již hotových bloků DWGC a DWGH.
Další zajímavost je, že při ladění lispu když řádek
(command "-block" DWG "0,0" "_All" "_R" !QSC !QSH "")
jsem vložil do p.ř., nic se neprovedlo. Pokud jsem to psal ručně, tak se to provedlo.Shocked
]]> Thu, 12 Feb 2009 08:53:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8087&PID=40868&title=tvorba-bloku#40868