求助！

清心薄荷

请看上面的图，这里有一大堆的点要处理，我需要将所有的点的z坐标标注在图上，这只是图形的一部分，一共有上万个点要处理，我自己编了一个小程序只可以一个点一个点的标注，可是活要的急，请大家给一个批量完成这个工作的程序吧。下面是我的程序：
(defun c:hdim ())
(setq height (getint "\n(输入字高:) "))
(repeat 30
(setq bp (getpoint "\n高程点： "))
(setq a (rtos (caddr bp) 2 2))
(setq pt0 (list (car bp) (cadr bp)))
(command "style" "zzy1" "romanc.shx, gbcbig.shx"
height 0.8 0 ""
"" ""
)
(command "text" "j" "mc" pt0 0 a)
)
(princ ()) )
很简单只可单个标注请帮忙吧。

zxdcad

在你这个基础上改了改！再试试! (defun c:hdim ()
(setq pz (getvar "osmode"))
(setq height (getint "\n(输入字高:) "))
(command "style" "zzy1" "romanc.shx, gbcbig.shx"
height 0.8 0 ""
"" ""
)
(setq ss (ssget))
(setq leng (sslength ss))
(setq index 0)
(setvar "CMDECHO" 0)
(setvar "osmode" 0)
(repeat leng
(setq b1 (entget (ssname ss index)))
(setq tc (assoc 0 b1))
(setq index (+ index 1))
(cond
((= (cdr tc) "POINT")
(setq xy (cdr (assoc 10 b1)))
(setq a (rtos (caddr xy) 2 2))
(setq pt0 (list (car xy) (cadr xy)))
(command "text" "j" "mc" pt0 0 a)
)
)
)
(princ ())
(setvar "osmode" PZ)
)