社区 › AutoCAD基础应用 › 怎么实现标注随图元的层

huisguiji 发表于 2023-10-31 20:50:29

怎么实现标注随图元的层

比如我图形里有图层1和2，它们的属性颜色都是不一样的，那么在我标注图层1时，标注就是图层1，标注图层2就是图层2

飞雪神光 发表于 2023-11-1 13:55:35

huisguiji 发表于 2023-11-1 11:24
眀经有这种插件吗

就像这样(defun c:tt(/ get-dxf pt1 pt2 set-dxf ss)
        (defun set-dxf (ename code val / ent)
                (setq ent (entget ename))
                (if (and (listp code) (listp val))
                        (mapcar '(lambda (x y) (set-dxf ename x y)) code val)
                        (progn
                                (if (assoc code ent)
                                        (setq ent (subst (cons code val) (assoc code ent) ent))
                                        (setq ent (append ent (list (cons code val))))
                                )
                                (entmod ent)
                                (entupd ename)
                        )
                )
                ename
        )
        (defun get-dxf(en n)
                (if (not (listp en)) (setq en (entget en)))
                (cdr (assoc n en))
        )
        (setvar "cmdecho" 0)
        (setq pt1 (getpoint "\n第一点:"))
        (setq ss (ssget "c" pt1 pt1))
        (setq pt2 (getpoint pt1 "\n第二点:"))
        (vl-cmdf "_dimaligned" "non" pt1 "non" pt2 pause)
        (if ss
                (set-dxf (entlast) 8 (get-dxf (ssname ss 0) 8))       
        )
        (princ)
)

炫色ペ水域の 发表于 2023-10-31 21:50:32

怎么没看到程序

飞雪神光 发表于 2023-11-1 07:56:10

在标注时识别基点处图元的图层

huisguiji 发表于 2023-11-1 11:24:37

飞雪神光 发表于 2023-11-1 07:56
在标注时识别基点处图元的图层

眀经有这种插件吗

huisguiji 发表于 2023-11-1 11:25:46

炫色ペ水域の 发表于 2023-10-31 21:50
怎么没看到程序

我也想要这个程序

huisguiji 发表于 2023-11-4 20:25:26

飞雪神光 发表于 2023-11-1 13:55
就像这样

非常感谢大佬，就是这个效果，但是还有一个问题，你这个是2 点标注，快速标注就用不了，有没有办法像一个开关一样，开了就什么标注命令标注出来的是随层，关了就按标注样式本来的样式

飞雪神光 发表于 2023-11-5 11:03:52

那这就需要反应器了 要复杂一些 或者每种标注命令都用代码去替换

查看完整版本: 怎么实现标注随图元的层