[求助]加减乘除程序

fyq304

求一个能在CAD中进行加减乘除的程序，那位大侠搞一个，小弟不胜感激！

hmxmylove

直接在要求得到计算结果的地方输入'cal回车，再输入计算表达式就可以求出结果

也可以使用lisp语言，看一下lisp语言的计算部分就可以解决了。

fyq304

hmxmylove发表于2008-10-25 23:33:00直接在要求得到计算结果的地方输入'cal回车，再输入计算表达式就可以求出结果也可以使用lisp语言，看一下lisp语言的计算部分就可以解决了。

我对编程一窍不通，望楼上的提供一个，谢谢！

fyq304

没有高手来帮忙一下啊，这个重要呀，能计算就省事多了

dianbotang

不知楼主用来作何用途？

cad2006有自带的计算器，开始——程序——附件，里面也有计算器。

fyq304

我要的是在模型空间中将软件算出来的数据点取进行运算！

dianbotang

cad2006自带的计算器比一般的计算器有所增强，应该能满足你的要求。你也可以更具体的描述一下你的问题，贴图或上传文件。

另外提供一个打开系统计算器的小程序，将以下程序输入命令行，或写入安装目录下的acad.lsp文件中，以后输入“ca”就可以打开了。
(defun c:ca() (command "start" "calc.exe"))

k1nger

(defun C:tt()
(setq obj (entget (car(entsel))))
(setq aa (cdr (assoc 1 obj)))
(prin1)       
(setq jg (command "cal" aa))       
(alert (strcat "sum=" (rtos jg)))
)