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

快速演示，不是很多，但这是一个开始
 
(defun c:demo(/ _def obj)
(vl-load-com)
(defun _def (msg def)
    (setq def(cond ((getint (strcat msg
                               (if def (strcat " <" (itoa def) ">: ") ": ")
                           )))
                   (   def   ))))
(setq startNumber (_def "\nStart Nummber: " startNumber))   
(setq IncrementNumber (_def "\nIncrement Nummber: " IncrementNumber))   
(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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
页: [1]
查看完整版本: 增量数字