https://www.cadforum.cz/forum/ Tue, 09 Jun 2026 21:28:48 +0000 Mon, 30 Mar 2009 14:06:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=8380 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42574&title=select-blocks#42574 Autor: zdrk
Předmět: 8380
Zasláno: 30.bře.2009 v 14:06

Zkusil jsem to v cadu, ale v mém architecturu bez účinku (nezná příkaz [CMD]PSELECT[/CMD]).
Na jiném PC s obyč cadem funkční a dobrý.]]> Mon, 30 Mar 2009 14:06:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42574&title=select-blocks#42574 https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42556&title=select-blocks#42556 Autor: hjls22
Předmět: 8380
Zasláno: 30.bře.2009 v 12:23

Dakujem za rychlu reakciu, robi to presne tak, ako som si predstavoval. Mne to usetri velmi vela casu pri mojej praci. Este raz vdaka.
]]> Mon, 30 Mar 2009 12:23:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42556&title=select-blocks#42556 https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42538&title=select-blocks#42538 Autor: alfred
Předmět: 8380
Zasláno: 30.bře.2009 v 06:56

zakomentujete nebo smazte radky:
;(princ "\nbase point ")
;(command "_copybase" pause blocks "")

na jejich misto dejte:
(command "_pselect" blocks "")



]]> Mon, 30 Mar 2009 06:56:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42538&title=select-blocks#42538 https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42536&title=select-blocks#42536 Autor: hjls22
Předmět: 8380
Zasláno: 29.bře.2009 v 19:29

Tento program kopiruje bloky do clipboardu. Vedel by niekto urobit taku upravu, aby program len selektoval bloky?

(defun c:b2c( / answer name blocks)
(setvar "cmdecho" 0)
(initget "N")
(setq answer (entsel "\nselect block\\enter [N]ame "))
(setq name (if (listp answer)
(cdr (assoc 2 (entget (car answer))))
(getstring "\nenter block name ")
)
blocks (ssget "X" (list (cons 0 "insert") (cons 2 name))))
(princ "\nbase point ")
(command "_copybase" pause blocks "")
(princ "\nOK")
(princ)
)

]]> Sun, 29 Mar 2009 19:29:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8380&PID=42536&title=select-blocks#42536