baitan666 发表于 2025-2-17 16:49:55

真正的自动编号，不用单个点击

本帖最后由 baitan666 于 2025-2-18 16:58 编辑

最近遇到很多批量图形要编号，一个一个点击编号少数还行，多了就受不了，

所以编了这个自动编号，对付批量感觉也够了 快捷键：bh


修复了一些bug




baitan666 发表于 2025-2-18 16:19:15

cqf1980 发表于 2025-2-18 11:13
类似钢筋编号，写在线段正中间

(defun c:LI (/ *error* ss i count prefix startnum pt midpt ang)
    (vl-load-com)
   
    ;; 错误处理函数
    (defun *error* (msg)
      (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
            (princ (strcat "\n错误: " msg))
      )
      (princ)
    )
   
    ;; 选择线段对象
    (if (setq ss (ssget '((0 . "LINE"))))
      (progn
            ;; 获取用户输入
            (setq prefix (getstring T "\n输入前缀（直接回车跳过）: "))
            (setq startnum (getint "\n输入起始编号 <1>: "))
            (if (not startnum) (setq startnum 1))
            
            ;; 初始化计数器
            (setq count startnum)
            
            ;; 遍历选择集
            (setq i 0)
            (repeat (sslength ss)
                (setq ent (ssname ss i))
                (setq obj (vlax-ename->vla-object ent))
               
                ;; 获取线段中点
                (setq pt1 (vlax-get obj 'StartPoint))
                (setq pt2 (vlax-get obj 'EndPoint))
                (setq midpt (mapcar '(lambda (a b) (/ (+ a b) 2.0)) pt1 pt2))
               
                ;; 获取线段角度（用于文字旋转）
                (setq ang (angle pt1 pt2))
               
                ;; 创建文字
                (entmake
                  (list
                        '(0 . "TEXT")
                        (cons 10 midpt)          ; 插入点
                        (cons 40 2.5)            ; 文字高度
                        (cons 1 (strcat prefix (itoa count))) ; 文字内容
                        (cons 50 ang)            ; 旋转角度
                        (cons 72 1)            ; 水平对齐方式（中点）
                        (cons 11 midpt)          ; 对齐点
                        (cons 7 (getvar "TEXTSTYLE")) ; 当前文字样式
                  )
                )
               
                (setq count (1+ count))
                (setq i (1+ i))
            )
      )
      (princ "\n未选择任何线段！")
    )
    (princ)
)

蓝盾设计 发表于 2025-2-24 10:41:26

baitan666 发表于 2025-2-18 16:19
(defun cI (/ *error* ss i count prefix startnum pt midpt ang)
    (vl-load-com)
   


能加功能归类编号吗？相同的长度归类成同一编号

cqf1980 发表于 2025-2-18 11:13:28

baitan666 发表于 2025-2-17 17:25
是对每条线段编号还是怎么样

类似钢筋编号，写在线段正中间

cqf1980 发表于 2025-2-17 17:19:20

能对线段编号就好了

baitan666 发表于 2025-2-17 17:25:26

cqf1980 发表于 2025-2-17 17:19
能对线段编号就好了

是对每条线段编号还是怎么样

e2002 发表于 2025-2-17 17:29:09

关键是编号的规则。各行各业都有各种不同的需求，只能自己去写出这些规则。

2369198685 发表于 2025-2-17 19:22:16


能对线段编号就好了

shirker 发表于 2025-2-17 21:57:39

先收藏,但愿他日能用到

jkop 发表于 2025-2-17 23:08:30

这个用来计数太阳能案场很好用！收藏！

lxl217114 发表于 2025-2-18 08:50:21

谢谢分享，看起来不错

mpk023 发表于 2025-2-18 09:27:15

加密的那个版本有错误，用不了。
页: [1] 2 3
查看完整版本: 真正的自动编号，不用单个点击