(command "dist" "" ) 如何得到返回结果?

nuic-ljsh

(defun C:test ()
  (setvar "cmdecho" 0)
  (setq jd (getvar "LUPREC"))
  (setq css (getpoint "请选择线的端点"))
  (setq p1 (getpoint css "\n第二点："))
  (setq dis (distance css p1))
  (setq an (angle css p1))
  (setq        dx (* dis (cos an))
        dy (* dis (sin an))
        dz 0.0
  )

  (setq        l1 (strcat "距离 = "
                   (rtos dis 2 jd)
                   "，XY 平面中的倾角 = "
                   (rtos (* (/ an pi) 180.0) 2 0)
                   "，  与 XY 平面的夹角 = 0"
           )
  )
  (setq        l2 (strcat "X 增量 = "
                   (rtos dx 2 jd)
                   "，  Y 增量 = "
                   (rtos dy 2 jd)
                   "，   Z 增量 = "
                   (rtos dz 2 jd)
           )
  )
  (print)
  (write-line l1)
  (write-line l2)
  (princ)
)