[原创]：一个改标高的程序

iamsunye

我写的一个改标高的程序，可用于标高值的修改，在改层高时特别有用。结构设计人员可以用它将建筑图的标高扣除统一面层厚度改为结构板面标高。用了提点意见，我可以改进一下。

无法上传了。贴上源代码，存为gbg.lsp即可
(defun gbgerr (s)
  (if (or
        (= msg "Function cancelled")
        (= msg "quit/exit abort")
      )
    (princ (strcat "\n错误: " s))
  )
  (setq *error* olderr)
  (princ)
)

(defun C:gbg (/        p l d sst1 sst2        ssl text textnew lunitmod dimzinmod luprecmod
              olderr)
  (setvar "cmdecho" 0)
  (command "undo" "group")

  (setq        olderr        *error*
        *error*        gbgerr
  )

  (setq lunitmod (getvar "LUNITS"))
  (setq luprecmod (getvar "LUPREC"))
  (setq dimzinmod (getvar "dimzin"))
  (setvar "LUNITS" 2)
  (setvar "LUPREC" 3)
  (setvar "dimzin" 0)

  (setq sst1 (ssget '((0 . "TEXT"))))
  (if (null sst1)
    (progn
      (princ "\n错误: 没有选到文字.")
      (exit)
    )
  )
  (setq ssl (sslength sst1))
  (if (> ssl 50)
    (princ "\n正在生成选择集…… 请稍候. ")
  )
  (setq l 0)
  (setq sst2 (ssadd))
  (while (< l ssl)
    (progn
      (setq p (entget (ssname sst1 l)))
      (setq text (cdr (assoc 1 p)))
      (if (or (= text "%%p0.000")
              (= text "%%P0.000")
              (= text "0.000")
              (= text "+0.000")
              (= text "-0.000")
              (= text ".000")
              (/= (atof text) 0)
          )
        (ssadd (ssname sst1 l) sst2)
      )
      (setq l (1+ l))
    )
  )
  (setq sst1 nil)
  (princ "\n选择集确认完毕. ")
  (setq d nil)
  (while (= d nil)
    (setq d (getreal "\n请输入标高的修改值:"))
  )
  (setq ssl (sslength sst2))
  (setq l 0)
  (while (< l ssl)
    (progn
      (setq p (entget (ssname sst2 l)))
      (setq text (cdr (assoc 1 p)))
      (setq textnew (rtos (+ d (atof text)) 2 3))
      (if (= textnew "0.000") (setq textnew "%%p0.000"))
      (setq p (subst (cons 1 textnew) (assoc 1 p) p))
      (entmod p)
      (setq l (1+ l))

    )
  )
  (setq sst2 nil)
  (setvar "LUNITS" lunitmod)
  (setvar "LUPREC" luprecmod)
  (setvar "dimzin" dimzinmod)
  (terpri)
  (setq *error* olderr)
  (princ)

  (command "undo" "end")
  (prompt "\n标高修改程序 ver 1.0a ——SUNYE编制")
  (setvar "cmdecho" 1)
)

(princ "\n标高修改程序已加载; 以gbg启动命令.")