型参和实参相同，有什么副作用？

/db_自贡黄明儒_

;;如下面的程序，e 是相同的，执行完(MiddleCenPoint e)后再查,e没有变化，会不会有什么副作用？
;;功能:获取对象正中点
(defun MiddleCenPoint (e / P1 P2 PLIST X)
  (cond ((= (type e) 'ename) (setq e (vlax-ename->vla-object e))))
  (vla-getboundingbox e 'p1 'p2)
  (setq p1 (vlax-safearray->list p1))
  (setq p2 (vlax-safearray->list p2))
  (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)
)

newer

不看你的代码，从程序设计角度说

形参是通过栈传参数给函数的，传进去的是一个拷贝，你在函数内部修改形参，不会影响到外面那个变量的。
实参是通过堆传参数给函数的，传进去的是一个地址（地址的指针），你在函数内部修改实参，是会影响到外面那个变量的。

因为函数只有一个返回值，所以，如果你想返回多个值的话，你就要利用实参的特性，通过函数内部修改实参来达到返回多个值的目的。

st788796

Autolisp 规则 / 前后不能有同名的，传递的参数在函数内部任意改变值都不影响原变量，这个大概就是 N  版说的形参

newer

st788796 发表于 2014-11-15 16:53
Autolisp 规则 / 前后不能有同名的，传递的参数在函数内部任意改变值都不影响原变量，这个大概就是 N  版说 ...

LISP放到函数定义  / 后面的就都是形参了。没放进去的，若果修改了和外面同名的，外面的也变了，这就相当于实参，虽然没特意传，这是LISP与众不同的地方。 其他语言变量不定义是不让用的。实参必须显示的跟着函数传递进来才行。

/db_自贡黄明儒_

newer 发表于 2014-11-15 17:05
LISP放到函数定义  / 后面的就都是形参了。没放进去的，若果修改了和外面同名的，外面的也变了，这就相当 ...

用Autocad自带的编辑器提取局部变量，有时也包括了e ,如（e  P1 P2 PLIST X）。我就奇怪了，而且也能正常运行，只不过编译时会发出警告。
我注意到高飞大师是如下写的

2. (defun MiddleCenPoint (e / OBJ P1 P2 X Y)
   
3.   (cond  ((= (type e) 'ename) (setq obj (vlax-ename->vla-object e)))
   
4.   ((= (type e) 'VLA-OBJECT) (setq obj e))
   
5.   )
   
6.   (vla-getboundingbox obj 'p1 'p2)
   
7.   (setq p1 (vlax-safearray->list p1))
   
8.   (setq p2 (vlax-safearray->list p2))
   
9.   (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)
   
10. )

(defun MiddleCenPoint (e / OBJ P1 P2 X Y)<br />   (cond  ((= (type e) 'ename) (setq obj (vlax-ename->vla-object e)))<br />   ((= (type e) 'VLA-OBJECT) (setq obj e))<br />   )<br />   (vla-getboundingbox obj 'p1 'p2)<br />   (setq p1 (vlax-safearray->list p1))<br />   (setq p2 (vlax-safearray->list p2))<br />   (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)<br /> )

ll_j

/db_自贡黄明儒_ 发表于 2014-11-17 08:30
用Autocad自带的编辑器提取局部变量，有时也包括了e ,如（e  P1 P2 PLIST X）。我就奇怪了，而且也能正常 ...

Acad自带的编辑器只能作参考，研究深了就自己看程序分析吧。
百度了一下，关于形参和实参还是说得比较清楚的，就是有一条，就是n版所说是Lisp的特殊性，Lisp实参可以不定义。
在ALisp的函数定义中，参数包括参数名和参数本身两个概念，参数名（及局部变量名）在函数加载时，系统会按照自己的算法分配地址，与函数外面的环境（包括系统变量、实参等）无关，所以也可以同名，并不会带来影响。
一旦定义的形参名（参数名和局部变量名）和外部环境中全局变量名相同，在函数中就只认函数中的形参名，无法再把外部环境中的实参（全局变量）传递进来，当然也无法传递出去。

ll_j

/db_自贡黄明儒_ 发表于 2014-11-17 08:30
用Autocad自带的编辑器提取局部变量，有时也包括了e ,如（e  P1 P2 PLIST X）。我就奇怪了，而且也能正常 ...

鸟大师这段代码的变量声明中x、y多余。
这里的e是参数名，可以是任意字符，并不改变函数的内容，如果在加载之前已经设定e为另一个值，则在此函数运行时将无法改变前面设定的e值，obj、pt1等也一样。
这种问题一般不影响使用，除非你又想调用此函数，又想改变函数外的同名函数。

/db_自贡黄明儒_

ll_j 发表于 2014-11-17 09:05
鸟大师这段代码的变量声明中x、y多余。
这里的e是参数名，可以是任意字符，并不改变函数的内容，如果在 ...

我是说高飞大师这样写

• (cond  ((= (type e) 'ename) (setq obj (vlax-ename->vla-object e)))
  
• 
                                 
  登录/注册后可看大图
    ((= (type e) 'VLA-OBJECT) (setq obj e))
  
• 
                                 
  登录/注册后可看大图
    )
  
  
  而不是
  
• (cond  ((= (type e) 'ename) (setq e (vlax-ename->vla-object e))))这样写
  
  

st788796

/db_自贡黄明儒_ 发表于 2014-11-17 10:55
我是说高飞大师这样写

(cond  ((= (type e) 'ename) (setq obj (vlax-ename->vla-object e)))

自己函数内部再写一个变量，习惯，按 2  写也没问题

ll_j

/db_自贡黄明儒_ 发表于 2014-11-17 10:55
我是说高飞大师这样写

(cond  ((= (type e) 'ename) (setq obj (vlax-ename->vla-object e)))

仔细看，好像鸟兄的代码有错误，下面的一句vla-getb...中的参数e应该是obj。
不懂vl，所以去查了一下书，这个函数参数似乎应该是object对象，而且看鸟兄的代码页应该是这样，前面的cond是对e进行判别，e是实体就转换为对象，赋值到obj，是对象直接赋值到obj，当然，这里可以省略obj变量，直接就使用e，但编程有习惯的约定俗成，e、en、ent表示实体，obj表示对象，所以不妨多一个变量名。

/db_自贡黄明儒_

ll_j 发表于 2014-11-17 11:29
仔细看，好像鸟兄的代码有错误，下面的一句vla-getb...中的参数e应该是obj。
不懂vl，所以去查了一下书 ...

那不是高飞大师的错，是我写错了。{:soso_e127:}
我只是想说明前面8楼那个问题

st788796

还没有上升到理论高度，在 AutoLISP 自定义函数中内部函数名称一直不使用参数名的，需要转换就另起个名字

/db_自贡黄明儒_

ll_j 发表于 2014-11-17 11:29
仔细看，好像鸟兄的代码有错误，下面的一句vla-getb...中的参数e应该是obj。
不懂vl，所以去查了一下书 ...

趁高飞大师可能还没有看到，我改了，免得说我乱打他的旗号{:soso_e113:}。其实我只想说一个问题，不严密导致其它问题了。

Free-Lancer

/db_自贡黄明儒_ 发表于 2014-11-17 11:49
趁高飞大师可能还没有看到，我改了，免得说我乱打他的旗号。其实我只想说一个问题，不严密 ...

在 C++ .Net  中参数有 ref 类型，可以输出变量，AutoLISP 一般用  setq 也可以留下全局变量，但是在不同的编译空间，这个setq 就不够了，Autodesk 为此体高了几个函数，vl-bb-ref vl-bb-set vl-doc-import vl-doc-export vl-propagete ,另外还可以想下面这样用

1. (defun fy:ODBX (varSym fn)
   
2.   (if (set varSym
   
3.        (vla-GetInterfaceObject
   
4.          (vlax-get-acad-object)
   
5.          (strcat "ObjectDBX.AxDbDocument."
   
6.              (substr (getvar "acadver") 1 2)
   
7.          )
   
8.        )
   
9.       )
   
10.     (if    (and fn (findfile fn))
    
11.       (vla-open (eval varsym) (findfile fn))
    
12.       (eval varsym)
    
13.     )
    
14.   )
    
15. )
    

(defun fy:ODBX (varSym fn)<br />   (if (set varSym<br />        (vla-GetInterfaceObject<br />          (vlax-get-acad-object)<br />          (strcat "ObjectDBX.AxDbDocument."<br />              (substr (getvar "acadver") 1 2)<br />          )<br />        )<br />       )<br />     (if    (and fn (findfile fn))<br />       (vla-open (eval varsym) (findfile fn))<br />       (eval varsym)<br />     )<br />   )<br /> )<br />

使用方法如下

(fy:odbx 'dbxdoc "test.dwg")
(if dbxdoc
   (vlax-for x (vla-get-modelspace dbxdoc)
  ....

/db_自贡黄明儒_

Free-Lancer 发表于 2014-11-17 11:58
在 C++ .Net  中参数有 ref 类型，可以输出变量，AutoLISP 一般用  setq 也可以留下全局变量，但是在不 ...

set函数历来是个难点，看来你驾轻就熟