如何把数字放在分数上？

termal007 · 发表于 2022-7-6 06:24:58

你好

我有1356个点，我想在autocad中为每个点插入编号。

我该怎么做才简单？

ReMark · 发表于 2022-7-6 06:34:32

也许可以使用使用增量编号的自定义lisp例程？

这里是一个由论坛成员和lisp大师李麦克。。。

http://www.lee-mac.com/numinc.html

termal007 · 发表于 2022-7-6 06:38:35

谢谢，但我不想点击1530分！！非常耗时
你在做一个简单的点击？

ReMark · 发表于 2022-7-6 06:43:08

点击一下。。。。。1530分？这要求很高，你不觉得吗？

程序如何知道哪一点是第一点？哪一个应该是最后一个？它应该从顶部开始向底部编号，还是从左侧开始向右编号？订单是什么？序列是什么？

Tharwat · 发表于 2022-7-6 06:51:34

是的，我也这么认为。

Termal试试这个程序。

copy


(defun c:Pnum (/ i s h)
 (if (and (setq i 0
                s (ssget '((0 . "POINT")))
          )
          (setq h (getdist "\n Specify height of text :"))
     )
   ((lambda (x / n e)
      (while (setq n (ssname s (setq x (1+ x))))
        (setq e (entget n))
        (entmakex (list '(0 . "TEXT")
                        (assoc 10 e)
                        (cons 11 (cdr (assoc 10 e)))
                        (assoc 8 e)
                        (cons 7 (getvar 'TEXTSTYLE))
                        (cons 40 h)
                        (cons 1 (itoa (setq i (1+ i))))
                  )
        )
      )
    )
     -1
   )
 )
 (princ)
)