[求助]：请求斑竹帮帮我！！谢谢！

一生有你 · 发表于 2004-10-27 17:23:25

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

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

×

我在用程序画图时，怎么会出现这样的情况：
先看我的程序吧：
;this program draw two circles
;these two circles are in the same level
;
(defun c:cir(/ p1 p2 d1 d2)
(setvar "cmdecho"0)
(graphscr)
(setq p1 (getpoint "\n enter first point:"))
(setq p2 (getpoint "\n enter second point:"))
(setq d1 (getdist "\n enter first diameter:"))
(setq d2 (getdist "\n enter second diameter:"))
(command"circle"p1 (/ d1 2))
(command"circle"p1 (/ d2 2))
(command"circle"p2 (/ d1 2))
(command"circle"p2 (/ d2 2))
(command"line"p1 p2)
(setvar"cmdecho"1)
(princ)
)
当我把(command"line"p1 p2)放在(command"circle"p2(/d1 2))上面一行时，运行命令，只能画到"line"这一行，后面的两个圆就画不出来了，而我用上面改过的画时，就能完整地画出四个圆和一条线段了，请问怎么回事呀？谢谢！！
还有：(setvar"cmdecho"0)和(graphscr)分别是什么意思啊？？？有什么作用啊？
万分感激！！！

xyp1964 · 发表于 2004-10-27 17:29:54

(command"line"p1 p2)
改为
(command"line"p1 p2"")

(setvar"cmdecho"0)：取消捕捉－晕！
正确答案为：抑制COMMAD命令的提示！
(graphscr)：绘图屏幕

一生有你 · 发表于 2004-10-27 21:05:15

高手，能否用图示让俺菜鸟看一下(graphscr):是什么意思吗？单说我不懂啊！
谢谢！！

xyp1964 · 发表于 2004-10-27 21:47:03

按F2到(textscr)，再按F2到(graphscr)！

lijiao · 发表于 2004-10-28 08:06:30

最初由 xyp1964 发布
[B](command"line"p1 p2)
改为
(command"line"p1 p2"")

(setvar"cmdecho"0)：取消捕捉
(graphscr)：绘图屏幕 [/B]

伙计，(setvar"cmdecho"0)是抑制COMMAD命令的提示，取消捕捉的变量是OSMODE。

一生有你 · 发表于 2004-10-28 11:35:26

我知道了，我得再要多学些函数的意思！fighting!

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

[求助] [求助]：请求斑竹帮帮我！！谢谢！

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

相关帖子

谢谢！进一步请求！！！

好的，谢谢各位的帮忙！