[LISP函数]：cad数据计算程序，很酷的

tomtom · 发表于 2002-5-13 05:51:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我们在设计中，常常会遇到图纸中的数据计算，例如，材料表的累加，材料重量的计算，标高的调整计算等，采用计算器计算后，还得将计算结果通过text命令写入cad图纸中，并且常因数据输入错误使得计算结果不正确，非常麻烦；要改变这种现象，我们可以利用cad内部数据库进行数据计算，例如，计算很多数据的和，就可以使用窗口选取所用数据，让它自动进行计算，并把结果写在指定的位置上，根据这种想法，我编制了途中计算的加、减、乘、除等计算程、材料表统计程序、数据寻找程序、郑体标高更改程序等，这些程序十分好用，可大大减少绘图工作量，提高工作效率，下面是一个累加程序，你可以试一试是否好用，如有什么问题请予我联系。

[FONT=courier new]
;;累加程序编写fsk 河北
;;write by fsk 1985.10
(DEFUN C:jia1()
(setq jd (getint "input 精度<0>:"))
(if (= jd nil) (setq jd 0))
(princ "\nselect object:")
(setq s (ssget))
(setq n (sslength s))
(setq k 0 )(setq mm 0.0)
(while (< k n)
(setq name (ssname s k))
(setq a (entget name))
(setq t (assoc '0 a))
(setq t (cdr t))
(if (= t "TEXT") (PROGN
(setq tx (assoc '1 a))
(setq tx (cdr tx))
(setq tx (atof tx))
(setq mm (+ tx mm))
))
(setq k (+ k 1))
)
(setq mm (rtos mm 2 jd))
(setq po (getpoint "input point----:"))
(command "text" po "" "" mm)
)
:2 :2 :2[/FONT]

wuxian123 · 发表于 2002-5-14 10:25:37

这个程序累加的是那个数据量？

tomtom · 发表于 2002-5-14 20:21:22

cad图中用窗口所选的数据

tomtom · 发表于 2002-5-19 23:27:57

不知道这个程序使用怎样,好用吗?

liguojie · 发表于 2002-5-19 23:56:27

可以试试asde里面的字串计算功能，四则运算，甚至可以选择各种型钢字符串（如L100X6,[16,-20X200X500,H500X300X6X12)自动转化成重量。

9071 · 发表于 2002-9-12 09:43:31

好用, 请tomtom把其它程序贴上来,

xzg_hello · 发表于 2002-9-12 20:35:46

我还是比较喜欢用excel算完后往图里面贴，只不过多了更改字体和整体缩放步骤

xzg_hello · 发表于 2002-10-23 23:48:09

今天做截图总算用上了：）

chashiyang · 发表于 2002-10-24 19:08:43

我是初学者不知道该怎样用
请大家帮帮忙了~~~

xzg_hello · 发表于 2002-10-24 19:57:39

1.将上面的代码存到jia1.lsp
2.在acad中输入ap
3.加载jia1.lsp
4.输入jia1
5.按提示操作好了

xzg_hello · 发表于 2002-11-1 21:31:36

做个按钮，就能调出来使，统计工程量时不用费尽的看数字和按计算器来回倒腾了嘛

nh123 · 发表于 2002-11-2 14:45:47

使用时出现：“; 用户警告: 给保护符号赋值: T <- (0 . "LINE")”
这是什么问题？

nh123 · 发表于 2002-11-2 14:46:40

统计不了，没有结果！

xzg_hello · 发表于 2002-11-3 17:24:17

按我前面说的去加载运行这个程序，注意要选择text编写的数字字符串

tomtom · 发表于 2002-11-4 12:01:56

承蒙大家厚爱，下面给大家几个实用程序
减法计算jian
乘法计算chen
除法计算chu

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

[LISP函数]：cad数据计算程序，很酷的

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

相关帖子

好程序大家用