怎么实现标注随图元的层

huisguiji

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

飞雪神光

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

就像这样

1. (defun c:tt(/ get-dxf pt1 pt2 set-dxf ss)
   
2.         (defun set-dxf (ename code val / ent)
   
3.                 (setq ent (entget ename))
   
4.                 (if (and (listp code) (listp val))
   
5.                         (mapcar '(lambda (x y) (set-dxf ename x y)) code val)
   
6.                         (progn
   
7.                                 (if (assoc code ent)
   
8.                                         (setq ent (subst (cons code val) (assoc code ent) ent))
   
9.                                         (setq ent (append ent (list (cons code val))))
   
10.                                 )
    
11.                                 (entmod ent)
    
12.                                 (entupd ename)
    
13.                         )
    
14.                 )
    
15.                 ename
    
16.         )
    
17.         (defun get-dxf(en n)
    
18.                 (if (not (listp en)) (setq en (entget en)))
    
19.                 (cdr (assoc n en))
    
20.         )
    
21.         (setvar "cmdecho" 0)
    
22.         (setq pt1 (getpoint "\n第一点:"))
    
23.         (setq ss (ssget "c" pt1 pt1))
    
24.         (setq pt2 (getpoint pt1 "\n第二点:"))
    
25.         (vl-cmdf "_dimaligned" "non" pt1 "non" pt2 pause)
    
26.         (if ss
    
27.                 (set-dxf (entlast) 8 (get-dxf (ssname ss 0) 8))       
    
28.         )
    
29.         (princ)
    
30. )

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

炫色ペ水域の

怎么没看到程序

飞雪神光

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

huisguiji

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

眀经有这种插件吗

huisguiji

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

我也想要这个程序

huisguiji

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

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

飞雪神光

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