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

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

本帖最后由 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 ) ;endif s1 /= nil (setq s1 nil))

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

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

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

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

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

这个不难实现

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

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

好用！谢谢。

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

下来用用看

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

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

相关帖子