LISP输出问题请教

b1i7n

先说明一下我为什么要做这样一个东西：我平时使用CAD时，不用工具栏操作，所以我把所有的CAD工具栏全关闭了，连命令行也觉得不是什么很重要，只是在用DIST命令测量距离的时候才会要到命令行看测量数值。
　　我想自己写一个叫做ET的测量命令，想用modemacro命令把值输出到状态行。这样我连命令行都可以关掉了。我需要的格式是：XY=????，X＝????，Y=?????
(defun c:et ()
  (setq P1 (getpoint))
  (setq p2 (getpoint p1))
   
  (setq x (abs (- (car p1) (car p2))))
  (setq y (abs (- (cadr p1) (cadr p2))))
  (setq xy (sqrt (+ (* x x) (* y y))))
......
)
请各位指教
另外，LISP本身输出到提示窗口的命令是什么？我也忘了。也要可以输出成以上格式的。

ZZXXQQ

这样用：

(SETVAR "MODEMACRO" (STRCAT (RTOS X 2 3) "," (RTOS Y 2 3) "," (RTOS XY 2 3))

b1i7n

谢谢谢谢

实在是太感谢了

从现在开始我就可以不用命令行了

lifesun

3楼楼主,好东西拿来大家分享一下好不?不要太自私,人生要懂得二字"舍得"

先舍先得,多舍多得,少舍少得,不舍不得

巨人

3楼楼主,好东西拿来大家分享一下好不?不要太自私,人生要懂得二字"舍得"

先舍先得,多舍多得,少舍少得,不舍不得