增量数字

gS7 · 发表于 2022-7-6 07:55:02

大家好！！！

各位，请告诉我如何增加数字。。。。。。。。。。

1、起始编号（示例：2表示否）
2、增量编号（示例：2为增量）
3.当我点击文本时，它应该更改文本值4
虽然
6,8,10,12,14....................

ReMark · 发表于 2022-7-6 08:03:15

我想如果你看一下李Mac的增量编号套件lisp例程，你会学到很多关于递增数字的知识，它可以在这里找到。。。

http://lee-mac.com/lisp/NumIncV3-2.lsp

如果你还有其他问题，你可以随时回来问。李或其他Lisp程序大师将很乐意帮助你。

pBe · 发表于 2022-7-6 08:10:39

快速演示，不是很多，但这是一个开始

copy

(defun c:demo  (/ _def obj)
(vl-load-com)
[b][color=blue](defun _def (msg def)
    (setq def  (cond ((getint (strcat msg
                               (if def (strcat " <" (itoa def) ">: ") ": ")
                           )))
                   (   def   ))))
[/color][/b] (setq startNumber [color=blue][b](_def "\nStart Nummber: " startNumber)[/b][/color])     
(setq IncrementNumber [b][color=blue](_def "\nIncrement Nummber: " IncrementNumber)[/color][/b])    
(while (setq obj (ssget "_+.:S:E:L"
                                         '((0 . "*TEXT"))))
                       (vla-put-textstring
                             (vlax-ename->vla-object
                                   (ssname obj 0))
                             startNumber)
                       (setq startNumber
                                  (+ startNumber
                                     IncrementNumber))
                       )
     (princ)
     )

gS7 · 发表于 2022-7-6 08:16:39

太棒了pBe。。。。。我得到了我真正需要的。。。。。。。。

好的，告诉我如何将下一个增量值放入Users1或Users2。。。。。。。

在选择行中显示下一个文本值

（对不起，我的英语很差）

pBe · 发表于 2022-7-6 08:28:21

欢迎您gs7

为什么需要分配给用户的值1？我想这只是为了“展示”？这是否意味着每次你选择的时候，你都想看到下一个增量是什么？或者您是否属于“默认值”以在下次使用例程时显示最后一个数字？

顺便说一句：欢迎来到CADTutor

gS7 · 发表于 2022-7-6 08:32:34

是的，完全正确，pBe。。。。。我只想那样做

pBe · 发表于 2022-7-6 08:41:46

教你如何“烘焙”怎么样

LeeMac使用默认选项提示

代码已更新

gS7 · 发表于 2022-7-6 08:47:47

哇！它工作得很好。。。。。。

储罐u pBe。。。。。。。。

：D

pBe · 发表于 2022-7-6 08:49:26

欢迎使用gS7，希望您能从该代码中学到一些东西。

干杯

nukecad · 发表于 2022-7-6 08:58:06

对于任何正在使用LT但无法使用lisp的人，请尝试以下操作-

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
在用户定义的菜单按钮上放置以下字符串。

*^C^C_文本；\$M=$（+，$（getvar，USERI1），1）；setvar；美国ERI1$M=$（+，$（getvar，USERI1），1）；

这会在每次单击鼠标时，在图形上放置一个值递增的新文本。

您还可以使用SETVAR将USERI1更改为低于任何初始值的1。

非常感谢ZOOMHARIS出席AUGI论坛。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

这一个增加了已经在图纸上的文本

*^C^C_。改变$M=$（getvar，USERI1）；_。Setvar；用户I1$（+，1，$（getvar，USERI1））

不过这次将USERI1设置为您想要开始的值。

谢谢迈克。AUGI董事PERRY
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[编程交流] 增量数字

发表回复

精选推荐