gucci218 发表于 2005-12-15 15:04:00

[求助]大家帮忙看看，哪错了？？？

<FONT face=宋体 size=2>目的：已知date中是pl的顶点列表（例如：((91.3672 162.024) (182.995 101.687) (328.245 123.013) (400.089 81.9221))，想在pl的中点插入文字<BR><BR>(defun c:bz(a b / ii pp ppt bp)<BR>(setvar "cmdecho" 0) <BR>(setq pp (nth 0 date))<BR>(setq ii 1) <BR>(repeat (1- (length date))<BR>(setq ppt (nth ii date)<BR>(setq bp (mapcar '(lambda(a b) (/ (+ a b) 2)) pp ppt))<BR>(command "text" bp "3.0" "" "DN200") <BR>(setq pp ppt)<BR>(setq ii (1+ ii))<BR>)<BR>(prin1)<BR>)</FONT>

gucci218 发表于 2005-12-15 20:22:00

自己找到错误了，去掉 a b 这里人气不旺呀不如小东论坛

蓝云 发表于 2005-12-16 10:38:00

不是去掉，而是应该放到“/”后面去

xuefeng032 发表于 2005-12-18 12:17:00

<P>lanbda函数</P>
<P>功能：定义无名函数</P>
<P>（lambda arguments expr……）</P>
<P>在经常使用某一表达式，而又觉得把他定义成一个新的函数开销太大时可使用lambda函数。lambda将定义的函数放在要使用它的位置，还可以使程序员的意图表达得更清楚！</P>
页: [1]
查看完整版本: [求助]大家帮忙看看，哪错了？？？