All pastes #905399 Raw Edit

Untitled

public text v1 · immutable
·published 2008-02-15 19:01 UTC
rendered paste body
(defun c:sb (/ b2s)
(setq b2s(getstring T "Name of block(s) to select? (separate by comma) <select>"))
(if (= b2s "") (setq b2s (cdr (assoc 2 (entget (car (entsel)))))))
(sssetfirst nil (ssget "x" (list (cons 0 "INSERT") (cons 2 b2s) (cons 410 (getvar "ctab"))))))