;; Copy Attributes - Lee Mac
;; Prompts the user to select a 'source' attributed block and proceeds to copy
;; attribute data from the source block to all attributed blocks in the subsequent selection.
(defun c:attcopy
( / inc lst sel src val
) (setq src
(LM:
ssget "\nSelect Source Block: " '
("_+.:E:S" ((0 .
"INSERT") (66 .
1))))) (setq sel
(LM:
ssget "\nSelect Blocks for Copied Attributes: " '
(((0 .
"INSERT") (66 .
1))))) )
)
)
)
)
)
)
)
)
)
)
;; ssget - Lee Mac
;; A wrapper for the ssget function to permit the use of a custom selection prompt
;;
;; Arguments:
;; msg - selection prompt
;; params - list of ssget arguments
)