[编程申请]：求自动编辑程序。

bluesky1000

要求如下：鼠标点击带前后缀的数字，前后缀不变，在点击第二个文字时，根据第一个所点击的数字，自动增加1。
例如：文字为A10,A10,A20,A20....
点击第一个A10时，不变，然后再点击第二个A10，此时出现DDEDIT文字时的对话框，文字反显，显示为A11；然后再点击第一个A20，显示为A12；接着为A13,A14,A15....

xyp1964

试试：
只适用于带前缀的情况！

xyp1964

程序示意：

lsjjm

试试这个，可用于前后缀：
[php]
(defun c:test (/ num0)
  (while (setq a (car (entsel "\nSelect Text :")))
    (setq nn "")
    (setq b (vlax-ename->vla-object a))
    (setq str (vla-get-textstring b) str0 str)
    (repeat (strlen str)
      (setq s (substr str 1 1))
      (if (or (= (ascii s) 46)(wcmatch s "#"))
        (setq nn (strcat nn s))
      )
      (setq str (substr str 2))
    )
    (if num0
      (vla-put-textstring b (vl-string-subst
                              (setq num0 (itoa (1+ (atoi num0)))) nn str0))
      (setq num0 nn)
    )
  )
)
[/php]

xxming

不错，能否用窗选，不用一个个选。谢谢

lsjjm

最初由 xxming 发布
[B]不错，能否用窗选，不用一个个选。谢谢 [/B]

1楼主的意思是点击后面的字串时，数字按前字串中数字加1，所以只能单选。如果你要框选，按什么规律修改？

xxming

我只要求加数字1，可以吗

lsjjm

最初由 xxming 发布
[B]我只要求加数字1，可以吗 [/B]

当然可以，不过你也不是新手了，能不能参照上面程序自己编一下
（稍作改动即可）？　这样你得收获会更大。其实，搜索论坛也可以找到。

bluesky1000

如果能够显示DDEDIT的编辑对话框，并反显其中的文字就更好了，因为有的时候会点错，需要修改一下。
感谢论坛上各位DX的帮助，再次感谢，从这个论坛上我得到了不少东西。