tiduck 发表于 2021-12-25 16:01:44

能在标注前面自动加上序号吗？

本帖最后由 tiduck 于 2021-12-25 16:03 编辑


就是标注完了后，按顺序依次选择标注，然后自动按选择的顺序在标注前面加上序号（①②③）

xj6019 发表于 2021-12-25 16:01:45

(defun c:NM (/ dxf i putdxf s1 ss)
        (defun dxf (key ename) (cdr (assoc key (entget ename))))
        (defun putdxf (i val ent)
                (entmod (subst (cons i val) (assoc i (entget ent)) (entget ent)))
        )
(setq i -1)
(if (setq ss (ssget '((0 . "DIMENSION"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))                
                        (putdxf1   (strcat "<"(itoa(+ i 1)) ">"(rtos(dxf 42 s1)2 1)) s1)
          )
)
        (princ)
)

tiduck 发表于 2021-12-30 08:27:33

那位大佬帮忙搞搞   谢谢

叮咚 发表于 2021-12-30 11:41:06

加圈的话，到10以上就不好搞了

tiduck 发表于 2021-12-31 15:33:01

叮咚 发表于 2021-12-30 11:41
加圈的话，到10以上就不好搞了

怎么个搞法   可以换其他符号

叮咚 发表于 2021-12-31 16:00:33

你会修改组码或者vba的方法，，，直接用 aa<>改，其中aa就是前缀，改组码的1

d1742647821 发表于 2022-2-18 18:39:28

这个圆圈数字到10就没了吧

tiduck 发表于 2022-3-22 22:11:07

xj6019 发表于 2021-12-25 16:01
(defun c:NM (/ dxf i putdxf s1 ss)
        (defun dxf (key ename) (cdr (assoc key (entget ename))))
        (def ...

这个办法不错   加括号
页: [1]
查看完整版本: 能在标注前面自动加上序号吗？