请问根据下面的插件，怎么让CAD拾取数字求和的结果直接刷新在某一个数字中

he378980280

;;;拾取数字求和(copy by afei)
(defun c:qh        (/ ss n totn adn)
  (prompt "\n拾取数字求和: ")
  (setq        ss (ssget '())
        n  0
  )
  (setq totn 0.0)
  (while (setq en (ssname ss n))
    (setq adn (atof (cdr (assoc 1 (entget en)))))
    (setq totn (+ totn adn))
    (setq n (1+ n))
  )
  (princ (strcat "\n数字和: "))
  (princ totn)
  (princ)
)

这个的结果是在命令行显示，请问怎么让这个结果 直接刷新在 拾取的数字旁边的另一个数字里面，或者把结果写一个数字在它旁边？

烟盒迷唇

大概这样就可以了，其他你再优化吧。

he378980280

烟盒迷唇 发表于 2019-8-19 12:06
大概这样就可以了，其他你再优化吧。

谢谢，在论坛找到相似的了