[LISP程序]：能不能帮我看看问题出那了！

kissnpc · 发表于 2006-12-6 16:46:13

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

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

×

(defun c:sss(/ a1 a2 a3 a4 l1)
  (setq a1 0.00)
  (setq a2 8.98)
(while (/= l1 0)
   (setq l1 (getreal "enter number:"))
   (setq l1 (eval (quote(* l1 -1))))
   (setq a3 (list a1 l1))
   (setq a4 (list a2 l1))
   (command "line" a3 a4 "")
)
  )
程序执行应该是在按用户输入的数字划线，它划是划就是连续输入的数字１０和２０它就划，
连续输入1.1 和1.2它就只划1.1的线而不划1.2了。初学cadLisp，帮我看看吧！

firstintimate · 发表于 2006-12-6 17:54:00

没看明白你的意思,程序本身没有问题可以运行的

carrot1983 · 发表于 2006-12-6 18:16:24

“程序执行应该是在按用户输入的数字划线，它划是划就是连续输入的数字１０和２０它就划，
连续输入1.1 和1.2它就只划1.1的线而不划1.2了”。。。。。
可以啊。怎么不行？。。我试了可以啊。没问题哦。我也是初学。
（输入0就退出啊。不知道这个有什么用。呵呵）

phoenixdjq · 发表于 2006-12-6 19:21:16

我找到答案了，你没有关闭捕捉，刚才我把捕捉关闭了，就可以了，程序改成以下就行了
(defun c:sss(/ a1 a2 a3 a4 l1)
(setq old (getvar "osmode" ))
(setvar "osmode" 0)
(setq a1 0.00)
(setq a2 8.98)
(while (/= l1 0)
(setq l1 (getreal "enter number:"))
(setq l1 (eval (quote(* l1 -1))))
(setq a3 (list a1 l1))
(setq a4 (list a2 l1))
(command "line" a3 a4 "")
)
(setvar "osmode" old)
)

kissnpc · 发表于 2006-12-6 23:15:05

谢谢４楼，就是捕捉问题，我是工作中要划这样的线。

phoenixdjq · 发表于 2006-12-7 08:48:22

我们在画图的时候,最好将捕捉关闭
所以我加的那三句,以后做画图的程序时候,最好加上
要不就很容易出错

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

[LISP程序]：能不能帮我看看问题出那了！

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

相关帖子