[求助]：关于lisp的小问题

c3a139 · 发表于 2006-12-21 11:09:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

zml84 · 发表于 2006-12-21 15:06:09

若是不介意的话，能否将伪代码贴上来看看？

c3a139 · 发表于 2006-12-27 16:01:04

拿不出手
(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)
＊.VLX不显示*************<<myucs>>***************

lijiao · 发表于 2006-12-29 09:16:07

你把prompt 换成PRINC，把PRIN1也换成PRINC，应该没有问题。

lijiao · 发表于 2006-12-29 09:16:07

你把prompt 换成PRINC，把PRIN1也换成PRINC，应该没有问题。

c3a139 · 发表于 2007-1-4 12:02:40

试了，不行呀

zml84 · 发表于 2007-1-4 12:30:14

试一试下面的这个。
没有改动你的结构，但不建议在command函数内部使用get函数交互。
[PHP]
(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)
  (princ "\n坐标设置已完成。")
  (princ)
)
(princ "*************<>***************")
(princ)
[/PHP]

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：关于lisp的小问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子