[日积月累]：桩号自动增减程序

ykklms

;桩号自动增减程序，可以对选中桩号进行同时加、减，但请不要选非桩号文字，会进入死循环。（应同事要求编的，时间关系，还不完善）

2. (defun *error* (msg)
   
3.   (if (or
   
4.         (= msg "Function cancelled")
   
5.         (= msg "quit / exit abort")
   
6.         (= msg "函数被取消")
   
7.       )                                       ; _ end of or
   
8.     (princ (strcat "\nError: " msg))
   
9.   )                                       ; _ end of if
   
10. 
    
11. )
    
12. ;;; _ end of defun
    
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" 8)                       ; 设置dimzin值为8，去掉后导零
    
19.   (command "undo" "g")                       ; 设置“U”回的值
    
20. 
    
21. )
    
22. ;;; _ end of defun
    
23. (defun revar ()
    
24.   (setvar "osmode" os)                       ; 恢复物体捕捉置
    
25.   (setvar "dimzin" dimzin_v)               ; 恢复dimzin的值
    
26.   (command "undo" "e")                       ; 设置“U”的最点
    
27.   (setvar "cmdecho" 1)                       ; 恢复命令行显示
    
28. 
    
29. )
    
30. ;;; _ end of defun
    
31. (defun process_txt (txt_ss kword value_bp / i ii n txt_name txt_data o_txt_d
    
32.                            o_txt_c o_txt_v n_txt_v n_txt_c n_txt_d
    
33.                    )
    
34.   (setq n 0
    
35.         ii 0
    
36.   )                                       ; _ end of setq
    
37.   (repeat (sslength txt_ss)
    
38.     (setq txt_name (ssname txt_ss ii))
    
39.     (setq txtdata (entget txt_name))
    
40.     (setq o_txt_d (assoc 1 txtdata))
    
41.     (setq o_txt_c (cdr o_txt_d))
    
42.     (setq iii 1)
    
43.     (setq tf 1)
    
44.     (setq o_txt_c_c (substr o_txt_c iii 1))
    
45.     (while (= tf 1)
    
46.       (progn
    
47.         (setq iii (1+ iii))
    
48.         (setq o_txt_c_c (substr o_txt_c iii 1))
    
49.         (if (= o_txt_c_c "+")
    
50.           (setq tf 0)
    
51.         )                               ; _ end of if
    
52.       )                                       ; _ end of progn
    
53.     )                                       ; _ end of while
    
54.     (setq kms (1- iii))
    
55.     (setq km_c (substr o_txt_c 1 kms))
    
56.     (setq m_c (substr o_txt_c (+ kms 2)))
    
57.     (setq km_v (distof km_c))
    
58.     (if (= m_c "000")
    
59.       (setq mm_v 0)
    
60.       (setq mm_v (distof m_c))
    
61.     )                                       ; _ end of if
    
62.     (setq m_v (+ (* km_v 1000.0) mm_v))
    
63.     (setq o_txt_v m_v)
    
64.     (cond
    
65.       ((= kword "+")
    
66.         (setq n_txt_v (+ o_txt_v value_bp))
    
67.       )
    
68.       ((= kword "-")
    
69.         (setq n_txt_v (- o_txt_v value_bp))
    
70.       )
    
71.     )                                       ; End of cond
    
72.     (setq km_c (rtos (fix (/ n_txt_v 1000.0)) 2 0))
    
73.     (if (>= n_txt_v 1000.0)
    
74.       (setq m_c (substr (rtos n_txt_v 2) (1+ (strlen km_c)))) ; _ end of
    
75.                                        ; setq
    
76.       (setq m_c (rtos n_txt_v 2))
    
77.     )                                       ; _ end of if
    
78.     (if (= (distof m_c 2) 0.0)
    
79.       (setq m_c "000")
    
80.     )                                       ; _ end of if
    
81.     (setq n_txt_c (strcat km_c "+" m_c))
    
82.     (setq n_txt_d (cons 1 n_txt_c))
    
83.     (setq txtdata (subst
    
84.                     n_txt_d
    
85.                     o_txt_d
    
86.                     txtdata
    
87.                   )
    
88.     )
    
89.     (entmod txtdata)
    
90.     (setq n (1+ n))
    
91.     (setq ii (1+ ii))
    
92.   )                                       ; end of repeat
    
93.   (prin1 "成功对")
    
94.   (prin1 n)
    
95.   (prin1 "个数字进行了操作!")
    
96. )
    
97. ;;; end of subprogram
    
98. (defun c:zhxg ()
    
99.   (invar)
    
100.   (prompt "\n请选取桩号：")
     
101.   (terpri)
     
102.   (setq ss_txt (ssget '((0 . "text"))))        ; 选取并过滤为文字
     
103.   (initget "+ - ")
     
104.   (setq p_kword (getkword "\n 请输入操作码: 加(+)、减(-)<+>")) ; _ end of
     
105.                                        ; setq
     
106.   (if (null p_kword)
     
107.     (setq P_kword "+")
     
108.   )                                       ; _ end of if
     
109.   (initget (+ 1 2))
     
110.   (setq bp_value (getreal "\n 请输入加、减数:"))
     
111.   (process_txt ss_txt p_kword bp_value)
     
112.   (revar)
     
113. )
     
114.                                         ;end of main program
     

(defun *error* (msg)<br />   (if (or<br />         (= msg "Function cancelled")<br />         (= msg "quit / exit abort")<br />         (= msg "函数被取消")<br />       )                                       ; _ end of or<br />     (princ (strcat "\nError: " msg))<br />   )                                       ; _ end of if<br /> <br /> )<br /> ;;; _ end of defun<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" 8)                       ; 设置dimzin值为8，去掉后导零<br />   (command "undo" "g")                       ; 设置“U”回的值<br /> <br /> )<br /> ;;; _ end of defun<br /> (defun revar ()<br />   (setvar "osmode" os)                       ; 恢复物体捕捉置<br />   (setvar "dimzin" dimzin_v)               ; 恢复dimzin的值<br />   (command "undo" "e")                       ; 设置“U”的最点<br />   (setvar "cmdecho" 1)                       ; 恢复命令行显示<br /> <br /> )<br /> ;;; _ end of defun<br /> (defun process_txt (txt_ss kword value_bp / i ii n txt_name txt_data o_txt_d<br />                            o_txt_c o_txt_v n_txt_v n_txt_c n_txt_d<br />                    )<br />   (setq n 0<br />         ii 0<br />   )                                       ; _ end of setq<br />   (repeat (sslength txt_ss)<br />     (setq txt_name (ssname txt_ss ii))<br />     (setq txtdata (entget txt_name))<br />     (setq o_txt_d (assoc 1 txtdata))<br />     (setq o_txt_c (cdr o_txt_d))<br />     (setq iii 1)<br />     (setq tf 1)<br />     (setq o_txt_c_c (substr o_txt_c iii 1))<br />     (while (= tf 1)<br />       (progn<br />         (setq iii (1+ iii))<br />         (setq o_txt_c_c (substr o_txt_c iii 1))<br />         (if (= o_txt_c_c "+")<br />           (setq tf 0)<br />         )                               ; _ end of if<br />       )                                       ; _ end of progn<br />     )                                       ; _ end of while<br />     (setq kms (1- iii))<br />     (setq km_c (substr o_txt_c 1 kms))<br />     (setq m_c (substr o_txt_c (+ kms 2)))<br />     (setq km_v (distof km_c))<br />     (if (= m_c "000")<br />       (setq mm_v 0)<br />       (setq mm_v (distof m_c))<br />     )                                       ; _ end of if<br />     (setq m_v (+ (* km_v 1000.0) mm_v))<br />     (setq o_txt_v m_v)<br />     (cond<br />       ((= kword "+")<br />         (setq n_txt_v (+ o_txt_v value_bp))<br />       )<br />       ((= kword "-")<br />         (setq n_txt_v (- o_txt_v value_bp))<br />       )<br />     )                                       ; End of cond<br />     (setq km_c (rtos (fix (/ n_txt_v 1000.0)) 2 0))<br />     (if (>= n_txt_v 1000.0)<br />       (setq m_c (substr (rtos n_txt_v 2) (1+ (strlen km_c)))) ; _ end of<br />                                        ; setq<br />       (setq m_c (rtos n_txt_v 2))<br />     )                                       ; _ end of if<br />     (if (= (distof m_c 2) 0.0)<br />       (setq m_c "000")<br />     )                                       ; _ end of if<br />     (setq n_txt_c (strcat km_c "+" m_c))<br />     (setq n_txt_d (cons 1 n_txt_c))<br />     (setq txtdata (subst<br />                     n_txt_d<br />                     o_txt_d<br />                     txtdata<br />                   )<br />     )<br />     (entmod txtdata)<br />     (setq n (1+ n))<br />     (setq ii (1+ ii))<br />   )                                       ; end of repeat<br />   (prin1 "成功对")<br />   (prin1 n)<br />   (prin1 "个数字进行了操作!")<br /> )<br /> ;;; end of subprogram<br /> (defun c:zhxg ()<br />   (invar)<br />   (prompt "\n请选取桩号：")<br />   (terpri)<br />   (setq ss_txt (ssget '((0 . "text"))))        ; 选取并过滤为文字<br />   (initget "+ - ")<br />   (setq p_kword (getkword "\n 请输入操作码: 加(+)、减(-)<+>")) ; _ end of<br />                                        ; setq<br />   (if (null p_kword)<br />     (setq P_kword "+")<br />   )                                       ; _ end of if<br />   (initget (+ 1 2))<br />   (setq bp_value (getreal "\n 请输入加、减数:"))<br />   (process_txt ss_txt p_kword bp_value)<br />   (revar)<br /> )<br />                                         ;end of main program<br />

autotools

请把桩号精确到小数点后3位

dzc1559

谢谢1楼提供的好东东！
但还需要不断优化。。辛苦了1！！！！！！！！！！！！！！！！！