新编的一个数字替换小程序，请大家指教

ykklms · 发表于 2003-6-7 21:44:00

;经调试可用,欢迎大家指教。
;数字替换程序，可以对选中数字进行加、减、乘、除，然后用计算后的数字替换掉原来的数字，同时可以自动去除选择集中的非数字文字
(defun invar ()
  (setvar "cmdecho" 0)                      ;屏蔽命令行显示
  (setq os (getvar "osmode"))             ;提取物体捕捉变量
  (setvar "osmode" 0)                      ;设置物体捕捉变量为空
  (setq dimzin_v (getvar "dimzin"))    ;提取dimzin 变值
  (setvar "dimzin" 0)                ;设置dimzin值为零，以防小数位数对rtos无效
  (command "undo" "g")                      ;设置“U”回的值
)
(defun revar ()
  (setvar "osmode" os)                      ;恢复物体捕捉设置
  (setvar "dimzin" dimzin_v)                      ;恢复dimzin的值
  (command "undo" "e")                      ;设置“U”的最点
  (setvar "cmdecho" 1)                      ;恢复命令行显示
)
(defun process_txt (txt_ss kword       value_bp  weishu begin_v
                  /             i             ii       n          txt_name
                  txt_data  o_txt_d       o_txt_c       o_txt_v n_txt_v
                  n_txt_c n_txt_d
               )
  (setq       n  0
      ii 0
  )
  (repeat (sslength txt_ss)
(setq txt_name (ssname txt_ss ii))
(setq txtdata (entget txt_name))
(setq o_txt_d (assoc 1 txtdata))
(setq o_txt_c (cdr o_txt_d))
(setq o_txt_v (distof o_txt_c))
(if       (and
      (/= o_txt_v nil)
      (>= o_txt_v begin_v)
      )
   (progn
      (cond
      ((= kword "+") (setq n_txt_v (+ o_txt_v value_bp)))
      ((= kword "-") (setq n_txt_v (- o_txt_v value_bp)))
      ((= kword "*") (setq n_txt_v (* o_txt_v value_bp)))
      ((= kword "/") (setq n_txt_v (/ o_txt_v value_bp)))
      )                               ;End of cond
      (setq n_txt_c (rtos n_txt_v 2 weishu))
      (setq n_txt_d (cons 1 n_txt_c))
      (setq txtdata (subst n_txt_d o_txt_d txtdata))
      (entmod txtdata)
      (setq n (1+ n))
   )                                     ;end of progn
)                                     ;end of if
(setq ii (1+ ii))
  )                                     ;end of repeat
  (prin1 "成功对")
  (prin1 n)
  (prin1 "个数字进行了操作!")
)                                     ;end of subprogram
(defun c:shuzth       ()
  (invar)
  (prompt "\n请选取数字：")
  (terpri)
  (setq ss_txt (ssget '((0 . "text"))))       ;选取并过滤为文字
  (initget "+ - * /")
  (setq       p_kword
      (getkword "\n 请输入操作码: 加(+)、减(-)、乘(*)、除(/)")
  )
  (if (null p_kword)
(setq P_kword "+")
  )
  (initget (+ 1 2))
  (setq bp_value (getreal "\n 请输入加、减、乘、除数:"))
  (setq wei_shu (getint "\n 请输入小数位数:"))
  (if (null wei_shu)
(setq wei_shu 2)
  )
  (setq begin_v (getreal "\n 给定开始数:"))
  (process_txt ss_txt p_kword bp_value wei_shu begin_v)
  (prompt "\n山东省水利勘测设计院杨克坤 2003.6.6编")
  (revar)
)                                     ;end of main program
[此贴子已经被作者于2003-6-7 21:33:44编辑过]