CAD程序为啥乱赋值？？？

124803430 · 发表于 2014-10-17 10:43:54

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

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

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

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

ll_j · 发表于 2014-10-17 10:50:34

程序看不动了，但凭感觉，变量串值就是局部变量和全局变量问题，你的函数全部没有声明局部变量，即所有变量全是全局变量，一个函数对变量赋值，则在所有涉及此变量（名）的地方均被赋值。
建议看看我签名中的《认识自定义函数》。

124803430 · 发表于 2014-10-17 11:10:50

ll_j 发表于 2014-10-17 10:50
程序看不动了，但凭感觉，变量串值就是局部变量和全局变量问题，你的函数全部没有声明局部变量，即所有变量 ...

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

伪书虫86 · 发表于 2014-10-17 11:22:40

要保留上一次的数据可以通过读写TXT来实现麽
顺便吐槽下，就一个计算电流，你还整个对话框出来，那还不如直接excel 呢，简单还能保留上次计算数据

124803430 · 发表于 2014-10-17 11:25:56

伪书虫86 发表于 2014-10-17 11:22
要保留上一次的数据可以通过读写TXT来实现麽
顺便吐槽下，就一个计算电流，你还整个对话框出来，那还不如直 ...

txt操作太复杂了
excel表我也写过，不过那样还得开个程序。追求极致效率

伪书虫86 · 发表于 2014-10-17 11:30:31

124803430 发表于 2014-10-17 11:25
txt操作太复杂了
excel表我也写过，不过那样还得开个程序。追求极致效率

弱弱的问下，txt比DCL复杂麽？我觉得程序要是自己用的，所有的输入还是放在CAD命令行去输入，效率才能极致，毕竟光自己用，不需要考虑太多的可能性麽，你说是不是呢

ll_j · 发表于 2014-10-17 11:39:23

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

再查查对话框文件的键值。

lsjj · 发表于 2014-10-17 12:15:17

變量名不要用.
題外,用dcl就別和別人爭辯效率的問題了

vectra · 发表于 2014-10-17 12:31:53

问题就出在1.25i_1 1.25i_3这两个变量名称上，LISP会把这两个变量都认作1，所以请去掉点号

124803430 · 发表于 2014-10-17 13:57:33

vectra 发表于 2014-10-17 12:31
问题就出在1.25i_1 1.25i_3这两个变量名称上，LISP会把这两个变量都认作1，所以请去掉点号

真如你所说，真不知道cad是如何判别变量名称的~~
明显是两个不一样的名称

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

[已解答] CAD程序为啥乱赋值？？？

本帖子中包含更多资源

相关帖子

评分

评分

点评

浏览过的版块