[求助]：变量设置问题

winabcd

在LISP中可用下列方式定义局部变量：
(defun  aaa  ( / a1 a2 a3)
.....
)
如果程序涉及变量较多，用这种方法就不大好了，
请问有没有其它好的方法来解决这个问题。

zhang2380

前面加一个前缀，比如你的名字中的几上拼音

lsjjm

(defun aaa (/ al)
...
(setq al (list a1 a2 a3 a4 a5 ...))
...

winabcd

3楼讲把变量名放入一个表中，这样的话，当我要使用变量或调节调用变量的值时，又如何使用或调用呢？
这些变量之间没有多大的关系，如：文件名变量、高度变量、坐标变量、表变量、........

ll_j

最初由 lsjjm 发布
[B](defun aaa (/ al)
...
(setq al (list a1 a2 a3 a4 a5 ...))
... [/B]

你试过么？
[php](defun c:test(/ a1)
  (setq a1 (list a2 a3 a4))
  (setq a2 2)
  (setq a3 "abc")
  (setq a4 '(0 0))
)[/php]
执行结果：

lsjjm

最初由 ll_j 发布
[B]你试过么？... [/B]

哈哈, 你是老手了. 我只是提供一个思路, 有点不严密. 当然构造表要同类, 例如下例机械零件的数据, 直径, 长度, 倒角半径, 角度, 版本号... 表中坎套子表.
(setq dlist
    '((4 (7.15 8.75 10.4 13.4 14)
         (14.5 16.5)
         (1.0)  
         (45 1.7833 60 5) "67733 E")
      (6 (0.374 0.4685 0.54 0.663 0.685)
         (0.57 0.7)
         (0.05)  
         (45 1.7833 60 5) "67733 E")
      (8 (12.3 15.9 17 20.95 21.7)
         (19.3 22.8)
         (2.0)  
         (45 1.7833 60 5) "67733 E")
     (24 (35.7 41.25 42.8 47.7 48.7)
         (25.7 30.5)
         (2.3)
         (45 1.7833 60 5) "67733 E")
))

ll_j

最初由 winabcd 发布
[B]在LISP中可用下列方式定义局部变量：
(defun  aaa  ( / a1 a2 a3)
.....
)
如果程序涉及变量较多，用这种方法就不大好了，
请问有没有其它好的方法来解决这个问题。 [/B]

应该说没有其他办法，至少是没有其他好办法，这里是变量申明，只有这样是有效的，对于Lisp，其他办法还是有的，就是在程序结束时赋nil（对函数同样有效），但应该说，那样做更复杂。
既然觉得这样申明复杂，就应该从变量的使用数量做文章，可以将部分变量定义在内部函数中，这样程序也更容易检查，一些变量名称也可以在不同的内部函数中重复使用。

lsjjm

例如有12个关于直径变量的阶梯轴绘制子程序, 就得:
(defun draw (d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 d11 d12)
...
如果用(nth 0 dl)表示d1,(nth 1 dl)表示d2 ...就可以这样:
(defun draw (dl)
...

aeo

先用表存着，真有必要（出现次数太多)再赋值一下
(mapcar 'set '(a1 a2 a3...) lst)

ll_j

来一段代码，说明一下局部变量的使用，同时也说明一下局部变量申明与最后赋nil的区别。
大家看看，下面代码执行的结果如何，执行后a1、a2的值如何？
[php](setq a1 1 a2 "a")
(defun c:test(/ a1 a2)
  (defun test1(/ a1 a2)
    (setq a1 3)
    (setq a2 (getpoint "\n给定点："))
    (print a1)
    (print a2)
  )
  (setq a1 2)
  (setq a2 (getstring "\n输入字符串："))
  (test1)
  (print a1)
  (print a2)
  (princ)
)
[/php]

winabcd

看了各位的贴子，看来只能从减少变量的数量入手了，
6楼的方法不能讲不对，但实标使用起来，变量的管理更复杂，读取变量也不方便。（原因是函数中用到许多类型不同的中间变量）

谢谢各位

panzhongw

或者可以缩小程序，尽量使用小模块。

cyxzime

只能从减少变量的数量入手

狂刀

9楼的方法不错

zk_hisen

学习学习！各位高人！