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

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

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

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

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

(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))))
(putdxf  1 (strcat "<"(itoa(+ i 1)) ">"(rtos(dxf 42 s1)2 1)) s1)
      )
  )
(princ)
)

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

那位大佬帮忙搞搞谢谢

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

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

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

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

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

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

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

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

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

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

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

这个办法不错加括号

账号		自动登录	找回密码
密码			注册

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

最佳答案