[日积月累]：属性值修改程序

ykklms

;属性值修改程序，可以对图中同名图块中的属性值(数字)进行加、减、乘、除，主要目的的用于批量修改图中以图块型式存在的高程
;最近手中有一批水工剖面图，因所使用的高程系变化，需对图的高程进行修改，而图中的高程是以图块存在的，一个个修改太麻烦了
;前几天所编的数字替换程序也是为此，在此感谢网友教我如何用LISP查找属性值，现程序编出，给大家共享

2. 
   
3. (defun *error* (msg)
   
4.   (if
   
5.     (or
   
6.       (= msg "Function cancelled")
   
7.       (= msg "quit / exit abort")
   
8.       (= msg "函数被取消")
   
9.     )
   
10.      (princ (strcat "\nError: " msg))
    
11.   )
    
12. )
    
13. (defun invar ()
    
14.   (setvar "cmdecho" 0)                        ;屏蔽命令行显示
    
15.   (setq os (getvar "osmode"))                ;提取物体捕捉变量
    
16.   (setvar "osmode" 0)                        ;设置物体捕捉变量空
    
17.   (setq dimzin_v (getvar "dimzin"))        ;提取dimzin 变值
    
18.   (setvar "dimzin" 0)                        ;设置dimzin值为零，以防小数位数对rtos无效
    
19.   (command "undo" "g")                        ;设置“U”回的值
    
20. )
    
21. (defun revar ()
    
22.   (setvar "osmode" os)                        ;恢复物体捕捉置
    
23.   (setvar "dimzin" dimzin_v)                ;恢复dimzin的值
    
24.   (command "undo" "e")                        ;设置“U”的最点
    
25.   (setvar "cmdecho" 1)                        ;恢复命令行显示
    
26. )
    
27. (defun process_insert (insert_ss  kword             value_bp        weishu
    
28.                        begin_v          /             i                ii
    
29.                        n          insert_name                att_name
    
30.                        att_data          insert_data                o_txt_d
    
31.                        o_txt_c          o_txt_v    n_txt_v        n_txt_c
    
32.                        n_txt_d
    
33.                       )
    
34.   (setq        n  0
    
35.         ii 0
    
36.   )
    
37.   (repeat (sslength insert_ss)
    
38.     (setq insert_name (ssname insert_ss ii))
    
39.     (setq insert_data (entget insert_name))
    
40.     (setq att_name (entnext insert_name))
    
41.     (setq att_data (entget att_name))
    
42.     (setq o_txt_d (assoc 1 att_data))
    
43.     (setq o_txt_c (cdr o_txt_d))
    
44.     (setq o_txt_v (distof o_txt_c))
    
45.     (if        (and
    
46.           (/= o_txt_v nil)
    
47.           (>= o_txt_v begin_v)
    
48.         )
    
49.       (progn
    
50.         (cond
    
51.           ((= kword "+") (setq n_txt_v (+ o_txt_v value_bp)))
    
52.           ((= kword "-") (setq n_txt_v (- o_txt_v value_bp)))
    
53.           ((= kword "*") (setq n_txt_v (* o_txt_v value_bp)))
    
54.           ((= kword "/") (setq n_txt_v (/ o_txt_v value_bp)))
    
55.         )                                ;End of cond
    
56.         (setq n_txt_c (rtos n_txt_v 2 weishu))
    
57.         (setq n_txt_d (cons 1 n_txt_c))
    
58.         (setq att_data (subst n_txt_d o_txt_d att_data))
    
59.         (entmod att_data)
    
60.         (entupd insert_name)
    
61.         (setq n (1+ n))
    
62.       )                                        ;end of progn
    
63.     )                                        ;end of if
    
64.     (setq ii (1+ ii))
    
65.   )                                        ;end of repeat
    
66.   (prin1 "成功对")
    
67.   (prin1 n)
    
68.   (prin1 "个数字进行了操作!")
    
69. )                                        ;end of subprogram
    
70. (defun c:shuxxg        ()
    
71.   (invar)
    
72.   (setq name_insert (getstring "\n请输入图块名(自己从图中查找确定)"))
    
73.   (setq
    
74.     ss_insert (ssget "x" (list '(0 . "insert") (cons 2 name_insert)))
    
75.   )                                        ;选取指定名称的图块
    
76.   (if (null ss_insert)
    
77.     (prompt "\n你所指定的图块名称有误")
    
78.     (progn
    
79.       (initget "+ - * /")
    
80.       (setq p_kword
    
81.              (getkword "\n 请输入操作码: 加(+)、减(-)、乘(*)、除(/)<+>")
    
82.       )
    
83.       (if (null p_kword)
    
84.         (setq P_kword "+")
    
85.       )
    
86.       (initget (+ 1 2))
    
87.       (setq bp_value (getreal "\n 请输入加、减、乘、除数:"))
    
88.       (setq wei_shu (getint "\n 请输入小数位数<2>:"))
    
89.       (if (null wei_shu)
    
90.         (setq wei_shu 2)
    
91.       )
    
92.       (setq begin_v
    
93.              (getreal
    
94.                "\n 给定起始数(小于该数的不进行操作)/<不给定(全部操作)>:"
    
95.              )
    
96.       )
    
97.       (process_insert ss_insert p_kword bp_value wei_shu begin_v)
    
98.       (prompt "\n山东省水利勘测设计院 杨克坤 2003.6.15编")
    
99.     )
    
100.   )
     
101.   (revar)
     
102. )                                        ;end of main program

<br /> (defun *error* (msg)<br />   (if<br />     (or<br />       (= msg "Function cancelled")<br />       (= msg "quit / exit abort")<br />       (= msg "函数被取消")<br />     )<br />      (princ (strcat "\nError: " msg))<br />   )<br /> )<br /> (defun invar ()<br />   (setvar "cmdecho" 0)                        ;屏蔽命令行显示<br />   (setq os (getvar "osmode"))                ;提取物体捕捉变量<br />   (setvar "osmode" 0)                        ;设置物体捕捉变量空<br />   (setq dimzin_v (getvar "dimzin"))        ;提取dimzin 变值<br />   (setvar "dimzin" 0)                        ;设置dimzin值为零，以防小数位数对rtos无效<br />   (command "undo" "g")                        ;设置“U”回的值<br /> )<br /> (defun revar ()<br />   (setvar "osmode" os)                        ;恢复物体捕捉置<br />   (setvar "dimzin" dimzin_v)                ;恢复dimzin的值<br />   (command "undo" "e")                        ;设置“U”的最点<br />   (setvar "cmdecho" 1)                        ;恢复命令行显示<br /> )<br /> (defun process_insert (insert_ss  kword             value_bp        weishu<br />                        begin_v          /             i                ii<br />                        n          insert_name                att_name<br />                        att_data          insert_data                o_txt_d<br />                        o_txt_c          o_txt_v    n_txt_v        n_txt_c<br />                        n_txt_d<br />                       )<br />   (setq        n  0<br />         ii 0<br />   )<br />   (repeat (sslength insert_ss)<br />     (setq insert_name (ssname insert_ss ii))<br />     (setq insert_data (entget insert_name))<br />     (setq att_name (entnext insert_name))<br />     (setq att_data (entget att_name))<br />     (setq o_txt_d (assoc 1 att_data))<br />     (setq o_txt_c (cdr o_txt_d))<br />     (setq o_txt_v (distof o_txt_c))<br />     (if        (and<br />           (/= o_txt_v nil)<br />           (>= o_txt_v begin_v)<br />         )<br />       (progn<br />         (cond<br />           ((= kword "+") (setq n_txt_v (+ o_txt_v value_bp)))<br />           ((= kword "-") (setq n_txt_v (- o_txt_v value_bp)))<br />           ((= kword "*") (setq n_txt_v (* o_txt_v value_bp)))<br />           ((= kword "/") (setq n_txt_v (/ o_txt_v value_bp)))<br />         )                                ;End of cond<br />         (setq n_txt_c (rtos n_txt_v 2 weishu))<br />         (setq n_txt_d (cons 1 n_txt_c))<br />         (setq att_data (subst n_txt_d o_txt_d att_data))<br />         (entmod att_data)<br />         (entupd insert_name)<br />         (setq n (1+ n))<br />       )                                        ;end of progn<br />     )                                        ;end of if<br />     (setq ii (1+ ii))<br />   )                                        ;end of repeat<br />   (prin1 "成功对")<br />   (prin1 n)<br />   (prin1 "个数字进行了操作!")<br /> )                                        ;end of subprogram<br /> (defun c:shuxxg        ()<br />   (invar)<br />   (setq name_insert (getstring "\n请输入图块名(自己从图中查找确定)"))<br />   (setq<br />     ss_insert (ssget "x" (list '(0 . "insert") (cons 2 name_insert)))<br />   )                                        ;选取指定名称的图块<br />   (if (null ss_insert)<br />     (prompt "\n你所指定的图块名称有误")<br />     (progn<br />       (initget "+ - * /")<br />       (setq p_kword<br />              (getkword "\n 请输入操作码: 加(+)、减(-)、乘(*)、除(/)<+>")<br />       )<br />       (if (null p_kword)<br />         (setq P_kword "+")<br />       )<br />       (initget (+ 1 2))<br />       (setq bp_value (getreal "\n 请输入加、减、乘、除数:"))<br />       (setq wei_shu (getint "\n 请输入小数位数<2>:"))<br />       (if (null wei_shu)<br />         (setq wei_shu 2)<br />       )<br />       (setq begin_v<br />              (getreal<br />                "\n 给定起始数(小于该数的不进行操作)/<不给定(全部操作)>:"<br />              )<br />       )<br />       (process_insert ss_insert p_kword bp_value wei_shu begin_v)<br />       (prompt "\n山东省水利勘测设计院 杨克坤 2003.6.15编")<br />     )<br />   )<br />   (revar)<br /> )                                        ;end of main program

lsjjm

我不懂什么是高程，如果就是属性值修改， 是否太繁琐了？

ykklms

高程就是图中的建筑物标高如▽12.68，在有些图中三角号和数字是以图块存在的，我的图因所用的高程系变了，需对图中的标高全部加上或减去一个常数，图中这种标高很多，一个个用属性修改的命令的改太累，并且很容易出错，万一有的数你改了好几遍，有的没改，怎么办？

chenhang1203

请问怎么使用呢？

ykklms

使用的办法就是，你先用CAD中的有关命令，查找一个所用来标高的块的名称，在使用我所编的命令时会提示你输入图块名，你输入图块名后，程序就会找到你所指定名称的图块，对其数字进行加、减、乘、除。这个程序会把你图中的所有这类同名图块中的数字进行操作，如果你只想对选中的对象进行操作的话，只需把程序的(setq    ss_insert (ssget "x" (list '(0 . "insert") (cons 2 name_insert))))过滤符"x"这三个字符全去掉即可。

ywx0576

楼主这个程序确实不错，很实用。
有一点值得改进，当提示“输入图块名”时，能否加上“从图中拾取”的功能。

coolzhb

还有如果有多属性，只能改一个属性，不知道能不能改一下！

on/off

最初由 coolzhb 发布
[B]还有如果有多属性，只能改一个属性，不知道能不能改一下！ [/B]

你可以把属性名称甚至提示等作适配过滤，就可以只改其中的某个属性。