如何使用数字标记点

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

试试这个。。我一直在用它们

copy

;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: "))
         (setq  p1 (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)