2013-08-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：哪位兄弟有CAD数字递增LSP插件 给我一个 十分感谢！！！

米克

米克(2425560622)于2013-08-21 11-59-21：
哪位兄弟有CAD数字递增LSP插件 给我一个 十分感谢！！！

炫翔

炫翔(2363673534)于2013-08-21 13-44-45：
这个可以自己写

炫翔

炫翔(2363673534)于2013-08-21 13-45-09：
提取数字文字 进行加一 再替换会插入

米克

米克(2425560622)于2013-08-21 13-45-19：
翔兄有吗？

炫翔

炫翔(2363673534)于2013-08-21 13-45-49：
不会写？

炫翔

炫翔(2363673534)于2013-08-21 13-49-43：
我帮 你写下吧

炫翔

炫翔(2363673534)于2013-08-21 13-49-54：
不过要自己去测试

米克

米克(2425560622)于2013-08-21 13-50-41：
[qqimg]{5D220793-B943-A666-628B-C4473F9D35C7}.jpg[/qqimg]
我想要变成1F-PL-01  1F-PL-02......这样下去

炫翔

炫翔(2363673534)于2013-08-21 13-52-30：
(defun c:xx ( / i po sl txt)
  (setq i 1)
  (while (and(setq sl (car (entsel"文本:")))
             (setq po(getpoint"插入点:"))
         )
    (setq txt(1+ (car (assoc 1 (entget sl)))i))
    (command "_.TEXT" "J" "mc" po 2.5 0 (RTOS txt 2 2))
    (setq i(1+ i))
  )
)

炫翔

炫翔(2363673534)于2013-08-21 13-52-51：
时间问题 这个程序你作为参考

炫翔

炫翔(2363673534)于2013-08-21 13-53-03：
或者去论坛提问

炫翔

炫翔(2363673534)于2013-08-21 13-53-17：
晚些我来回答

炫翔

炫翔(2363673534)于2013-08-21 13-53-30：
注意;在编程申请的板块 发帖

炫翔

炫翔(2363673534)于2013-08-21 13-54-19：
(defun c:xx ( / i po sl txt)
  (setq i 1)
  (while (and(setq sl (car (entsel"文本:")))
             (setq po(getpoint"插入点:"))
         )
    (setq txt(+ (car (assoc 1 (entget sl)))i))
    (command "_.TEXT" "J" "mc" po 2.5 0 (RTOS txt 2 2))
    (setq i(1+ i))
  )
)

炫翔

炫翔(2363673534)于2013-08-21 16-47-59：
[qqimg]{5BEF66FD-5EC8-5B77-80B6-F1B5DA8EA543}.jpg[/qqimg]