select blocks
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=8380
Datum vytištění: 10.čer.2026 v 00:08
Téma: select blocks
Odeslal: hjls22
Předmět: select blocks
Datum odeslání: 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)
)
-------------
quickselect pouzivam velmi casto takto: quickselect,block,name. je to velmi zdlhave ak to pouzivam niekolkokrat za minutu. je nieco jednoduchsie?
|
Odpovědi:
Odeslal: alfred
Datum odeslání: 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 "")
|
Odeslal: hjls22
Datum odeslání: 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.
-------------
quickselect pouzivam velmi casto takto: quickselect,block,name. je to velmi zdlhave ak to pouzivam niekolkokrat za minutu. je nieco jednoduchsie?
|
Odeslal: zdrk
Datum odeslání: 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ý.
|
|