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))

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

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

Dakujem za rychlu reakciu, robi to presne tak, ako som si predstavoval. Mne to usetri velmi vela casu pri mojej praci. Este raz vdaka.

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ý.