社区 › AutoLISP/Visual LISP 编程技术 › 提取文本数字并计算写入的程序

yangist 发表于 2015-2-8 11:21:38

sutai 发表于 2015-2-8 09:33 static/image/common/back.gif
是多了步操作，但若自己使用格式设为默认的话也就多个回车。
数据里带空格，你把默认模式中的空格改成逗 ...

您好:
有时同一个人写的钢板规格前后都能不一样,
不同的人写的差别更大了噢,
所以程序能不能通吃也很重要的...

vectra 发表于 2015-2-8 13:10:14

把有问题的情况 发下dwg文件上来方便大家测试。。

sutai 发表于 2015-2-8 14:13:33

yangist 发表于 2015-2-8 11:21 static/image/common/back.gif
您好:
有时同一个人写的钢板规格前后都能不一样,
不同的人写的差别更大了噢,


说明一下，我自己是用不到这东西的，我使用的图框明细表自带重量统计及总计，我只是提供个思路而已~

springwillow 发表于 2015-2-8 14:56:54

yangist 发表于 2015-2-8 07:49 static/image/common/back.gif
好的:程序不报错了 可是结果还是不一致
钢板 10 200*100
钢板 10 200x100


你这个算式都不一样，结果怎么会一样？

sutai 发表于 2015-2-8 20:55:00

重新编写了一下
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112994&page=1&extra=#pid668243

yangist 发表于 2015-2-9 07:35:08

sutai 发表于 2015-2-8 20:55 static/image/common/back.gif
重新编写了一下
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112994&page=1&extra=#pid668243

好的我去看看

s678z 发表于 2015-2-9 08:03:02

根据数量和单重算总重并写入明细表有没有办法

yangist 发表于 2015-2-9 13:38:06

s678z 发表于 2015-2-9 08:03 static/image/common/back.gif
根据数量和单重算总重并写入明细表有没有办法

可以
(defun C:qx()
(setvar "cmdecho" 0)
(setq n1(atof(cdr(assoc 1 (entget(car(entsel "\n选数字1: ")))))))
(setq n2(atof(cdr(assoc 1 (entget(car(entsel "\n选数字2: ")))))))
(setq s(rtos (* n1 n2) 2 2))
(princ)
(setq n3(entget(setq s1 (car(entsel "\n选数字3: ")))))
   (entmod (subst (cons 1 s) (assoc 1 n3) n3));
   (entupd s1)
   (print (strcat "乘积=" s))
   (princ)
)

s678z 发表于 2015-2-11 09:31:40

yangist 发表于 2015-2-9 13:38 static/image/common/back.gif
可以
(defun C:qx()
(setvar "cmdecho" 0)


明细表都是做成属性块的，这个程序在属性块内没法用，有兴趣再研究一下，在属性块内计算总重

vectra 发表于 2015-2-11 09:35:27

s678z 发表于 2015-2-11 09:31 static/image/common/back.gif
明细表都是做成属性块的，这个程序在属性块内没法用，有兴趣再研究一下，在属性块内计算总重

nentsel 代替entsel就可以用在属性块里了

查看完整版本: 提取文本数字并计算写入的程序