[求助]：编程申请

姚菲菲

我希望拥有类似的工具，我下载的晓工具和ET工具里怎么都没有呢？我还希望可以把选定的文字统一乘上一个系数，因为我要算米重。每一张图纸都要用到！请大侠们帮忙！
*-*5

lsjjm

你是要求文字数字乘上一个倍数的结果呢, 还是怎的? 方到何处?

姚菲菲

可以设置在当前选择的文字上直接生成结果覆盖文字数字，另一个选项则另外生成一个带基点可插入的文字结果！拜托！（生成的结果可以选择保留的小数点位数，四舍五入）

lsjjm

(defun c:test ():
  (vl-load-com)
  (prompt "\nSelect Numberical Text: ")
  (setq ss (ssget '((0 . "TEXT"))))
  (setq fa (getreal "\nInput Factor: "))
  (setq n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (setq vlu (* fa (atof (vla-get-textstring obj))))
    (vla-put-textstring obj vlu)
    (setq n (1+ n))
  )
)

coolzhb

最初由 姚菲菲 发布
[B]可以设置在当前选择的文字上直接生成结果覆盖文字数字，另一个选项则另外生成一个带基点可插入的文字结果！拜托！（生成的结果可以选择保留的小数点位数，四舍五入） [/B]

向你推荐我的文字修改大师，你的要求都可以达到！
http://www.xdcad.net/forum/showthread.php?threadid=76108

姚菲菲

大侠，我不知道怎么导入那些函数，能不能告诉我呢？不好意思拜托了！

HHSoft

最初由 姚菲菲 发布
[B]大侠，我不知道怎么导入那些函数，能不能告诉我呢？不好意思拜托了！ [/B]

看看下面的Flash教学就明白了。（做得不好，见笑）

姚菲菲

非常感谢斑竹，你让我明白了根本就不明白的东西，谢谢！
这个很好用的，但是乘出来得数如果0.00858（小于1）它只会显示.00858，前面少没有0，这样我还是不能用。如果能设置生成
（1）带插入点（即基点也可选择）生成新的文字数字和（2）默认覆盖原有数字两种选项就好了！而且后面小数位那么多，如果有个选项可以选择保留的小数位数，不甚感激。

aeo

如果是临时用一下，直接把存成的lsp文件往cad画面里一拽就可以了.

小数那么多
把
(setq vlu (* fa (atof (vla-get-textstring obj))))
改为
(setq vlu (rtos (* fa (atof (vla-get-textstring obj))) 2 3))

姚菲菲

谢谢楼上的斑竹