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试试这个程序。
 

(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)
)

termal007 发表于 2022-7-6 06:56:25

第一点和最后一点都不重要！！！
每个分数都是一个数字，所以不需要我想哪一个是第一个！！
 
请参阅附件。该附着是路线的全点坐标的一部分。
 
我怎么把简单的数字放在分数上？
指向图纸

ReMark 发表于 2022-7-6 07:00:29

冷静点伙计。因为你在最初的帖子中没有明确指出这一点，所以有人不得不问。那个人碰巧是我。下次要更具体地说明你的标准。

GP_ 发表于 2022-7-6 07:07:02

 
你试过塔尔瓦的密码吗？！？
就您的目的而言，效果很好，但在发布的dwg中，所有点都是重复的。

stevesfr 发表于 2022-7-6 07:12:52

 
@Tharwat lisp程序工作正常（几乎完美），但它在每个点上放置两个连续数字，而不是一个。
只是某个地方的一个小虫子。
史蒂夫

Tharwat 发表于 2022-7-6 07:15:46

 
如GP_所述，图纸包含重复点
 
页: [1] 2
查看完整版本: 如何把数字放在分数上？