GCD高程点z值修复[原创.附源码]

16699988885

(defun c:UpdateElevation ()
  (setq ss (ssget '((0 . "INSERT") (2 . "GC200"))))
  (if ss
    (progn
      (setq new_elevation (getreal "\n请输入新的高程值: "))
      (setq entities (ssname ss 0))
      (while (setq entity (entnext entities))
        (if (and (eq (cdr (assoc 0 (entget entity))) "ATTRIB")
                 (equal (cdr (assoc 2 (entget entity))) "height"))
          (progn
            (setq attrib_data (entget entity))
            (setq new_attrib_data (subst (cons 1 (rtos new_elevation 2 3)) (assoc 1 attrib_data) attrib_data))
            (entmod new_attrib_data)
          )
        )
        (setq entities entity)
      )
      (princ "\n高程更新完成！")
    )
    (princ "\n没有找到指定的块参照。")
  )
  (princ)
)

(princ "\n加载完成。输入 UpdateElevation 来开始更新高程。")