Alisp 中实现函数参数的修改

st788796

一般来说 Autolisp 的参数是形参

2. 
   
3. (setq a 10.0)
   
4. (defun ff (a / ) (setq a 1.0))
   
5. (setq b (ff a))
   

<br /> (setq a 10.0)<br /> (defun ff (a / ) (setq a 1.0))<br /> (setq b (ff a))<br />

函数体内对 a 进行了赋值，外部的 a 仍旧是 10.0 ,不会变成 1.0，ff 的返回值是 1.0，ff 中的 a 是一个值参数；
在 c++ 中传递指针或地址做参数后，如果函数体内对指针或地址的值进行修改，外部的指针或地址指向的值也会修改；
C# 中如果参数是集合，那么函数体内对集合进行了修改，那么传递的该参数指向也会变化，除了函数体可以返回指定的类型，还可以有一个 ref 修饰的参数用于修改外部变量

现在的问题是 Autolisp 是不是也具有以上类似的特性呢，传递的参数也可以在函数体内进行修改？答案是肯定的，不过要使用一个特殊的类型，即 SafeArray, 看下面的例子

2. 
   
3. (setq arr (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 0)) '(10.0)))
   
4. (defun ff (a) (vlax-safearray-put-element a 0 1.0) 1.0)
   
5. (vlax-safearray->list a)
   

<br /> (setq arr (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble '(0 . 0)) '(10.0)))<br /> (defun ff (a) (vlax-safearray-put-element a 0 1.0) 1.0)<br /> (vlax-safearray->list a)<br />

运行后的效果
_$ (vlax-safearray->list arr)
(10.0)
_$ (ff arr)
1.0
_$ (vlax-safearray->list arr)
(1.0)

当然这种方法有些绕，不过在某些情况下使用会更加方便，一个实例
这是一个 C++ 的最小二乘法模拟椭圆程序 http://blog.csdn.net/zhazhiqiang/article/details/45824957
下面用 SafeArray 参数改写第一个函数 高斯消元

2. 
   
3. (defun RGauss (arr / n m narr k dmax i j k temp x)
   
4.   (setq        n    (vlax-safearray-get-u-bound arr 1)
   
5.         m    (vlax-safearray-get-u-bound arr 2)
   
6.         narr arr
   
7.         k    0
   
8.   )
   
9.   (while (< k n)
   
10.     (setq dmax -1
    
11.           l -1
    
12.           i k
    
13.     )
    
14.     (while (< i n)
    
15.       (if (> (abs (vlax-safearray-get-element narr i k)) dmax)
    
16.         (setq dmax (vlax-safearray-get-element narr i k)
    
17.               l           i
    
18.         )
    
19.       )
    
20.       (setq i (1+ i))
    
21.     )
    
22.     (if        (/= l k)
    
23.       (progn
    
24.         (setq i 0)
    
25.         (while (< i m)
    
26.           (setq temp (vlax-safearray-get-element narr l i))
    
27.           (vlax-safearray-put-element narr l i (vlax-safearray-get-element narr k i))
    
28.           (vlax-safearray-put-element narr k i temp)
    
29.           (setq i (1+ i))
    
30.         )
    
31.       )
    
32.     )
    
33.     (setq i (1+ k))
    
34.     (while (< i n)
    
35.       (setq l (/ (vlax-safearray-get-element narr i k) (vlax-safearray-get-element narr k k)))
    
36.       (setq j k)
    
37.       (while (< j m)
    
38.         (vlax-safearray-put-element
    
39.           narr
    
40.           i
    
41.           j
    
42.           (- (vlax-safearray-get-element narr i j) (* l (vlax-safearray-get-element narr k j)))
    
43.         )
    
44.         (setq j (1+ j))
    
45.       )
    
46.       (setq i (1+ i))
    
47.     )
    
48.     (setq k (1+ k))
    
49.   )
    
50.   (setq x (vlax-make-safearray vlax-vbdouble (cons 0 (1- n))))
    
51.   (vlax-safearray-put-element
    
52.     x
    
53.     (1- n)
    
54.     (/ (vlax-safearray-get-element narr (1- n) (1- m)) (vlax-safearray-get-element narr (1- n) (- m 2)))
    
55.   )
    
56.   (setq k (- n 2))
    
57.   (while (>= k 0)
    
58.     (setq s 0.0
    
59.           j (1+ k)
    
60.     )
    
61.     (while (< j n)
    
62.       (setq s (+ s (* (vlax-safearray-get-element narr k j) (vlax-safearray-get-element x j)))
    
63.             j (1+ j)
    
64.       )
    
65.     )
    
66.     (vlax-safearray-put-element
    
67.       x
    
68.       k
    
69.       (/ (- (vlax-safearray-get-element narr k (1- m)) s) (vlax-safearray-get-element narr k k))
    
70.     )
    
71.     (setq k (1- k))
    
72.   )
    
73.   x
    
74. )

<br /> (defun RGauss (arr / n m narr k dmax i j k temp x)<br />   (setq        n    (vlax-safearray-get-u-bound arr 1)<br />         m    (vlax-safearray-get-u-bound arr 2)<br />         narr arr<br />         k    0<br />   )<br />   (while (< k n)<br />     (setq dmax -1<br />           l -1<br />           i k<br />     )<br />     (while (< i n)<br />       (if (> (abs (vlax-safearray-get-element narr i k)) dmax)<br />         (setq dmax (vlax-safearray-get-element narr i k)<br />               l           i<br />         )<br />       )<br />       (setq i (1+ i))<br />     )<br />     (if        (/= l k)<br />       (progn<br />         (setq i 0)<br />         (while (< i m)<br />           (setq temp (vlax-safearray-get-element narr l i))<br />           (vlax-safearray-put-element narr l i (vlax-safearray-get-element narr k i))<br />           (vlax-safearray-put-element narr k i temp)<br />           (setq i (1+ i))<br />         )<br />       )<br />     )<br />     (setq i (1+ k))<br />     (while (< i n)<br />       (setq l (/ (vlax-safearray-get-element narr i k) (vlax-safearray-get-element narr k k)))<br />       (setq j k)<br />       (while (< j m)<br />         (vlax-safearray-put-element<br />           narr<br />           i<br />           j<br />           (- (vlax-safearray-get-element narr i j) (* l (vlax-safearray-get-element narr k j)))<br />         )<br />         (setq j (1+ j))<br />       )<br />       (setq i (1+ i))<br />     )<br />     (setq k (1+ k))<br />   )<br />   (setq x (vlax-make-safearray vlax-vbdouble (cons 0 (1- n))))<br />   (vlax-safearray-put-element<br />     x<br />     (1- n)<br />     (/ (vlax-safearray-get-element narr (1- n) (1- m)) (vlax-safearray-get-element narr (1- n) (- m 2)))<br />   )<br />   (setq k (- n 2))<br />   (while (>= k 0)<br />     (setq s 0.0<br />           j (1+ k)<br />     )<br />     (while (< j n)<br />       (setq s (+ s (* (vlax-safearray-get-element narr k j) (vlax-safearray-get-element x j)))<br />             j (1+ j)<br />       )<br />     )<br />     (vlax-safearray-put-element<br />       x<br />       k<br />       (/ (- (vlax-safearray-get-element narr k (1- m)) s) (vlax-safearray-get-element narr k k))<br />     )<br />     (setq k (1- k))<br />   )<br />   x<br /> )

Highflybird

关于这个问题，其实不用安全数组也是可以的，
譬如简单的交换函数：

1. (defun SWAP (SwapX SwapY / temp)
   
2.   (setq temp (VL-SYMBOL-VALUE SwapX))
   
3.   (set SwapX (VL-SYMBOL-VALUE SwapY))
   
4.   (set SwapY temp)
   
5. )
   

(defun SWAP (SwapX SwapY / temp)<br />   (setq temp (VL-SYMBOL-VALUE SwapX))<br />   (set SwapX (VL-SYMBOL-VALUE SwapY))<br />   (set SwapY temp)<br /> )<br />

运行 (setq x 1 y 2)
=>  (swap 'x 'y)
通过交换函数之后：
=> x
2
=> y
1
可以看出x和y的值真的交换了。
比较下面的函数:
(defun swap1 (x y / temp)
  (setq temp x x y y temp)
)
读者自行实验。
这个地方的技巧在于： 用quote,即 ' 和Set
这样LISP就可以实现修改参数值，达到传值的效果。