求大神帮忙，如何一键插入绑定外部参照

jake1990

探索问题很久，希望好心人帮忙解决下

doro

是这个吗 (setvar "bindtype" 1)

kwok

(defun c:tt()
(command "-xref" "A")
(command "-xref" "B" "*")
)

xsso

（Vla-bind block ：vlax-true）

Block要你自己转换一下

jake1990

kwok 发表于 2014-12-19 10:00
(defun c:tt()
(command "-xref" "A")
(command "-xref" "B" "*")

谢谢大神的解答，我主要是想解决一键绑定后图层问题。
例如，如果命名为 FLOOR1 的外部参照包含命名为 WALL 的图层，则在使用“插入”选项绑定外部参照之后，依赖外部参照的图层 FLOOR1|WALL 将成为内部定义图层 WALL。

jake1990

xsso 发表于 2014-12-19 10:26
（Vla-bind block ：vlax-true）

Block要你自己转换一下

谢谢大神的解答，我主要是想解决一键绑定后图层问题。
例如，如果命名为 FLOOR1 的外部参照包含命名为 WALL 的图层，则在使用“插入”选项绑定外部参照之后，依赖外部参照的图层 FLOOR1|WALL 将成为内部定义图层 WALL。

jake1990

vectra

“插入”选项绑定外部参照，图层本来会合并进来，有什么问题呢

xsso

jake1990 发表于 2014-12-19 12:18
谢谢大神的解答，我主要是想解决一键绑定后图层问题。
例如，如果命名为 FLOOR1 的外部参照包含命名为 W ...

就是用这个解决问题，插入绑定

jake1990

xsso 发表于 2014-12-19 22:58
就是用这个解决问题，插入绑定

(defun C:ii ( / inskey lst)
  (setq inskey "T")
  (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)
)

casd

非常好，正在找办法