lisp调用子程序的时候怎么传递参数啊？

xgrqing

比如，我想写一个很简单的程序，判断选择的对象是不是直线

(defun c:pd(/ lent)
  (setq lent (car (entsel)))
  (isline lent)
  (cond ((= tt "LINE") (princ "right")))
)
(defun isline(lname)
  (setq llst (entget lname))
  (setq tt (cdr (assoc 0 llst)))
)

但是在加载的时候就提示错误：“输入的列表有缺陷”，该怎么输呢

xgrqing

哈哈，可以了可以了，是我不小心弄错了刚开始。

但是现在还有个问题，子程序的返回值是什么呢？比如上面的tt，好像是全局变量，和其他语言有点不一样

yxp

你还没有理解lisp括号的含义啊，每对括号都有返回值。

你的 (isline lent) 似乎没有变量来接收返回值，因此tt就成了全局变量。

(= "LINE" (cdr (assoc 0 (entget (car (entsel))))))

是line的话会返回T,否则返回nil

xgrqing

对，我正是不知道怎么样设置一个变量来专门接收返回值，该怎么写呢？比如上面的子程序isline的返回值又是什么呢？我的本意是想让他传回tt的值

yxp

 (setq tt(isline lent)) 这时候tt就是局部变量。

xgrqing

哎，恕我愚钝，现在终于想明白了。。。。

navsun

我们都是菜鸟？建议斑竹分一下高手区和菜鸟区，鱼龙混杂有点乱。

hhc

子函数的返回值就是该子函数最后一条语句的返回值，并且Lisp会将子函数的返回值放到调用该子函数的地方。所以你的那段程序可以这样写：

(defun c:pd(/ lent)
  (setq lent (car (entsel)))
  (cond
   ((= (isline lent) "LINE")
     (princ "right")
   )
  )
)
(defun isline(lname)
  (cdr (assoc 0 (entget lname)))
)

dinosaurhxe

子程序可以带参数嘛。

也可以用Setq等获取子程序返回的最后一个值。