append 将任意多个表组合成一个表
<P id=crleadin class=cr_leadin>将任意多个表组合成一个表</P><PRE class=prog_in_end>(append )</PRE><P class=Heading-2>参数</P>
<P class=define_head>list</P>
<P class=define_text>表。</P>
<P class=Heading-2>返回值</P>
<P class=body>所有参数组合到一起形成的表。如果不提供参数，函数返回 nil。</P>
<P class=Heading-2>示例</P>
<P class=prompt_end>命令: <SPAN class=CharSansBold>(append '(a b) '(c d))</SPAN> </P>
<P class=prompt_end>(A B C D)</P>
<P class=prompt_end>命令: <SPAN class=CharSansBold>(append '((a)(b)) '((c)(d)))</SPAN> </P>
<P class=prompt_end>((A) (B) (C) (D))</P> 示例预留 ;画一条直线
(defun c:XX()
(setq a '("line" (0 0) (100 100) ""))
(apply 'command a)
)
页:
[1]