定期的加薪

KBJockey · 发表于 2022-7-6 07:08:32

我的第二个类似问题。。我会再试一次…下面是我想通过单击现有属性来增加的示例，字母将保持在，只有最后1或2个数字将更改为1,2,3，依此类推…。如何使用lisp实现这一点…感谢您的帮助。
如。
ABCD-00至ABCD-01
EFGH-00至EFGH-02
IJKLM-00至IJKLM-03

Dadgad · 发表于 2022-7-6 07:15:39

欢迎来到论坛。

很抱歉，我无法帮助您，只是建议您的问题最好发布在lisp论坛，而不是Autocad General论坛。
通过这种方式，您可以合理地确定lisperati将看到它，并希望为您指明道路。
我希望有人能帮助你，耐心点。

也许版主可以将此移到lisp论坛？

ReMark · 发表于 2022-7-6 07:18:48

也许李在他的魔术袋里有一个自定义的套路，可能会奏效。然而，我还没有检查。

KBJockey · 发表于 2022-7-6 07:23:29

谢谢你的提示，dadgad，最好在lisp论坛上发布这个，我想我在正确的论坛上…是的，Lee Mac有这个叫做Numinc的评论。但是我担心我的情况不同&不适合他的lisp程序…

KBJockey · 发表于 2022-7-6 07:30:01

下面是一个示例，我想通过单击现有属性进行增量，字母将保持为is，只有最后1或2位将更改为1,2,3，依此类推…。有任何Lisp程序可以做到这一点…我希望有人可以帮助我：（提前感谢。。。
如。
ABCD-00至ABCD-01
EFGH-00至EFGH-02
IJKLM-00至IJKLM-03
等

Lee Mac · 发表于 2022-7-6 07:32:00

下面是一个增加数字后缀的函数：

copy


([color=BLUE]defun[/color] incsuff ( s [color=BLUE]/[/color] _incsuff )
   ([color=BLUE]defun[/color] _incsuff ( l )
       ([color=BLUE]cond[/color]
           (   ([color=BLUE]=[/color] 57 ([color=BLUE]car[/color] l))
               ([color=BLUE]if[/color] ([color=BLUE]<[/color] 47 ([color=BLUE]cadr[/color] l) 58)
                   ([color=BLUE]cons[/color] 48 (_incsuff ([color=BLUE]cdr[/color] l)))
                   ([color=BLUE]cons[/color] 48 ([color=BLUE]cons[/color] 49 ([color=BLUE]cdr[/color] l)))
               )
           )
           (   ([color=BLUE]<[/color] 47 ([color=BLUE]car[/color] l) 58)
               ([color=BLUE]cons[/color] ([color=BLUE]1+[/color] ([color=BLUE]car[/color] l)) ([color=BLUE]cdr[/color] l))
           )
           (   l
               ([color=BLUE]cons[/color] ([color=BLUE]car[/color] l) (_incsuff ([color=BLUE]cdr[/color] l)))
           )
       )
   )
   ([color=BLUE]vl-list->string[/color] ([color=BLUE]reverse[/color] (_incsuff ([color=BLUE]reverse[/color] ([color=BLUE]vl-string->list[/color] s)))))
)