[LISP]各位大蝦,请帮忙看一下偶的LISP有何问题?

yybu

各位大蝦,请帮忙看一下偶的LISP.
为何运行后pt1,pt2,pt3,pt4均为"nil"?

2. 
   
3. (defun c:d ( / en1 entdata1 pt1 pt2 en2 entdata2 pt3 pt4)
   
4.   (command "_dimaligned" pause pause pause)
   
5.   (setq en1 (entlast))
   
6.   (setq entdata1 (entget en1))
   
7.   (setq        pt1 (cdr (assoc 10 entdata1)) ;;取得第一个标注组码为10的定义点
   
8.         pt2 (cdr (assoc 13 entdata1)) ;;取得第一个标注组码为13的定义点
   
9.   )
   
10.   (command "_dimcontinue")
    
11.   (setq en2 (entlast))
    
12.   (setq entdata2 (entget en2))
    
13.   (setq        pt3 (cdr (assoc 10 entdata2)) ;;取得连续标注中最后一个标注组码为10的定义点
    
14.         pt4 (cdr (assoc 13 entdata2)) ;;取得连续标注中最后一个标注组码为13的定义点
    
15.   )
    
16.   (princ)
    
17. )
    

<br /> (defun c:d ( / en1 entdata1 pt1 pt2 en2 entdata2 pt3 pt4)<br />   (command "_dimaligned" pause pause pause)<br />   (setq en1 (entlast))<br />   (setq entdata1 (entget en1))<br />   (setq        pt1 (cdr (assoc 10 entdata1)) ;;取得第一个标注组码为10的定义点<br />         pt2 (cdr (assoc 13 entdata1)) ;;取得第一个标注组码为13的定义点<br />   )<br />   (command "_dimcontinue")<br />   (setq en2 (entlast))<br />   (setq entdata2 (entget en2))<br />   (setq        pt3 (cdr (assoc 10 entdata2)) ;;取得连续标注中最后一个标注组码为10的定义点<br />         pt4 (cdr (assoc 13 entdata2)) ;;取得连续标注中最后一个标注组码为13的定义点<br />   )<br />   (princ)<br /> )<br />

meflying

你是指程序结素后吗？你指定是局部变量，局部变量的意思就是在当前函数有效，只要退出此函数，此变量就无效

yybu

meflying版主:
我想在另外一段Lisp中用到上面那段Lisp中pt1,pt2,pt3,pt4的坐标值,该如何处理呢?

meflying

另外一个程序这样定义
(defun abc (pt1 pt2 pt3 pt4 / )
  ...
)
然后在上面那个函数里调用这个函数。
或者上面的函数最后这样
(defun c:d ( / en1 entdata1 pt1 pt2 en2 entdata2 pt3 pt4)
...
(list pt1 pt2 pt3 pt4)
)
然后另外的函数这样调用
(setq pts (c:d))
这样就可以使用这些变量了。

如果这两个函数没有任何关系，那就把(defun c:d( / ...)...)中 "/"后面的pt1 pt2 pt3 pt4去掉，这样，执行后，这些变量仍然存在

yybu

meflying版主:
偶按你所说的方法修改了上面的Lisp,但运行后pt1,pt2,pt3,pt4还为"nil".麻烦你看看偶的LISP本身是否有问题?

meflying

把你改好的程序给出来看看