请教大家怎么让一个文件夹里面所有cad图中的一个图块变为外部参照，谢谢
请教大家怎么让一个文件夹里面所有cad图中的一个图块变为外部参照，谢谢就是一个文件夹里面有很多小文件夹，各小文件夹里面有很多个不同的CAD图，怎么让这些CAD中的一个图块（所有CAD里面都有相同的图块）快速变为一个外部参照？谢谢高手了
印象中好像 expresstools中有这样的一个工具。 编程思路：
1、选择这个图块；
2、用WBLOCK命令将这个图块另存成同名外部块，插入点与块同；
3、全选这种图块；
4、取出块插入点放入一个表中；
5、删除这种块并清理块；
6、循环表，按插入点用命令外部参照该块。 555俺在明经白混了啊，麻烦版主帮忙写个LSP嘛，小弟先谢了 lingduwx 发表于 2015-2-2 21:37 static/image/common/back.gif
555俺在明经白混了啊，麻烦版主帮忙写个LSP嘛，小弟先谢了
;块转参照 明经 ZZXXQQ 2015.2.3
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq ptlst (list))
(if (and (setq s1 (entsel "\n选择要转换的图块: "))
(setq ent (entget(car s1)))
(= (cdr(assoc 0 ent)) "INSERT")
(setq bnm (cdr(assoc 2 ent)))
(not(assoc 1 (tblsearch "BLOCK" bnm)))) (progn
(command "_.WBLOCK" bnm bnm)
(setq ss (ssget "X" (list '(0 . "INSERT") (cons 2 bnm))))
(repeat (setq i (sslength ss))
(setq ent (entget(ssname ss (setq i (1- i)))))
(setq ptlst (cons (list(cdr(assoc 10 ent))(cdr(assoc 41 ent))(cdr(assoc 42 ent))(cdr(assoc 50 ent))) ptlst))
)
(command "_.ERASE" ss "")
(command "_.PURGE" "All" "*" "N")
(foreach pt ptlst (command "-XREF" bnm (car pt) (cadr pt) (caddr pt) (last pt)))
))
(setvar "CMDECHO" 1)
(princ)
)
ZZXXQQ 发表于 2015-2-3 11:01 static/image/common/back.gif
非常感谢版主的热心帮助，不过现在还有点小问题麻烦版主在看看怎么回事，另外请问下在布局上面的图块可否做成参照块啊，谢谢
命令: kcz
选择要转换的图块: 正在删除块“A$C5AB60089”。
已删除 1 个块。
找不到未参照的图层。
找不到未参照的线型。
找不到未参照的文字样式。
找不到未参照的形文件。
找不到未参照的标注样式。
找不到未参照的多线样式。
找不到未参照的打印样式。
找不到未参照的表格样式。
找不到未参照的材质。
找不到未参照的视觉样式。
找不到未参照的多重引线样式。
找不到未参照的组。
找不到未参照的局部视图样式。
找不到未参照的截面视图样式。
无效的选项关键字。
; 错误: 函数被取消
请教ZZXXQQ，如何设置外参文件的保存地址 e2002 发表于 2019-7-12 22:26
印象中好像 expresstools中有这样的一个工具。
上面的那句(command "_.WBLOCK" bnm bnm)如何修改？比如要到F:\健身中心\WORK
程序是默认电脑中的文档文件件 其实我是想实现原位块转化为外部参照，比例，插入点那些都不需要选择
页:
[1]