fyq304 发表于 2008-10-25 20:10:00

[求助]加减乘除程序

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

hmxmylove 发表于 2008-10-25 23:33:00

<p>直接在要求得到计算结果的地方输入'cal回车，再输入计算表达式就可以求出结果</p><p>也可以使用lisp语言，看一下lisp语言的计算部分就可以解决了。</p><p></p>

fyq304 发表于 2008-10-26 13:23:00

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

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

fyq304 发表于 2008-10-26 18:07:00

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

dianbotang 发表于 2008-10-27 04:22:00

<p>不知楼主用来作何用途？</p><p>cad2006有自带的计算器，开始——程序——附件，里面也有计算器。</p>

fyq304 发表于 2008-10-27 23:49:00

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

dianbotang 发表于 2008-10-28 22:57:00

<p>cad2006自带的计算器比一般的计算器有所增强，应该能满足你的要求。你也可以更具体的描述一下你的问题，贴图或上传文件。</p><p>另外提供一个打开系统计算器的小程序，将以下程序输入命令行，或写入安装目录下的acad.lsp文件中，以后输入“ca”就可以打开了。<br/>(defun c:ca() (command "start" "calc.exe"))</p>

k1nger 发表于 2022-8-27 17:28:14

(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)))
)
页: [1]
查看完整版本: [求助]加减乘除程序