{源码} cad全图外部参照绑定(插入)

;| (xblk-xbdcr key) = 全图外部参照绑定(插入).-ok!--by lxx.2007.1
key = T 插入; nil 绑定;
测试:(加载后,在cad命令行输入以下内容)
(xblk-xbdcr T)
(xblk-xbdcr nil)
|;
(defun xblk-xbdcr (inskey / lst)
(princ "\n 全图外部参照绑定(插入).--by lxx.2007.1")
(setq inskey (if inskey :vlax-true :vlax-false))
(setq *doc (vla-get-activedocument(vlax-get-acad-object)))
(vlax-for x (vla-get-blocks *doc)
(if (= :vlax-true (vla-get-isxref x))
(setq lst(cons x lst))
)
)
(mapcar (FUNCTION (LAMBDA(x)(vla-bind x inskey))lst)
)