比如我图形里有图层1和2，它们的属性颜色都是不一样的，那么在我标注图层1时，标注就是图层1，标注图层2就是图层2
网友答:
就像这样
网友答:
怎么没看到程序网友答:
在标注时识别基点处图元的图层网友答:
眀经有这种插件吗网友答:
我也想要这个程序网友答:
非常感谢大佬，就是这个效果，但是还有一个问题，你这个是2 点标注，快速标注就用不了，有没有办法像一个开关一样，开了就什么标注命令标注出来的是随层，关了就按标注样式本来的样式网友答: 那这就需要反应器了 要复杂一些 或者每种标注命令都用代码去替换
网友答:
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-11-1 07:56
在标注时识别基点处图元的图层
眀经有这种插件吗网友答:
炫色ペ水域の 发表于 2023-10-31 21:50
怎么没看到程序
我也想要这个程序网友答:
飞雪神光 发表于 2023-11-1 13:55
就像这样
非常感谢大佬，就是这个效果，但是还有一个问题，你这个是2 点标注，快速标注就用不了，有没有办法像一个开关一样，开了就什么标注命令标注出来的是随层，关了就按标注样式本来的样式网友答: 那这就需要反应器了 要复杂一些 或者每种标注命令都用代码去替换