有用本图的图块替换其他文件中同名块的插件吗？

轻尘

如题，我的想法是先把本图的某些带关键字的图块写到临时文件夹，再插入到其他文件。更新块定义。但是不知如何操作

轻尘

让newbing帮忙写了一段代码，将本图中的以'GPS'开头的块分别写到新文件中，新文件的文件名同块名，路径同本图一致。 代码运行时提示文件名无效，有大侠帮忙看下问题在哪儿吗？
代码如下：

2. (defun c:test1 (/ ss blkname blkpath)
   
3.   (setq ss (ssget "_X" '((0 . "INSERT")(2 . "GPS*"))))
   
4.   (repeat (setq i (sslength ss))
   
5.     (setq blkname (cdr (assoc 2 (entget (ssname ss (setq i (1- i)))))))
   
6.     (setq blkpath (strcat (getvar 'dwgprefix) blkname ".dwg"))
   
7.     (command "_.-wblock" ss blkpath "" "0")
   
8.   )
   
9. )

(defun c:test1 (/ ss blkname blkpath)<br />   (setq ss (ssget "_X" '((0 . "INSERT")(2 . "GPS*"))))<br />   (repeat (setq i (sslength ss))<br />     (setq blkname (cdr (assoc 2 (entget (ssname ss (setq i (1- i)))))))<br />     (setq blkpath (strcat (getvar 'dwgprefix) blkname ".dwg"))<br />     (command "_.-wblock" ss blkpath "" "0")<br />   )<br /> )

嘒彼小星

设计中心这个功能好使。你这个代码的需求我写不上。设计中心 ctrl+2

轻尘

嘒彼小星 发表于 2023-8-6 17:48
设计中心这个功能好使。你这个代码的需求我写不上。设计中心 ctrl+2

需要替换的图块比较多

轻尘

用chatgpt写了两段代码，基本能实现在不同文件中批量替换同名块了。
1. 把本文件中的块名带“gps”的块保存到temp文件夹

2. (vl-load-com)
   
3. 
   
4. ;; 定义一个函数，用于将指定名称的块保存到新文件
   
5. (defun wblock-gps-block (blkName / blkpath)
   
6.   ;; 执行 WBLOCK 命令
   
7.   (setq blkpath (strcat (getvar 'dwgprefix) "TEMP\" blkName ".dwg"))
   
8.   (command "_wblock" blkpath "Y" blkName)
   
9.   ;; 输出提示信息
   
10.   (princ (strcat "已将块保存到文件：" blkpath "\n"))
    
11. )
    
12. 
    
13. ;; 定义一个函数，用于获取所有包含'gps'的块的名称
    
14. (defun get-gps-block-names (/ selSet ent obj blkName dynamicBlkName i blockNames)
    
15.   ;; 获取所有插入的块
    
16.   (setq selSet (ssget "_X" '((0 . "INSERT")(2 . "`*U*,*gps-*"))))
    
17.   ;; 初始化块名称列表
    
18.   (setq blockNames '())
    
19.   ;; 遍历所有插入的块
    
20.   (if selSet
    
21.     (progn
    
22.       (setq i 0)
    
23.       (repeat (sslength selSet)
    
24.         ;; 获取当前块的实体和对象
    
25.         (setq ent (ssname selSet i))
    
26.         (setq obj (vlax-ename->vla-object ent))
    
27.         ;; 判断当前块是否为动态块
    
28.         (if (= (vla-get-IsDynamicBlock obj) :vlax-true)
    
29.           ;; 获取当前动态块的有效名称
    
30.           (setq blkName (vla-get-EffectiveName obj))
    
31.           ;; 获取当前静态块的定义名称
    
32.           (setq blkName (cdr (assoc 2 (entget ent))))
    
33.         )
    
34.         ;; 将当前块名称添加到列表中（如果不存在）
    
35.         (if (not (member blkName blockNames))
    
36.           (setq blockNames (cons blkName blockNames))
    
37.         )
    
38.         ;; 更新循环计数器
    
39.         (setq i (1+ i))
    
40.       )
    
41.     )
    
42.   )
    
43.   ;; 返回块名称列表
    
44.   blockNames
    
45. )
    
46. 
    
47. ;; 定义一个函数，用于将所有包含'gps'的块保存到新文件
    
48. (defun c:wblock-gps-blocks (/ blockNames)
    
49.   ;; 输出一个空行
    
50.   (princ "\n")
    
51.   ;; 获取所有包含'gps'的块的名称
    
52.   (setq blockNames (get-gps-block-names))
    
53.   ;; 判断是否存在包含'gps'的块
    
54.   (if blockNames
    
55.     ;; 遍历所有包含'gps'的块的名称
    
56.     (foreach blkName blockNames
    
57.       ;; 将当前块保存到新文件
    
58.       (wblock-gps-block blkName)
    
59.     )
    
60.     ;; 输出提示信息
    
61.     (princ "未找到包含'gps'的块。\n")
    
62.   )
    
63.   ;; 输出一个空行
    
64.   (princ "\n")
    
65. )
    
66. 
    
67. ;; 调用函数，将所有包含'gps'的块保存到新文件
    
68. (c:wblock-gps-blocks)
    

(vl-load-com)<br /> <br /> ;; 定义一个函数，用于将指定名称的块保存到新文件<br /> (defun wblock-gps-block (blkName / blkpath)<br />   ;; 执行 WBLOCK 命令<br />   (setq blkpath (strcat (getvar 'dwgprefix) "TEMP\" blkName ".dwg"))<br />   (command "_wblock" blkpath "Y" blkName)<br />   ;; 输出提示信息<br />   (princ (strcat "已将块保存到文件：" blkpath "\n"))<br /> )<br /> <br /> ;; 定义一个函数，用于获取所有包含'gps'的块的名称<br /> (defun get-gps-block-names (/ selSet ent obj blkName dynamicBlkName i blockNames)<br />   ;; 获取所有插入的块<br />   (setq selSet (ssget "_X" '((0 . "INSERT")(2 . "`*U*,*gps-*"))))<br />   ;; 初始化块名称列表<br />   (setq blockNames '())<br />   ;; 遍历所有插入的块<br />   (if selSet<br />     (progn<br />       (setq i 0)<br />       (repeat (sslength selSet)<br />         ;; 获取当前块的实体和对象<br />         (setq ent (ssname selSet i))<br />         (setq obj (vlax-ename->vla-object ent))<br />         ;; 判断当前块是否为动态块<br />         (if (= (vla-get-IsDynamicBlock obj) :vlax-true)<br />           ;; 获取当前动态块的有效名称<br />           (setq blkName (vla-get-EffectiveName obj))<br />           ;; 获取当前静态块的定义名称<br />           (setq blkName (cdr (assoc 2 (entget ent))))<br />         )<br />         ;; 将当前块名称添加到列表中（如果不存在）<br />         (if (not (member blkName blockNames))<br />           (setq blockNames (cons blkName blockNames))<br />         )<br />         ;; 更新循环计数器<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   ;; 返回块名称列表<br />   blockNames<br /> )<br /> <br /> ;; 定义一个函数，用于将所有包含'gps'的块保存到新文件<br /> (defun c:wblock-gps-blocks (/ blockNames)<br />   ;; 输出一个空行<br />   (princ "\n")<br />   ;; 获取所有包含'gps'的块的名称<br />   (setq blockNames (get-gps-block-names))<br />   ;; 判断是否存在包含'gps'的块<br />   (if blockNames<br />     ;; 遍历所有包含'gps'的块的名称<br />     (foreach blkName blockNames<br />       ;; 将当前块保存到新文件<br />       (wblock-gps-block blkName)<br />     )<br />     ;; 输出提示信息<br />     (princ "未找到包含'gps'的块。\n")<br />   )<br />   ;; 输出一个空行<br />   (princ "\n")<br /> )<br /> <br /> ;; 调用函数，将所有包含'gps'的块保存到新文件<br /> (c:wblock-gps-blocks)<br />

2. 将temp中的同名文件插入本图以替换块定义

2. (defun c:replace-wblock (/ ss blkname blkpath1 blkpath2)
   
3. 注意：需要操作的多个文件需要在同一文件夹.
   
4.   (setq current-folder (strcat (getvar 'dwgprefix) "TEMP\")) ; 获取当前文件所在文件夹路径
   
5.   (setq files (vl-directory-files current-folder "*.dwg" 1)) ; 获取temp子文件夹中的所有dwg文件名，并返回一个列表
   
6.   (if files
   
7.     (foreach file files ; 遍历每个文件名
   
8.       (setq blkname (substr file 1 (- (strlen file) 4))) ; 假设块名在文件名中，去除扩展名
   
9.       (setq blkpath1 (strcat (getvar 'dwgprefix) "TEMP\" blkname ".dwg"))
   
10.       (setq blkpath2 (strcat blkname "=" blkpath1)) ; 拼接插入选项
    
11.       (command "-insert" blkpath2 "Y" nil)
    
12.     )
    
13.   )
    
14. )
    
15. (c:replace-wblock)
    

(defun c:replace-wblock (/ ss blkname blkpath1 blkpath2)<br /> 注意：需要操作的多个文件需要在同一文件夹.<br />   (setq current-folder (strcat (getvar 'dwgprefix) "TEMP\")) ; 获取当前文件所在文件夹路径<br />   (setq files (vl-directory-files current-folder "*.dwg" 1)) ; 获取temp子文件夹中的所有dwg文件名，并返回一个列表<br />   (if files<br />     (foreach file files ; 遍历每个文件名<br />       (setq blkname (substr file 1 (- (strlen file) 4))) ; 假设块名在文件名中，去除扩展名<br />       (setq blkpath1 (strcat (getvar 'dwgprefix) "TEMP\" blkname ".dwg"))<br />       (setq blkpath2 (strcat blkname "=" blkpath1)) ; 拼接插入选项<br />       (command "-insert" blkpath2 "Y" nil)<br />     )<br />   )<br /> )<br /> (c:replace-wblock)<br />

轻尘

大神们还有优化的空间吗？

kozmosovia

想复杂了，直接把其他图插进来再WBLOCK出去覆盖就行了，同名图块会用本图的定义。

轻尘

kozmosovia 发表于 2023-8-11 16:46
想复杂了，直接把其他图插进来再WBLOCK出去覆盖就行了，同名图块会用本图的定义。

好方法