更新图中所有的INSERT

newer

1. ;;;  ----------- Update Blocks - Version 1.0 -----------
   
2. ;;;  Copyright (C) 2008  by ResourceCAD International
   
3. ;;;  Author:  K.E. Blackie
   
4. ;;;
   
5. ;;;
   
6. ;;;  RESOURCECAD INTERNATIONAL PROVIDES THIS PROGRAM "AS IS" AND WITH
   
7. ;;;  ALL FAULTS. RESOURCECAD INTERNATIONAL SPECIFICALLY DISCLAIMS ANY
   
8. ;;;  IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR
   
9. ;;;  USE.  RESOURCECAD INTERNATIONAL DOES NOT WARRANT THAT THE OPERATION
   
10. ;;;  OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR FREE.
    
11. ;;;
    
12. ;;;
    
13. ;;;  ResouceCAD International
    
14. ;;;  http://www.resourcecad.com
    
15. ;;;
    
16. ;;;  DESCRIPTION
    
17. ;;;  BLUPD will refresh each block reference in the drawing by finding
    
18. ;;;  the drawing file in the support path. If the file is not found
    
19. ;;;  the block is skipped
    
20. ;;;
    
21. ;;;  May 9, 2008        Initial Release
    
22. ;;;
    
23. ;;;  ------------------------------------------------------------
    
24. 
    
25. (defun c:blupd ( / cmdecho regen n bpath)
    
26.   (setq cmdecho (getvar "cmdecho"))
    
27.   (setq regen (getvar "regenmode"))
    
28.   (setvar "cmdecho" 0)
    
29.   (setvar "regenmode" 0)
    
30.   (foreach n (blocklist)
    
31.     (setq bpath (findfile (strcat n ".dwg")))
    
32.     (if bpath
    
33.       (vl-cmdf "insert" (strcat n "=" bpath) "y" )
    
34.     )
    
35.     (command)
    
36.   )
    
37.   (setvar "cmdecho" cmdecho)
    
38.   (setvar "regenmode" regen)
    
39.   (princ)
    
40. )
    
41. 
    
42. (defun blocklist( / bl ndx bname blist bname bnlist)
    
43.   (setq bl (ssget "x" '((0 . "insert")))
    
44.         ndx 0)
    
45.   (repeat (sslength bl)
    
46.     (setq bname (ssname bl ndx)
    
47.           blist (entget bname)
    
48.           bname (cdr (assoc 2 blist))
    
49.           ndx (1+ ndx)
    
50.     )
    
51.     (if (=(member bname bnlist)nil)
    
52.       (setq bnlist (append bnlist (list bname)))
    
53.     )
    
54.   )
    
55.   bnlist
    
56. )
    
57. 
    

;;;  ----------- Update Blocks - Version 1.0 -----------<br /> ;;;  Copyright (C) 2008  by ResourceCAD International<br /> ;;;  Author:  K.E. Blackie<br /> ;;; <br /> ;;; <br /> ;;;  RESOURCECAD INTERNATIONAL PROVIDES THIS PROGRAM "AS IS" AND WITH<br /> ;;;  ALL FAULTS. RESOURCECAD INTERNATIONAL SPECIFICALLY DISCLAIMS ANY<br /> ;;;  IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR<br /> ;;;  USE.  RESOURCECAD INTERNATIONAL DOES NOT WARRANT THAT THE OPERATION<br /> ;;;  OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR FREE.<br /> ;;; <br /> ;;; <br /> ;;;  ResouceCAD International<br /> ;;;  <a href=\"http://www.resourcecad.com\" target=\"_blank\">http://www.resourcecad.com</a><br /> ;;; <br /> ;;;  DESCRIPTION<br /> ;;;  BLUPD will refresh each block reference in the drawing by finding<br /> ;;;  the drawing file in the support path. If the file is not found<br /> ;;;  the block is skipped<br /> ;;;<br /> ;;;  May 9, 2008        Initial Release<br /> ;;;<br /> ;;;  ------------------------------------------------------------<br /> <br /> (defun c:blupd ( / cmdecho regen n bpath)<br />   (setq cmdecho (getvar "cmdecho"))<br />   (setq regen (getvar "regenmode"))<br />   (setvar "cmdecho" 0)<br />   (setvar "regenmode" 0)<br />   (foreach n (blocklist)<br />     (setq bpath (findfile (strcat n ".dwg")))<br />     (if bpath<br />       (vl-cmdf "insert" (strcat n "=" bpath) "y" )<br />     )<br />     (command)<br />   )<br />   (setvar "cmdecho" cmdecho)<br />   (setvar "regenmode" regen)<br />   (princ)<br /> )<br /> <br /> (defun blocklist( / bl ndx bname blist bname bnlist)<br />   (setq bl (ssget "x" '((0 . "insert")))<br />         ndx 0)<br />   (repeat (sslength bl)<br />     (setq bname (ssname bl ndx)<br />           blist (entget bname)<br />           bname (cdr (assoc 2 blist))<br />           ndx (1+ ndx)<br />     )<br />     (if (=(member bname bnlist)nil)<br />       (setq bnlist (append bnlist (list bname)))<br />     )<br />   )<br />   bnlist<br /> )<br /> <br />

SHUNDocker

楼主，是属性块，可以吗？？

marting

SHUNDocker 发表于 2021-1-21 09:51
楼主，是属性块，可以吗？？

只要是图块，外部DWG，你有改变的话，用这个更新你当前图
你说的属性块，有什么要求想实现什么？

hh_lj007

学习了，谢谢分享

SHUNDocker

为啥输入后lupd是未知命令？显示“错误: 无法重定义外部参照或其依赖。”

lisp小白白

楼主，是属性块，可以吗？？