[LISP程序]：为什么弹出的对话框显示不出来度数？

ghl_729

;计算坐标方位角
(defun c:fwj()
(command "osnap" "nod,end cen")
(setq pt (getpoint "\n 请输入已知点:"))
(setq pt1 (getpoint "\n 请输入已知点:"))
(command "osnap" "off")
(setq y1 (car pt) )
(setq x1 ( cadr pt) )
(setq y2 (car pt1) )
(setq x2 ( cadr pt1) )
(setq dx (- x1 x2))
(setq dy (- y1 y2))
(setq s (/ dy dx))
(setq du (atan s))
(if (> du 0)
    (progn
    (if (> dx 0) (setq dd (/ (* du 180.0) 3.1415926)))
    (if (< dx 0) (setq dd (+ (/ (* du 180.0) 3.1415926) 180.0)))
    )
   (alert "两点的坐标方位角是："dd )

)
(if (< du 0)
    (progn
    (if (> dx 0) (setq dd (+ (/ (* (du 180.0)) 3.1415926) 360.0)))
    (if (< dx 0) (setq dd (+ (/ (* (du 180.0)) 3.1415926) 180.0)))
    )
   (alert "两点的坐标方位角是："dd )
)
)

lijiao

alert 只能接受字符串，DD是实数，当然不能正确显示。
改为：
(alert (strcat "两点的坐标方位角是：" (rtos dd)))

ghl_729

谢谢了！我试了，好用！