bbb120 发表于 2022-7-6 12:00:27

如何使用数字标记点

有四点，
我想给它们贴上201202203204的标签（起始编号可以由用户定义）
当我单击第一个点时，它的标签为201
当我单击第二个点时，它标记为202
当我单击第三个点时，它标记为203
当我点击第四个点时，它的标签是204
 
 
怎样怎样
请看附件。
 
谁能为我提供一个LISP文件来达到我的目的？

bbb120 发表于 2022-7-6 12:11:34

我想指出很多要点。所以我需要找到一个快速的方法来按顺序标记它们，我认为应该有一个聪明的人可以帮助我，我的母语不是英语，如果你不能理解我的表达，请与我联系

Tiger 发表于 2022-7-6 12:18:19

http://www.cadtutor.net/forum/showthread.php?t=37420
 
例如，请参阅上面的线程-如果您在这里搜索Automatic编号，您将得到一系列不同的解决方案。

Oliver 发表于 2022-7-6 12:23:28

试试这个。。我一直在用它们
;Lotno.lsp
;This is a program to insert incremented lot numbers
;using current text.
;Created by David Perry 8/15/93
;; Visit http://davescogo.virtualave.net/

       (defun lotn ( / p p1 p2 n1 scmde)
         (setq n1 (getint "Enter starting lot number: "))
         (setqp1 (getpoint "\nText location: "))
         (setq scmde (getvar "cmdecho"))
          (while p1
          (setvar "cmdecho" 0)
          (setq p2 p1)
    (if (= 0.0 (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
         (command "text"
            "J"
            "MC"
            (setq p p1)
            (setq p "")
            (setq p "")
            (setq p n1)
         )
         (command "text"
            "J"
            "MC"
            (setq p p1)
            (setq p "")
            (setq p n1)
         )
         );if
         (setq n1 (+ n1 1))
         (setq p1 (getpoint "\nText location: "))
         (if (= p1 p2) (setq p1 nil))
          )
          (setvar "cmdecho" scmde)
          (princ)
)
       (defun C:LOTNO ()
         (lotn)
)
(princ "Type LOTNO to begin.")
(princ)

要归功于这个代码。
 
奥利弗

bbb120 发表于 2022-7-6 12:32:30

好啊谢谢！谢谢你，因为我的母语不是英语，所以我不知道如何在这个论坛上用英语关键词准确地搜索我感兴趣的话题，所以我上传了一张图片，以便浏览我帖子的人能够准确地理解我的表达。

Lee Mac 发表于 2022-7-6 12:41:41

 
谢谢你的插拔

Tiger 发表于 2022-7-6 12:52:26

 
不管你搜索什么，你的Lisp程序都会出现

bbb120 发表于 2022-7-6 12:56:27

 
我无法更改数字文本的大小。你能改进你的代码吗？

Lee Mac 发表于 2022-7-6 13:02:02

这更适合您：
 
http://www.cadtutor.net/forum/showthread.php?t=35234
页: [1]
查看完整版本: 如何使用数字标记点