CAD程序为啥乱赋值？？？
两个不相干的变量值，分别在两个不同的子程序里我用一个计算之后，另一个居然会被赋值
神马原因？？？？(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 static/image/common/back.gif
程序看不动了，但凭感觉，变量串值就是局部变量和全局变量问题，你的函数全部没有声明局部变量，即所有变量 ...
写成全局变量是因为想把对话框内的数据保留下来，因为如果写成局部变量，计算之后值就成nil了
第二次开对话框就没有我上次计算的数据 要保留上一次的数据可以通过读写TXT来实现麽
顺便吐槽下，就一个计算电流，你还整个对话框出来，那还不如直接excel 呢，简单还能保留上次计算数据 伪书虫86 发表于 2014-10-17 11:22 static/image/common/back.gif
要保留上一次的数据可以通过读写TXT来实现麽
顺便吐槽下，就一个计算电流，你还整个对话框出来，那还不如直 ...
txt操作太复杂了
excel表我也写过，不过那样还得开个程序。追求极致效率 124803430 发表于 2014-10-17 11:25 static/image/common/back.gif
txt操作太复杂了
excel表我也写过，不过那样还得开个程序。追求极致效率
弱弱的问下，txt比DCL复杂麽？我觉得程序要是自己用的，所有的输入还是放在CAD命令行去输入，效率才能极致，毕竟光自己用，不需要考虑太多的可能性麽，你说是不是呢 124803430 发表于 2014-10-17 11:10 static/image/common/back.gif
写成全局变量是因为想把对话框内的数据保留下来，因为如果写成局部变量，计算之后值就成nil了
第二次开对 ...
再查查对话框文件的键值。 變量名不要用.
題外,用dcl就別和別人爭辯效率的問題了 问题就出在1.25i_1 1.25i_3这两个变量名称上，LISP会把这两个变量都认作1，所以请去掉点号 vectra 发表于 2014-10-17 12:31 static/image/common/back.gif
问题就出在1.25i_1 1.25i_3这两个变量名称上，LISP会把这两个变量都认作1，所以请去掉点号
真如你所说，真不知道cad是如何判别变量名称的~~
明显是两个不一样的名称
页:
[1]
2