[求助]关于lisp的小问题

c3a139

我编了一个小程序，最后有提示信息，加载后能显示出来，但我把它编译后，加载程序提示信息却无法显示出来了，请问如何能显示出来？谢谢

xazhji

论说两个都是一样的。

c3a139

不知道怎么回事，如程序最后为

....

(prompt "*************<<qqq>>***************")
(prin1)

lisp加载后能显示，而.VLX却不显示

phoenixdjq

是不是prin1的问题呀

去掉它看看行吗？

c3a139

不行，我把小程序帖出来，大家给看看，

(defun c:myucs ()
  (setq pp (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq pt1 (getreal "请输入N坐标:"))
  (setq pt2 (getreal "\n请输入E坐标:"))
  (setq pt3 (- 0 pt1))
  (setq pt4 (- 0 pt2))
  (setq pt5 (list pt3 pt4 0))
  (command "UCS" "_3" (getpoint "选取一点:") (getpoint "\n确定X方向:") (getpoint "\n确定Y方向:") "")
  (command "UCS" "_move" pt5)
  (command "")
  (setvar "cmdecho" pp)
  (prin1)
)
(prompt "*************<<myucs>>***************")
(prin1)