CAD命令窗口的函数调用参数格式

林霄云

defun
定义函数
(defun sym ([arguments] [/ variables...]) expr...)
参数
sym
函数名。
arguments
函数需要的形式参数名。
/ variables
函数使用的一个或多个局部变量名。
局部变量名称前的斜线和第一个局部名称之间，以及该斜线和最后一个参数（如果存在的话）之间，都必须保持至少一个空格的距离。

对于arguments，以下示例进行讨论。定义函数setup

2. (defun   setup(layerAlias)
   
3. (setq layerAliases_list '("AXIS""AXIS_TEXT""LABEL""SLAB-HATCH""STAIR""TABLE""TITLE""AZ""AZ_HATCH""AZ_TEXT"
   
4. )
   
5. 
   
6.   (setq layer_list '("G-AXIS（主轴线）""G-AXIS_TEXT（轴线号）""G-LABEL（引线）""G-SLAB-HATCH（板填充）""G-STAIR（楼梯）""G-TABLE（表格线）""G-TITLE（标题）""G_AZ（暗柱）""G_AZ_HATCH（暗柱填充）""G_AZ_TEXT（暗柱号）"
   
7.   )
   
8. 
   
9.   (setq color_list '("9""255""3""11""2""3""1""3""8""2"
   
10.   )
    
11.   
    
12.   (setq linetype_list '("_AXIS100""CONTINUOUS""CONTINUOUS""CONTINUOUS""CONTINUOUS""CONTINUOUS""CONTINUOUS""_DASHED100""CONTINUOUS""CONTINUOUS"
    
13.   )
    
14.   
    
15.   (setq linewidth_list '("0.13""0.3""0.13""0.13""0.13""0.13""0.13""0.13""0.13""0.25"
    
16.   )
    
17.   
    
18.   (setq num (vl-position (strcase (vl-princ-to-string  layerAlias)) layerAliases_list))
    
19.   (if num
    
20.   (progn
    
21.   (setq layname (nth num layer_list))
    
22.   ;查找图层
    
23.   (if ( = (tblsearch "LAYER" layname) nil)
    
24.    
    
25.     (progn
    
26.     (setq     laycolor  (nth num color_list)
    
27.                  linetype  (nth num linetype_list)
    
28.                  linewidth (nth num linewidth_list)   
    
29.           )
    
30. 
    
31.     (command   "layer"       "m"             layname
    
32.            "c"         laycolor          layname
    
33.            "l"           linetype           layname
    
34.            "lw"          linewidth      layname
    
35.      ""
    
36.     )
    
37.     );progn
    
38.     (setvar "clayer" layname)
    
39.   
    
40.   );if
    
41.   );progn
    
42.   );if num
    
43.   );defun

(defun   setup(layerAlias)<br /> (setq layerAliases_list '("AXIS""AXIS_TEXT""LABEL""SLAB-HATCH""STAIR""TABLE""TITLE""AZ""AZ_HATCH""AZ_TEXT"<br /> )<br /> <br />   (setq layer_list '("G-AXIS（主轴线）""G-AXIS_TEXT（轴线号）""G-LABEL（引线）""G-SLAB-HATCH（板填充）""G-STAIR（楼梯）""G-TABLE（表格线）""G-TITLE（标题）""G_AZ（暗柱）""G_AZ_HATCH（暗柱填充）""G_AZ_TEXT（暗柱号）"<br />   )<br /> <br />   (setq color_list '("9""255""3""11""2""3""1""3""8""2"<br />   )<br />   <br />   (setq linetype_list '("_AXIS100""CONTINUOUS""CONTINUOUS""CONTINUOUS""CONTINUOUS""CONTINUOUS""CONTINUOUS""_DASHED100""CONTINUOUS""CONTINUOUS"<br />   )<br />   <br />   (setq linewidth_list '("0.13""0.3""0.13""0.13""0.13""0.13""0.13""0.13""0.13""0.25"<br />   )<br />   <br />   (setq num (vl-position (strcase (vl-princ-to-string  layerAlias)) layerAliases_list))<br />   (if num <br />   (progn<br />   (setq layname (nth num layer_list))<br />   ;查找图层<br />   (if ( = (tblsearch "LAYER" layname) nil)<br />     <br />     (progn<br />     (setq     laycolor  (nth num color_list)<br />                  linetype  (nth num linetype_list) <br />                  linewidth (nth num linewidth_list)   <br />           )<br /> <br />     (command   "layer"       "m"             layname<br />            "c"         laycolor          layname<br />            "l"           linetype           layname<br />            "lw"          linewidth      layname<br />      ""<br />     )<br />     );progn<br />     (setvar "clayer" layname)<br />   <br />   );if<br />   );progn<br />   );if num<br />   );defun

这段代码作用是设置当前图层，输入图层名的简写，当图层不存在时生成。如(setup 'axis)，则当前图层设置为G-AXIS（主轴线）
本想简化输入，如(setup axis)。事实上，在cad命令窗口如此输入行不通的。lisp将axis当成了变量名。axis其值为nil作为参数传递。如此得到结论，在cad命令窗口中，参数输入要么是数字，或者是双引号或者单引号修饰的字符串，或者是已经赋值的变量名，或者是其他函数的返回值。
如果要形成简化输入，方便调用，可以增加定义一个调用函数。setu 空格 axis。其中setu设置为函数如下

1. （defun C:setu ()
   
2. (setup (getstring))
   
3. )

复制代码