;;
;; Replace Points With Block
;;
(defun c:p2b
(/ *error* _blocks lst block ss space
)
)
)
)
)
)
)
)
(cond ((not (setq lst
(_blocks
*AcadDoc
*))) (alert "Zero blocks in active drawing!")) ((and (setq block
(car (AT:ListSelect
"Select block to insert:" "" 10 10 "false" lst
))) (princ "\nSelect POINT objects to replace: ") (ssget "_:L" '
((0 .
"POINT"))) )
*AcadDoc*
'PaperSpace
'ModelSpace
)
)
)
;(setq scl (getvar "useri1"))
; (setq scl1 (* scl 0.0025))
)
)
)
)
(*error* nil)
)
(defun AT:ListSelect
(title label height width multi lst
/ fn fo d item f
) ;; List Select Dialog (Temp DCL list box selection, based on provided list)
;; title - list box title
;; label - label for list box
;; height - height of box
;; width - width of box
;; multi - selection method ["true": multiple, "false": single]
;; lst - list of strings to place in list box
;; Alan J. Thompson, 09.23.08 / 05.17.10 (rewrite)
(strcat ": list_box { label = \"" label
"\";" "key = \"lst\";") (strcat "multiple_select = " multi
"; } spacer; ok_cancel; }") )
)
)
)
item
)
)
)
;
; Block to point
;
(defun c:b2p
(/ ss i e d
) )
)
)
)
)
)