修改高程值文字大小lisp源码来源于网络，作者不可查，如果涉及侵权请邮件联系我。

;;;本程序实现批量修改高程值文字大小,仅针对cass7.0展高程点值文字大小修改

(defun c:xggcdzg ( )

  (setvar "errno" 0)

  (setq olderr *error*)

  (defun *error* (msg)

    (princ "\n已取消修改!")

    (setq *error* olderr)

    (princ)

  )

  (initget 7)

  (setq b1 (getint "请输入高程标注值文本高度: "))

  (initget 7)

  (setq b2 (getreal "请输入高程标注值文本宽度比例因子: "))

  (if (and b1 b2)

    (progn 

      (vl-load-com)

      (setq s (ssget "x" ((0 . "INSERT")(8 . "GCD"))))

      (setq s1 (sslength s))

      (setq i 0)

      (while (< i s1)

(setq s2 (ssname s i))

(setq t1 (vlax-ename->vla-object s2))

(setq t2 (vla-GetAttributes t1))

(setq t3 (vlax-variant-value t2))

(setq t4 (vlax-safearray->list t3))

(setq t5 (car t4))

(vla-put-height t5 b1)

(vla-put-ScaleFactor t5 b2)

(vla-update t5)

        (setq i (1+ i))

      ) 

      (princ "\n已修改完成!")

    )

  )

  (princ)

)