半听可乐 发表于 2012-9-25 13:45:11

谁能帮我写改编号尾数的程序？

希望这样的效果，编号修改前：          修改后：
                                     ABC-1             ABC-2
                                     BCD-1            BCD-2   
                                     ABC-01          ABC-02
                                     BCD-01         BCD-02   

选择为框选，使用步骤：输入命令------输入尾数（上例中输入2）----框选需要变尾数的编号----ok

Andyhon 发表于 2012-9-25 13:45:12

半听可乐 发表于 2012-9-25 14:49 static/image/common/back.gif
还是选不上，程序没反应，测试图在附件里，麻烦调试一下！

(setq ss (ssget "X" '((0 . "TEXT") (1 . "*-#")))
===>
(setq ss (ssget '((0 . "TEXT") (1 . "*#")))

Andyhon 发表于 2012-9-25 14:31:58

Ref:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95041#lastpost
7#

半听可乐 发表于 2012-9-25 14:35:16

Andyhon 发表于 2012-9-25 14:31 static/image/common/back.gif
Ref:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95041#lastpost
7#

试了，怎么不能选择编号？

Andyhon 发表于 2012-9-25 14:43:45

是让您自行参考后修订

这样试吧!
(setq ss (ssget "X" '((0 . "TEXT") (1 . "*-#")))
===>
(setq ss (ssget '((0 . "TEXT") (1 . "*-#*")))

若不成时请上图(*.Dwg)

半听可乐 发表于 2012-9-25 14:49:04

Andyhon 发表于 2012-9-25 14:43 static/image/common/back.gif
是让您自行参考后修订

这样试吧!


还是选不上，程序没反应，测试图在附件里，麻烦调试一下！

cable2004 发表于 2012-9-25 14:56:15

本帖最后由 cable2004 于 2012-9-25 15:00 编辑

输入2BCD-11
怎么改
是 BCD-12
还是 BCD-02
还是 BCD-2

半听可乐 发表于 2012-9-25 14:58:25

cable2004 发表于 2012-9-25 14:56 static/image/common/back.gif
输入BCD-11怎么改
是 BCD-12
还是 BCD-02


目前只需要改尾数，最后一位，BCD-11如果输入2，则变成BCD-12

cable2004 发表于 2012-9-25 15:16:18

本帖最后由 cable2004 于 2012-9-25 15:17 编辑

(defun c:tt( / e i s ss str sub)       
        (setq i 0 sub 0)
      (setq s (getstring "需要改成的数字 "))
        (repeat (sslength
                (setq ss (ssget)))
                (setqe (entget(ssname ss i)))
                (setq str (Vlax-Get (Vlax-Ename->Vla-Object (ssname ss i)) 'TextString ))
                (setq str (substr str 1 (- (strlen str ) 1)) )
                (entmod (subst (cons 1(strcat str s)) (assoc 1 e) e))
                (setq i (+ 1 i))
          )       
)

zyhandw 发表于 2012-9-25 15:16:46

不是让你拿来就用的，要修改为适合自己的！
页: [1] 2 3
查看完整版本: 谁能帮我写改编号尾数的程序？