为什么返回函数错误

qq1846687144 · 发表于 2016-7-25 18:42:48

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

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

×

(defun c:bym (/ qd ym gd x y)
  (setq qd (getpoint "请选择第一个页码位置"))
  (setq ym (getreal "请输入起始页码"))
  (setq gd (getreal "请输入页码高度"))
;;;;;;;
  (setq x (car qd));;;;x坐标
  (setq y (cadr qd));;;;y坐标
  (setq z (caddr qd));;;z坐标
  (entmake (list
      '(0 . "text")
      (list 10 (x y));;;(list (x y z))
;;;;;页码的位置;;
      (cons 40 gd)
      (cons 1 (strcat (rtos ym 2 0)))
      '(50 . 0)
      '(41 . 0.75)
   )
  );;;end entmake
);end defun
新手求助，O(∩_∩)O谢谢

qq1846687144 · 发表于 2016-7-25 18:45:16

运行后返回函数错误：x坐标

lovezp · 发表于 2016-7-25 19:01:40

(cons 10 qd)替换掉上面的(list 10 (x y))

qq1846687144 · 发表于 2016-7-25 19:15:08

lovezp 发表于 2016-7-25 19:01
(cons 10 qd)替换掉上面的(list 10 (x y))

谢谢大神！！！

qq1846687144 · 发表于 2016-7-25 19:21:13

lovezp 发表于 2016-7-25 19:01
(cons 10 qd)替换掉上面的(list 10 (x y))

是不是（cons 10 （list x y））也可以，返回的表为（10 x y），而（list 10 （x y））返回的是（10 （x y））？

lovezp · 发表于 2016-7-25 19:32:08

（list 10 （x y））这个好像没有返回值，会报错. (x y)这样写表示X为一个函数,Y为变量，而你没有定义X函数

qq1846687144 · 发表于 2016-7-25 19:34:44

lovezp 发表于 2016-7-25 19:32
（list 10 （x y））这个好像没有返回值，会报错. (x y)这样写表示X为一个函数,Y为变量，而你没有定义X函 ...

哦哦，那要获得（10 （x y））是不是要这样（list 10 ’（x y））？

lovezp · 发表于 2016-7-25 19:39:36

你把函数里面的局部变量全部删掉，在CAD命令栏里去验证你的想法

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

[求助] 为什么返回函数错误

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

点评

点评

评分