操作一次，多次使用的删除记录，有用的拿去（更新）

vectra

人家提来的条件图，每次都要删除一些无用的内容，当他修改版发来时，又要重复删除。所以，想操作一次，多次应用，就有了下面的代码，火热出炉。

2014-12-24
修改了记录文件的指定逻辑。

2014-12-23 初次发布

1. ;; 删除操作记录器，方便重复删除
   
2. 
   
3. (defun get-recordfilename (filename)
   
4.   (getfiled "操作记录文件"
   
5.             (if        (null filename)
   
6.               (strcat (getvar "DWGPREFIX")
   
7.                       (vl-filename-base (getvar "DWGNAME"))
   
8.               )
   
9.               filename
   
10.             )
    
11.             "txt"
    
12.             1
    
13.   )
    
14. )
    
15. 
    
16. (defun c:rerf (/ filename)
    
17.   (setq filename (get-recordfilename *erase-record-filename*))
    
18.   (if (= 'str (type filename))
    
19.     (progn
    
20.       (setq *erase-record-filename* filename)
    
21.       (princ (strcat "\n已设置记录文件为 \"" *erase-record-filename* "\""))
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. 
    
27. 
    
28. (defun c:rer (/ file i id obj ss)
    
29.   (setq ss (ssget))
    
30. 
    
31.   (if (null *erase-record-filename*)
    
32.     (setq *erase-record-filename* (get-recordfilename *erase-record-filename*))
    
33.   )
    
34.   (if (and ss
    
35.            *erase-record-filename*
    
36.       )
    
37.     (progn
    
38.       (setq file (open *erase-record-filename* "A"))
    
39. 
    
40.       (repeat (setq i (sslength ss))
    
41.         (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))
    
42.               id  (vla-get-handle obj)
    
43.         )
    
44.         (write-line id file)
    
45.         (vla-erase obj)
    
46.       )
    
47. 
    
48.       (close file)
    
49.       (princ (strcat "\n" (itoa (sslength ss)) " 个删除操作已记录。"))
    
50.       ;;(startapp "notepad" fname)
    
51.     )
    
52.   )
    
53. 
    
54.   (princ)
    
55. )
    
56. 
    
57. 
    
58. (defun c:der (/ file i id)
    
59. 
    
60.   (if *erase-record-filename*
    
61.     (progn
    
62.       (setq file (open *erase-record-filename* "R")
    
63.             i         0
    
64.       )
    
65. 
    
66.       (while (setq id (read-line file))
    
67.         (if (setq id (handent id))
    
68.           (progn
    
69.             (entdel id)
    
70.             (setq i (1+ i))
    
71.           )
    
72.         )
    
73.       )
    
74. 
    
75.       (close file)
    
76.       (princ (strcat "\n" (itoa i) " 个删除操作已应用。"))
    
77.     )
    
78.     (princ "\n请先指定删除记录文件。")
    
79.   )
    
80. 
    
81.   (princ)
    
82. )
    

;; 删除操作记录器，方便重复删除<br /> <br /> (defun get-recordfilename (filename)<br />   (getfiled "操作记录文件"<br />             (if        (null filename)<br />               (strcat (getvar "DWGPREFIX")<br />                       (vl-filename-base (getvar "DWGNAME"))<br />               )<br />               filename<br />             )<br />             "txt"<br />             1<br />   )<br /> )<br /> <br /> (defun c:rerf (/ filename)<br />   (setq filename (get-recordfilename *erase-record-filename*))<br />   (if (= 'str (type filename))<br />     (progn<br />       (setq *erase-record-filename* filename)<br />       (princ (strcat "\n已设置记录文件为 \"" *erase-record-filename* "\""))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> (defun c:rer (/ file i id obj ss)<br />   (setq ss (ssget))<br /> <br />   (if (null *erase-record-filename*)<br />     (setq *erase-record-filename* (get-recordfilename *erase-record-filename*))<br />   )<br />   (if (and ss<br />            *erase-record-filename*<br />       )<br />     (progn<br />       (setq file (open *erase-record-filename* "A"))<br /> <br />       (repeat (setq i (sslength ss))<br />         (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))<br />               id  (vla-get-handle obj)<br />         )<br />         (write-line id file)<br />         (vla-erase obj)<br />       )<br /> <br />       (close file)<br />       (princ (strcat "\n" (itoa (sslength ss)) " 个删除操作已记录。"))<br />       ;;(startapp "notepad" fname)<br />     )<br />   )<br /> <br />   (princ)<br /> )<br /> <br /> <br /> (defun c:der (/ file i id)<br /> <br />   (if *erase-record-filename*<br />     (progn<br />       (setq file (open *erase-record-filename* "R")<br />             i         0<br />       )<br /> <br />       (while (setq id (read-line file))<br />         (if (setq id (handent id))<br />           (progn<br />             (entdel id)<br />             (setq i (1+ i))<br />           )<br />         )<br />       )<br /> <br />       (close file)<br />       (princ (strcat "\n" (itoa i) " 个删除操作已应用。"))<br />     )<br />     (princ "\n请先指定删除记录文件。")<br />   )<br /> <br />   (princ)<br /> )<br />

lucas_3333

貌似没什么用

HGQ8888

明白楼主的悥思,先做个记号.

tranney

给排水专业的，觉得不错，但是也有点不足，就是如果很大的图要删除很多次就比较麻烦了，需要不停的存盘，确定，建议，按s设置并记录存储文件的位置及文件名，并能自动覆盖文件

vectra

tranney 发表于 2014-12-24 01:14
给排水专业的，觉得不错，但是也有点不足，就是如果很大的图要删除很多次就比较麻烦了，需要不停的存盘，确 ...

只要用rer命令进行的删除操作都会被追加记录到指定文件中去，当然这个十来分钟写的程序只是应急用，还没有去优化呢。

tranney

哈哈，大哥抽个空优化一下哈，对于我们设备专业来说这个真是太有必要了，前段时间 建筑专业连续提了30多次图过来，哎，小院没规则，没办法，

伪书虫86

设备专业必备软件啊赶紧试用去了

dragoon33333

想法不错，看看

dwg001

思路很好，赞一个。

phoevana

很有实际意义