提取文本数字并计算写入的程序

yangist

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

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

vectra

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

sutai

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

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

springwillow

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

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

sutai

重新编写了一下
http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid668243

yangist

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

好的  我去看看

s678z

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

yangist

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

可以
(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

yangist 发表于 2015-2-9 13:38
可以
(defun C:qx()
  (setvar "cmdecho" 0)

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

vectra

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

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