;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;幕匠LISP实验室;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;程序功能：标注求和  [备注：标注求和]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:bzh (/ ss kk i)
  (setq	ss (ssget '((0 . "DIMENSION")))
	i  0
	kk nil
  )
  (repeat (sslength ss)
    (setq kk (cons (cdr (assoc 42 (entget (ssname ss i)))) kk))
    (setq i (1+ i))
  )
  (princ "\n******所选标注和为")
  (princ (apply '+ kk))
  (princ "******")
  (princ)
)