CAD程序为啥乱赋值？？？

124803430

两个不相干的变量值，分别在两个不同的子程序里
我用一个计算之后，另一个居然会被赋值
神马原因？？？？

2. (defun c:f1()
   
3.   (setvar "cmdecho" 0)
   
4.   (f1_dcl)
   
5.   (princ)
   
6.   )
   
7. (defun f1_dcl()
   
8.   (setq dcl_id (load_dialog "C:\\Documents and Settings\\huangtuo\\桌面\\图层LISP源文件\\计算.DCL"))
   
9.   (new_dialog "f1" dcl_id)
   
10.   (action_tile "js_3""(js3)")
    
11.   (action_tile "js_1""(js1)")
    
12.   (if(not(null r-3)) (set_tile "r_3" (rtos r-3 )))
    
13.   (if(not(null kx-3)) (set_tile "kx_3" (rtos kx-3 2 2 )))
    
14.   (if(not(null cos-3)) (set_tile "cos_3" (rtos cos-3 2 2)))
    
15.   (if(not(null js-r-3)) (set_tile "js_r_3" (rtos js-r-3 2 3)))
    
16.   (if(not(null i-3)) (set_tile "i_3" (rtos i-3 2 2)))
    
17.   (if(not(null 1.25i-3)) (set_tile "1.25i_3" (rtos 1.25i-3 2 2)))
    
18.   (if(not(null r-1)) (set_tile "r_1" (rtos r-1 )))
    
19.   (if(not(null kx-1)) (set_tile "kx_1" (rtos kx-1 2 2 )))
    
20.   (if(not(null cos-1)) (set_tile "cos_1" (rtos cos-1 2 2)))
    
21.   (if(not(null js-r-1)) (set_tile "js_r_1" (rtos js-r-1 2 3)))
    
22.   (if(not(null i-1)) (set_tile "i_1" (rtos i-1 2 2)))
    
23.   (if(not(null 1.25i-1)) (set_tile "1.25i_1" (rtos 1.25i-1 2 2)))
    
24.   (action_tile "accept" "(done_dialog 1)")
    
25.   (start_dialog)
    
26.   )
    
27. (defun js3()
    
28.   (setq r-3 (atof (get_tile "r_3")))
    
29.   (setq kx-3 (atof (get_tile "kx_3")))
    
30.   (setq cos-3 (atof (get_tile "cos_3")))
    
31.   (setq js-r-3 (* r-3 kx-3))
    
32.   (setq i-3 (/ js-r-3 (* (sqrt 3) cos-3 0.3800)))
    
33.   (setq 1.25i-3 (* 1.25 i-3))
    
34.   (set_tile "js_r_3" (rtos js-r-3 2 3))
    
35.   (set_tile "i_3" (rtos i-3 2 2))
    
36.   (set_tile "1.25i_3" (rtos 1.25i-3 2 3))
    
37.   )
    
38. (defun js1()
    
39.   (setq r-1 (atof (get_tile "r_1")))
    
40.   (setq kx-1 (atof (get_tile "kx_1")))
    
41.   (setq cos-1 (atof (get_tile "cos_1")))
    
42.   (setq js-r-1 (* r-1 kx-1))
    
43.   (setq i-1 (/ js-r-1 (*  cos-1 0.2200)))
    
44.   (setq 1.25i-1 (* 1.25 i-1))
    
45.   (set_tile "js_r_1" (rtos js-r-1 2 3))
    
46.   (set_tile "i_1" (rtos i-1 2 2))
    
47.   (set_tile "1.25i_1" (rtos 1.25i-1 2 3))
    
48.   )

(defun c:f1()<br />   (setvar "cmdecho" 0)<br />   (f1_dcl)<br />   (princ)<br />   )<br /> (defun f1_dcl()<br />   (setq dcl_id (load_dialog "C:\\Documents and Settings\\huangtuo\\桌面\\图层LISP源文件\\计算.DCL"))<br />   (new_dialog "f1" dcl_id)<br />   (action_tile "js_3""(js3)")<br />   (action_tile "js_1""(js1)")<br />   (if(not(null r-3)) (set_tile "r_3" (rtos r-3 )))<br />   (if(not(null kx-3)) (set_tile "kx_3" (rtos kx-3 2 2 )))<br />   (if(not(null cos-3)) (set_tile "cos_3" (rtos cos-3 2 2)))<br />   (if(not(null js-r-3)) (set_tile "js_r_3" (rtos js-r-3 2 3)))<br />   (if(not(null i-3)) (set_tile "i_3" (rtos i-3 2 2)))<br />   (if(not(null 1.25i-3)) (set_tile "1.25i_3" (rtos 1.25i-3 2 2)))<br />   (if(not(null r-1)) (set_tile "r_1" (rtos r-1 )))<br />   (if(not(null kx-1)) (set_tile "kx_1" (rtos kx-1 2 2 )))<br />   (if(not(null cos-1)) (set_tile "cos_1" (rtos cos-1 2 2)))<br />   (if(not(null js-r-1)) (set_tile "js_r_1" (rtos js-r-1 2 3)))<br />   (if(not(null i-1)) (set_tile "i_1" (rtos i-1 2 2)))<br />   (if(not(null 1.25i-1)) (set_tile "1.25i_1" (rtos 1.25i-1 2 2)))<br />   (action_tile "accept" "(done_dialog 1)")<br />   (start_dialog)<br />   )<br /> (defun js3()<br />   (setq r-3 (atof (get_tile "r_3")))<br />   (setq kx-3 (atof (get_tile "kx_3")))<br />   (setq cos-3 (atof (get_tile "cos_3")))<br />   (setq js-r-3 (* r-3 kx-3))<br />   (setq i-3 (/ js-r-3 (* (sqrt 3) cos-3 0.3800)))<br />   (setq 1.25i-3 (* 1.25 i-3))<br />   (set_tile "js_r_3" (rtos js-r-3 2 3))<br />   (set_tile "i_3" (rtos i-3 2 2))<br />   (set_tile "1.25i_3" (rtos 1.25i-3 2 3))<br />   )<br /> (defun js1()<br />   (setq r-1 (atof (get_tile "r_1")))<br />   (setq kx-1 (atof (get_tile "kx_1")))<br />   (setq cos-1 (atof (get_tile "cos_1")))<br />   (setq js-r-1 (* r-1 kx-1))<br />   (setq i-1 (/ js-r-1 (*  cos-1 0.2200)))<br />   (setq 1.25i-1 (* 1.25 i-1))<br />   (set_tile "js_r_1" (rtos js-r-1 2 3))<br />   (set_tile "i_1" (rtos i-1 2 2))<br />   (set_tile "1.25i_1" (rtos 1.25i-1 2 3))<br />   )

上面代码最后一个1.25i_1和1.25i_3这两个值会传值我明明没启动下面的那个js1子程序
但是会被赋值而且两个变量之间会串值，计算了下面一个1.25i_1会串到上面那个1.25i_3上去
这是神马原因？？？？附上动态图片演示：

Free-Lancer

知道什么是全局变量和局部变量吗?
不想受别的影响收集变量作为局部变量

124803430

Free-Lancer 发表于 2014-10-17 10:58
知道什么是全局变量和局部变量吗?
不想受别的影响收集变量作为局部变量

写成全局变量是因为想把对话框内的数据保留下来，因为如果写成局部变量，计算之后值就成nil了
第二次开对话框就没有我上次计算的数据

Free-Lancer

124803430 发表于 2014-10-17 11:11
写成全局变量是因为想把对话框内的数据保留下来，因为如果写成局部变量，计算之后值就成nil了
第二次开 ...

那另外一个程序就不要用相同的变量名

124803430

程序本来就没有相同的变量名，所有的变量名称都不一样
不知道为什么还是会串值

czx663

这个是程序编写者的问题,不注意任何语言都可能出问题

zxq0220

变量名错误。LISP变量命名规则一般要求是字母开头，且不得有下列符号出现：().'";