请帮我写写可输出计算过程的代码学习学习啊
本帖最后由 gdslqs 于 2011-7-17 14:28 编辑如题，我想编一个小小的计算工具，然后把计算过程以计算书的形式输出（最好是以word文档输入），计算过程的参数输入最好是dcl对话框，有计算书输出的按钮。
请高手们给我这样的一个类似的程序学习一下好吗？
我举了一个简单的例子在4楼，请达人们帮帮忙
如果不方便发在这里也可以发我邮箱7010415@qq.com，多谢先，并承诺不随意传播，不用于商业用途！
;算式输出到文件 明经 ZZXXQQ 2011.7.14
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq nm (if nm nm ""))
(if (setq nm (getfiled "输出文件名" nm "txt" 2)) (progn
(setq fp (open nm (if (findfile nm) "a" "w")))
(while (/= (setq str (getstring T "\n输入计算式 :")) "")
(command "_.CAL" (strcat "rtn=" str))
(princ (strcat "\n" str " = " rtn) fp)
)
(close fp)
))
(setvar "CMDECHO" 1)
(princ)
)
本帖最后由 gdslqs 于 2011-7-17 14:22 编辑
举个简单的例子请大家帮我写下代码，我主要学习一下计算输出的过程，
比如说:
输入矩形的两个边长x、y，计算面积A=xy
要输出的计算书格式为:
一、截面
一个矩形图形（固定，可不随参数变化）
二、矩形截面参数：
矩形的长边x=？？，矩形的短边y=？？，
三、计算结果：
矩形面积A=？？
注：？？为根据参数变化的部分
请各位版主大人及其他达人帮帮写一下，主要是输入word时的lisp，其实输出text也可以，就是text好像不能输出图形。小弟先在此谢谢你了！！！！！
附上我写的dcl对话框：
AAA:dialog{label="计算矩形面积";
:boxed_radio_row{
label="截面参数";
:edit_box{label="矩形宽x(mm)";key="x";edit_width=6;}
:edit_box{label="矩形高y(mm)";key="y";edit_width=6;}
}//end boxed_radio_row
:boxed_radio_row{
label="计算结果";
:edit_box{label="矩形面积";key="a";edit_width=6;}
}//end boxed_radio_row
:retirement_button{
label = "计算";
key = "js";
is_default = true;
}
:retirement_button{
label = "计算书";
key = "jss";
is_default = true;
}
ok_cancel;
} 感谢z版分享,学习了!
不错喔! gdslqs 发表于 2011-7-17 14:21 static/image/common/back.gif
举个简单的例子请大家帮我写下代码，我主要学习一下计算输出的过程，
比如说:
输入矩形的两个边长x、y，计 ...
EXCEL操作实例: http://www.atablex.com/htmls/vlxls-functions.htm chpmould 发表于 2011-7-17 18:14 static/image/common/back.gif
EXCEL操作实例: http://www.atablex.com/htmls/vlxls-functions.htm
还是谢谢你的热心，虽然不是我想要的！ 期待中！！！！
主要有两点：向word写入图形和写入文字 可视化的dcl对话框？
页:
[1]