MRHDF 发表于 2013-4-20 12:16:43

数字运算的格式刷！或者批量计算修改。

本帖最后由 MRHDF 于 2013-4-20 12:28 编辑

最近遇到个工作需要把一大堆建筑标高（数字字符串）修改下，让他们都减去某个数。    这个操作容易实现么？

操作： 先选择一个数字 例如“-11.9”， 再选其他数字（例如100），其他数字就会运算并修改（自动变为88.1即100-11.9） 。

操作方法跟下面这个类似就很棒了：
(defun C:22 (/ s1 ename ti% p11 p10 f en p11n p10n fn fn1) ;刷文字内容    (setq         s1      (ssget '((0 . "TEXT")))                  )    (setq ename(ssname s1 0))         (setq p11 nil)                              (setq te (entget ename))                (setq text (cdr (assoc 1 te)))            (setq ti% 1)    (if (/= s1 nil)   (progn       (while         (<=               ti%               (- (sslength s1) 1)      )      (setq ename(ssname s1 ti%))         (setq p11 nil)                              (setq e (entget ename))                        (setq e1 e)      (setq p11 (assoc 1 e))                (setq en e)      (setq p11n (cons 1 text))      (setq e (subst p11n p11 e))                        (setq e2 e)      (entmod e)      (setq ti%(+ 1 ti%))         );end while      ) ;endprogn s1/=nil    );endifs1 /= nil    (setq s1 nil))

ll_j 发表于 2013-4-20 12:47:49

到我的网络U盘下载一个ce.lsp试试。

vlisp2012 发表于 2013-4-20 14:03:06

多谢ll_j，你的网盘我下载了！

zyhandw 发表于 2013-4-20 17:23:46

这个不难实现

MRHDF 发表于 2013-4-20 17:37:59

本帖最后由 MRHDF 于 2013-4-20 17:40 编辑

好用 ！ 谢谢。

云中孤鹰 发表于 2013-4-20 19:14:52

下来用用看

lijunfa12345 发表于 2024-10-1 14:42:49

谢谢。。。。。

阿猪蛋 发表于 2024-10-22 09:10:38

下来用用看
页: [1]
查看完整版本: 数字运算的格式刷！或者批量计算修改。