[求助]：高手快来帮我解决一下这个小问题出在那里

ssgmyvvfb · 发表于 2004-12-17 18:04:54

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

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

×

当输入A0，A1，A2，A3，A4后能自动画出该指定图纸大小的矩形图框。代码如下：
（defun c:7test0 ( )
   (initget "A0 A1 A2 A3 A4")
   (setq size (getdword "请输入图纸大小A0,A1,A2,A3.A4<A3>:"))
   (IF (=  size nil) (setq size "A3"))
   (setq size (strcase size))
   (cond       ((= size "A0") (setq p2 ' (1189 841)))

                  ((= size "A1") (setq p2 ' (841 594)))
                  ((= size "A2") (setq p2 ' (594 420)))
                  ((= size "A3") (setq p2 ' (420 297)))
                  ((= size "A4") (setq p2 ' (297 210)))
                  (t                      (setq p2 ' (420 297)))
   )
   (setq p1 '(0 0))
   (command "rectang" p1 p2)
   (command "zoom" "A")
(prin1)
)
帮我看一下那里出错了啊，我就是看不出来，
对了那个是（1189 841）前面的那个点是那个点啊？

xyp1964 · 发表于 2004-12-17 18:09:06

试试，注意空格和全角、半角字符不要搞错！
[php]
(defun c:7test0 ( )
(initget "A0 A1 A2 A3 A4")
(setq size (getdword "请输入图纸大小A0,A1,A2,A3,A4:"))
(IF (= size nil) (setq size "A3"))
(setq size (strcase size))
(cond ((= size "A0") (setq p2 '(1189 841)))
((= size "A1") (setq p2 '(841 594)))
((= size "A2") (setq p2 '(594 420)))
((= size "A3") (setq p2 '(420 297)))
((= size "A4") (setq p2 '(297 210)))
(t (setq p2 '(420 297)))
)
(setq p1 '(0 0))
(command "rectang" p1 p2)
(command "zoom" "A")
(prin1)
)
[/php]

ssgmyvvfb · 发表于 2004-12-17 20:41:48

对了啊，那些点是建盘上的那个啊，可不可以说一下啊

SLMin · 发表于 2004-12-17 21:35:52

英文输入状态下的ENTER键的旁边一个！

czg09180274 · 发表于 2004-12-18 23:00:36

你把你的第三句：(setq size (getdword "请输入图纸大小A0,A1,A2,A3.A4:"))
写成：(setq size (getkword "请输入图纸大小A0,A1,A2,A3.A4:"))试试看。

另外：
直接给定的坐标值前用的单引号是，英文输入状态下的单引号,或是中文状态的半角方式下的单引号(不能用错)。

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

[求助] [求助]：高手快来帮我解决一下这个小问题出在那里

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

相关帖子