[求助]：[求助]：如何为几千个数字加上同一值

chenleming · 发表于 2005-6-7 18:43:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一竖向设计，场地标高要统一提高0.2，如何为这几千个数字加上同一个值。一个个手改太麻烦了。

lxyljl · 发表于 2005-6-7 19:59:39

论坛上有很多这样的外挂的，自己搜索一下。比如textcal。

xwhh1314 · 发表于 2005-6-7 20:39:15

用FIND命令，类似MS Office的查找替换。

boxking · 发表于 2005-6-7 21:14:37

四楼的方法只能是替换成同一种文本，并不能进行加法计算！如果楼主用的是天正6的标高，可以在“动态标注”状态下，将所有标高全部选中（快速选择或者对象选择），向上移动“2”，然后在改回“静态标注”，把所有标高移回原位

xyp1964 · 发表于 2005-6-7 22:00:29

签名栏下“实用程序汇总”之TEST048－－高程增减。

wenchangyong888 · 发表于 2005-6-16 12:44:34

如果是块的话,可以吗??

chenleming · 发表于 2005-6-16 20:17:19

多谢指点.

lzws03 · 发表于 2005-6-19 16:06:48

好像　　文字修改大师　　CTT　　有这种功能。
作者 COOLZHB,
本论坛里有这个软件的下载

dabingrain · 发表于 2005-6-21 18:05:58

(defun c:add (/ fuhao num xiaoshu)
  (prompt "\n选定数字进行四则运算,加载命令add \n")
  (vl-load-com)
  (initget 1 "+ - * /")
  (setq fuhao(getreal "请选择运算符号[加(+)/减(-)/乘(*)/除(/)] "))
  (cond
((eq fuhao "+") "+")
((eq fuhao "-") "-")
((eq fuhao "*") "*")
((eq fuhao "/") "/")
(T fuhao)
)
(initget 1 )

   (setq num(getreal  "请输入计算的数据<数字>："))

  (initget 1 "0 1 2 3 4 5 6 7 8 9")

(setq  xiaoshu (getint  "请输入精度位数[整数(0)/1位(1)/2位(2)/3位(3)/4位(4)/5位(5)/6位(6)/7位(7)/8位(8)/9位(9)] "))

  (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))
(cond
((eq fuhao "+") (vla-put-textstring obj (rtos (+ (atof str) num) 2 xiaoshu)))
((eq fuhao "-") (vla-put-textstring obj (rtos (- (atof str) num) 2 xiaoshu)))
((eq fuhao "*") (vla-put-textstring obj (rtos (* (atof str) num) 2 xiaoshu)))
((eq fuhao "/") (vla-put-textstring obj (rtos (/ (atof str) num) 2 xiaoshu)))
(T fuhao)
)
  (setq n (1+ n))
  )
)

SHUNDocker · 发表于 2021-1-12 09:49:41

如果是属性块的话,可以吗??

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

[求助]：[求助]：如何为几千个数字加上同一值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子