[LISP函数]：局部变量的问题！

xbaron · 发表于 2006-11-13 09:32:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;一条线和多条线交点(表)
(defun c:test256 ()
  (princ "\n选择第一条线 : ")
  (setq s0 (ssget '((0 . "*LINE,ARC,CIRCLE")))
S0 (ssname s0 0)
  )
  (princ "\n选择其它的线 : ")
  (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt0 (xyp-get-Inters s0 s1 0)
   ptn (append ptn pt0)
)
  )
  ptn
)
ptn好像是全局变量，怎么改成局部变量！每回返回值总是有以前的点表，很烦人！

kohi · 发表于 2006-11-13 09:55:42

(defun c:test256 (/ ptn)

xbaron · 发表于 2006-11-13 10:05:07

但是改过以后说是参数太少！

Dallas_whu · 发表于 2006-11-13 10:41:52

在while前面加：(setq ptn nil) 或(setq ptn '())

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：局部变量的问题！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子