【有偿求助 100 CNY】图块跨图更新

429014673

同名块的操作，不用程序都可以更新，把B图所有图元复制到A图，这样B图的同名块就会与A图的一样了

菜卷鱼

以下举例是同名块的更换，假如块名不同，你要改一下代码
先把A块Wblock写出到搜索路径，再运行UP程序
假如是属性块，更新完之后，记得attsync一下
核心代码其实就一句，就是  (command "-insert" (strcat eff "=" eff ".dwg"))
意思是  (command "-insert"  "图块A名 = 图块B名.dwg" )

1. (defun en-effname (ent)
   
2.   (LM:al-effectivename ent)
   
3. )
   
4. (defun LM:al-effectivename (ent / blk rep)
   
5.   (if (wcmatch (setq blk (cdr (assoc 2 (entget ent)))) "`**")
   
6.     (if
   
7.       (and
   
8.         (setq rep
   
9.                (cdadr
   
10.                  (assoc        -3
    
11.                         (entget
    
12.                           (cdr
    
13.                             (assoc 330
    
14.                                    (entget
    
15.                                      (tblobjname "block" blk)
    
16.                                    )
    
17.                             )
    
18.                           )
    
19.                           '("AcDbBlockRepBTag")
    
20.                         )
    
21.                  )
    
22.                )
    
23.         )
    
24.         (setq rep (handent (cdr (assoc 1005 rep))))
    
25.       )
    
26.        (setq blk (cdr (assoc 2 (entget rep))))
    
27.     )
    
28.   )
    
29.   blk
    
30. )
    
31. 
    
32. (defun c:up (/ ss obj eff nl i)
    
33. (setq ss (ssget '((0 . "insert"))))
    
34. ;;;(undobe)
    
35. (setq i 0)
    
36. (repeat (sslength ss)
    
37.   (setq obj (ssname ss i))
    
38.   (setq i (1+ i))
    
39.   (setq eff (en-effname obj))
    
40.   (if (and eff (not (member eff nl)))
    
41.    (progn
    
42.    (setq nl (cons eff nl))
    
43.    (command "-insert" (strcat eff "=" eff ".dwg"))
    
44.    (command)
    
45.    ;;;(prinx "\n更新:" eff)
    
46.    )
    
47.   )
    
48. )
    
49. ;;; (undo_e)
    
50. (princ "\n完成")
    
51. (prin1)
    
52. )

(defun en-effname (ent)<br />   (LM:al-effectivename ent)<br /> )<br /> (defun LM:al-effectivename (ent / blk rep)<br />   (if (wcmatch (setq blk (cdr (assoc 2 (entget ent)))) "`**")<br />     (if<br />       (and<br />         (setq rep<br />                (cdadr<br />                  (assoc        -3<br />                         (entget<br />                           (cdr<br />                             (assoc 330<br />                                    (entget<br />                                      (tblobjname "block" blk)<br />                                    )<br />                             )<br />                           )<br />                           '("AcDbBlockRepBTag")<br />                         )<br />                  )<br />                )<br />         )<br />         (setq rep (handent (cdr (assoc 1005 rep))))<br />       )<br />        (setq blk (cdr (assoc 2 (entget rep))))<br />     )<br />   )<br />   blk<br /> )<br /> <br /> (defun c:up (/ ss obj eff nl i)<br /> (setq ss (ssget '((0 . "insert"))))<br /> ;;;(undobe)<br /> (setq i 0)<br /> (repeat (sslength ss)<br />   (setq obj (ssname ss i))<br />   (setq i (1+ i))<br />   (setq eff (en-effname obj))<br />   (if (and eff (not (member eff nl)))<br />    (progn<br />    (setq nl (cons eff nl))<br />    (command "-insert" (strcat eff "=" eff ".dwg"))<br />    (command)<br />    ;;;(prinx "\n更新:" eff)<br />    )<br />   )<br /> )<br /> ;;; (undo_e)<br /> (princ "\n完成")<br /> (prin1)<br /> )

liuhe

有兴趣可以找我，我做过类似的图块更新统一。你需要考虑的是，属性块的属性怎么办

Lampard

1111111111

Lampard

lijiao 发表于 2024-8-3 06:26
最核心的原理已经给你了，你可以根据自己的实际情况进行编排，应该不难的

2. <blockquote>(defun c:kgx ( / )

<blockquote>(defun c:kgx ( / )

谢谢大神的指导，基本功能都实现了。
横线位置还有两个问题，希望得到您的帮助。




(defun c:kgx ( / )
    (princ "\n选择目标:")
        (setq ss (ssget)
                n (sslength ss)
                step 0)
        (repeat n
        (setq s (ssname ss step)
                         ent (entget s))
                (if (= "INSERT" (cdr (assoc 0 ent)))
        (progn               
               
                (setq ent (vlax-ename->vla-object (ssname ss step)))   ;;;转换成VLA对象
                (setq blkname (vla-get-name ent))                   ;;;获取图块名
                        (setq doc1 (vla-get-ActiveDocument (vlax-get-acad-object)))     ;;;获取当前文档
                (setq blk1 (vla-item (vla-get-blocks doc1) blkname))                         ;;;获取当前图块定义blk1
               
                ;;;______________________问题一________________________________________
                ;;;下面这里能否加一个判断，22.dwg里有blk1，再行后续操作，特别是进行下一句的删除blk1中的图元
                (vlax-for item blk1 (vla-delete item))                                                   ;;;删除图块定义blk1中的图元
        
                ;;;______________________问题二________________________________________
                ;;;这里能否交互选择文件或者下一行代码"22.dwg"如何带路径输入
                (setq doc2 (vla-item (vla-get-Documents (vlax-get-acad-object)) "22.dwg"));;;获取需要更新的文档
                (setq blk2 (vla-item (vla-get-blocks doc2) blkname))           ;;;获取需要更新的图块定义blk2
                (setq listblk '())
                (vlax-for item blk2 (setq listblk (cons item listblk)))        ;;;把blk1中的图元列表
                (setq saf (vlax-make-safearray vlax-vbObject  (cons 0 (1- (length listblk)))))
                (vlax-safearray-fill saf listblk)                              ;;;把列表转成数组
                (vla-CopyObjects doc2 saf blk1)                                ;;;把数字复制到blk1中


                ;(vla-Regen doc1 acActiveViewport)                              ;;;刷新doc1       
        (princ blkname)        (princ "已更新\n") (princ)
                ) ;progn 结束
                )  ;if 结束
            (setq step (1+ step))
         );repeat结束
    (vla-Regen doc1 acActiveViewport)                              ;;;刷新doc1               
        )

kozmosovia

动态块现在到处都是，不推荐这种更新方式，会将动态块的信息和数据搞乱丢失，得不偿失。还是老老实实用insert name=dwg方式更新。

lijiao

Lampard 发表于 2024-8-5 09:51
谢谢大神的指导，基本功能都实现了。
横线位置还有两个问题，希望得到您的帮助。

感觉你的逻辑不是很清楚
第一,要弄清楚源文件和目标文件的关系,它们之间的关系怎么确认?比如有三个文件doc1,doc2,doc3,你怎么确定是doc1和doc2有关系,而不是doc1和doc3有关系,这种关系怎么建立,怎么保存,怎么撤销
第二,要弄清楚上下级的关系,doc1和doc2谁是父,谁是子?
第三,要弄清楚主动与被动的关系,是父去寻子还是子去找父?
第四,要弄清楚谁是权威,是父随子还是子随父?
只要把这几个问题搞清楚了,你的程序就好写了

panliang9

http://bbs.mjtd.com/thread-189708-1-1.html

在A图中输入GE，将本图暂存为一个文件，使用的时候需要自已更改一下文件的名称和位置，程序中的名称和位置为 D:\\投影图\\000.DWG
在B图中输入es，更新本图中的图块。

wharan

使用外部参照，是最推荐最可靠的方法。只不过大多画图匠不会用外部引用

白山茶

kozmosovia 发表于 2024-8-5 10:26
动态块现在到处都是，不推荐这种更新方式，会将动态块的信息和数据搞乱丢失，得不偿失。还是老老实实用inse ...

请问insert name=dwg方式是啥