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

yybu · 发表于 2004-1-7 23:23:00

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


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

meflying · 发表于 2004-1-8 09:05:00

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

yybu · 发表于 2004-1-8 13:29:00

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

meflying · 发表于 2004-1-8 13:46:00

另外一个程序这样定义
(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 · 发表于 2004-1-13 01:03:00

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

meflying · 发表于 2004-1-13 01:56:00

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

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

发表回复

精选推荐