■免费版■只需简单拷贝，所拷贝的数字会自动增加■源程序■

yansf

好用，这样输入桩号就好用多了，太感谢了。只是为什么有时又会自己跳出，又要从新加载。

龙旋风

烧茄子兄 晓东工具箱下面有这个工具吗？我怎么不知道呢？可不可以做一个演示呢？或者是什么命令呀？
谢谢楼主提供的软件，在同类的软件中你算是做得很强的了，但是如果可以增加对块内文字的支持就好了！ 谢谢

zhuquanmao

最初由 龙旋风 发布
[B]madman老兄几乎都没来了，要不怎么都没有回帖或者是解答大家的问题。如果你有时间是否可以改改程序让它支持块内数字！ [/B]

我也只知道些皮毛而已 呵呵 复杂点的我也挠头 这个帖子沉了好长时间了 呵呵 如果大家需要 我可以把程序代码公布 供大家参考 完善这个命令 大家的力量毕竟比我一个人的大

jeepsheep

我想问问能否实现块里数字的递增？
我都是把轴号和圆定义成块。

zhuquanmao

好久没来了 还有人关注 特将源程序贴出
[PHP] ;;; 拷贝数字 数字自动增加程序
(defun c:numadd (/ origent origentdata origtext numtext prefixlen prefix num
                   cmd addn pt1 pt2 newdata txt
                )
  (setq copyincolderrorfunc *error*)
  (setq *error* copyincerrorfunc)
  (command "_.undo" "_Group")
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (while (= origent nil)
    (setq origent (entsel "\n选择文本: "))
  )
  (setq txt (car origent))
  (setq origentdata (cdr (entget (car origent))))
  (if (/= (cdr (assoc 0 origentdata)) "TEXT")
    (princ "未选择文本.")
    (progn
      (setq origtext (cdr (assoc 1 origentdata)))
      (setq numtext (getsuffixdigits origtext))
      (if (= numtext "")
        (princ "此文本不是以数字结尾")
        (progn
          (setq prefixlen (- (strlen origtext) (strlen numtext)))
          (if (= prefixlen 0)
            (setq prefix "")
            (setq prefix (substr origtext 1 prefixlen))
          )
          (setq num (atoi numtext))
          (setq addn (getint "\n请输入增值(默认为1): "))
          (if (= addn nil)
            (setq addn 1)
          )
          (setq pt1 (getpoint "\n基准点:"))
          (setq pt2 0)
          (while (progn
                   (initget 128)
                   (setq pt2 (getpoint pt1 "\n拷贝至 (点回车键退出): "))
                 )
            (if (/= pt2 nil)
              (progn
                (setq num (+ num addn))
                (setq num (itoa num))
                (setq newdata (strcat prefix num))
                (command "copy" txt "" pt1 pt2)
                (command "change" (entlast) "" "" "" "" "" "" newdata)
                (setq num (atoi num))
              )
            )
          )
        )
      )
    )
  )
  (setq *error* copyincolderrorfunc)
  (princ)
  (setvar "cmdecho" cmd)
  (command "_.undo" "_end")
)
(defun getsuffixdigits (origstr / digits prefixlen char)
  (setq digits "")
  (setq prefixlen (strlen origstr))
  (while (> prefixlen 0)
    (setq char (substr origstr prefixlen 1))
    (if (wcmatch char "#")
      (progn
        (setq digits (strcat char digits))
        (setq prefixlen (1- prefixlen))
      )
      (setq prefixlen 0)
    )
  )
  (setq digits digits)
)
(setq copyincolderrorfunc nil)
(defun copyincerrorfunc (msg)
  (if (= msg "function cancelled")
    (princ " ")
    (if (= msg "quit / exit abort")
      (princ " ")
      (princ (strcat "\nerror: " msg))
    )
  )
  (setq *error* copyincolderrorfunc)
  (princ)
)

[/PHP]

yy225cn

能不能修改一下在选择源文本的时候可以把源文本加亮显示

shuaier

好东西损失了一个币也无妨

hnzzhgy

good

1000

不错，感谢楼主

wuxian123

0001增加1后能不能变成0002啊？

sj71710

好东西，经常会用到，原来一个一个改太烦，现在方便多啦！
斑竹madman 2楼与8楼有何区别？
先谢

wuxian123

最初由 LMCC 发布
[B]这种更高 [/B]

文字加圈，晓东工具里就有的！

lingfengm

挺好用的
也挺实用的

clty

能不能改为支持组啊！
我们经常把文字编成一个组，只增加组选内的一个文字的数字？？

jbqiu

我在2005怎么不行啊？还是我不会用~~~~~~~~~
命令: NUMADD

选择文本:
选择文本:
请输入增值:

基准点:
拷贝至 (点回车键退出): 未知命令“2”。按 F1 查看帮助。

拷贝至 (点回车键退出): 未知命令“3”。按 F1 查看帮助。

拷贝至 (点回车键退出): 未知命令“4”。按 F1 查看帮助。