[编程申请]：选中的所有数字统一加上一个值

doglolo

我的想法是这样的，本来的标高是相对标高，现在要改为绝对标高，有几百个标高，一个一个改不是太傻瓜了啊，能不能选中所有标高后，都加上一个定值，比如100。
例如：图上有10个数字1   2   3   4   5   6   7   8   9   10
            全选，输入一个命令，再输入1.1，回车后变成2.1   3.1   4.1   5.1  6.1   7.1   8.1   9.1  11.1
            看明白了吗？

自由的鱼

这样的程序论坛太多了！你找找！

doglolo

好  我找找  别见怪  我刚学

自由的鱼

最初由 doglolo 发布
[B]好  我找找  别见怪  我刚学 [/B]

找不到我再帮你写一个，我记得好象有很多这样的程序，但忘了在哪个版了！

ljwy520

看看以前论坛里好像有

ynj

楼主若是做测绘的吧？难道测绘专业软件CASS就没有这个功能？

lsjjm

REFER TO：
[PHP]
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (setq str (vla-get-textstring obj))
    (vla-put-textstring obj (rtos (+ (atof str) 1.1) 2 1))
    (setq n (1+ n))
  )
)
[/PHP]

自由的鱼

CASS没有这样的小功能！