16699988885
发表于 2024-12-4 12:35:58
(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 来开始更新高程。")