请教大家怎么让一个文件夹里面所有cad图中的一个图块变为外部参照，谢谢

lingduwx · 发表于 2015-2-2 11:49:54

请教大家怎么让一个文件夹里面所有cad图中的一个图块变为外部参照，谢谢

就是一个文件夹里面有很多小文件夹，各小文件夹里面有很多个不同的CAD图，怎么让这些CAD中的一个图块（所有CAD里面都有相同的图块）快速变为一个外部参照？谢谢高手了

e2002 · 发表于 2019-7-12 22:26:13

印象中好像 expresstools中有这样的一个工具。

ZZXXQQ · 发表于 2015-2-2 20:37:13

编程思路：
1、选择这个图块；
2、用WBLOCK命令将这个图块另存成同名外部块，插入点与块同；
3、全选这种图块；
4、取出块插入点放入一个表中；
5、删除这种块并清理块；
6、循环表，按插入点用命令外部参照该块。

lingduwx · 发表于 2015-2-2 21:37:56

555俺在明经白混了啊，麻烦版主帮忙写个LSP嘛，小弟先谢了

ZZXXQQ · 发表于 2015-2-3 11:01:16

lingduwx 发表于 2015-2-2 21:37
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)
)

lingduwx · 发表于 2015-2-3 13:19:33

ZZXXQQ 发表于 2015-2-3 11:01

非常感谢版主的热心帮助，不过现在还有点小问题麻烦版主在看看怎么回事，另外请问下在布局上面的图块可否做成参照块啊，谢谢
命令: kcz

选择要转换的图块: 正在删除块“A$C5AB60089”。
已删除 1 个块。

找不到未参照的图层。

找不到未参照的线型。

找不到未参照的文字样式。

找不到未参照的形文件。

找不到未参照的标注样式。

找不到未参照的多线样式。

找不到未参照的打印样式。

找不到未参照的表格样式。

找不到未参照的材质。

找不到未参照的视觉样式。

找不到未参照的多重引线样式。

找不到未参照的组。

找不到未参照的局部视图样式。

找不到未参照的截面视图样式。

无效的选项关键字。
; 错误: 函数被取消

一叶舟 · 发表于 2019-7-12 22:17:13

请教ZZXXQQ，如何设置外参文件的保存地址

一叶舟 · 发表于 2019-7-12 22:45:59

e2002 发表于 2019-7-12 22:26
印象中好像 expresstools中有这样的一个工具。

上面的那句(command "_.WBLOCK" bnm bnm)如何修改？比如要到F:\健身中心\WORK
程序是默认电脑中的文档文件件

一叶舟 · 发表于 2019-7-12 22:48:25

其实我是想实现原位块转化为外部参照，比例，插入点那些都不需要选择

账号		自动登录	找回密码
密码			注册

[提问] 请教大家怎么让一个文件夹里面所有cad图中的一个图块变为外部参照，谢谢

相关帖子

浏览过的版块