关于标注自动分层

菜卷鱼

想弄个自动分层，就搞了个反应器，标注完成之后尺寸线自动分到标注层，可是，以下代码只能用于单个单个的标注，
然而连续标注、基线标注反应不了。谁给点意见？

1. (or *vlrdimEnd*
   
2.     (setq *cmdvlr* (vlr-command-reactor
   
3.                      nil
   
4.                      '(
   
5.                        (:VLR-commandEnded . layercallback)
   
6.                       )
   
7.                    )
   
8.     )
   
9. )
   
10. 
    
11. (or *vlrdimCancell*
    
12.     (setq *cmdvlr* (vlr-command-reactor
    
13.                      nil
    
14.                      '(
    
15.                        (:vlr-commandCancelled . layercallback)
    
16.                       )
    
17.                    )
    
18.     )
    
19. )
    
20. 
    
21. (defun layercallback (x1 x2 / info)
    
22.   (if (wcmatch (car x2) "DIM*")
    
23.     (PROGN
    
24.       (setq info (entget (entlast)))
    
25.       (entmod (subst (cons 8 "02标注") (assoc 8 info) info))
    
26.     )
    
27.   )
    
28. )
    
29. (princ)
    

(or *vlrdimEnd*<br />     (setq *cmdvlr* (vlr-command-reactor<br />                      nil<br />                      '(<br />                        (:VLR-commandEnded . layercallback)<br />                       )<br />                    )<br />     )<br /> )<br /> <br /> (or *vlrdimCancell*<br />     (setq *cmdvlr* (vlr-command-reactor<br />                      nil<br />                      '(<br />                        (:vlr-commandCancelled . layercallback)<br />                       )<br />                    )<br />     )<br /> )<br /> <br /> (defun layercallback (x1 x2 / info)<br />   (if (wcmatch (car x2) "DIM*")<br />     (PROGN<br />       (setq info (entget (entlast)))<br />       (entmod (subst (cons 8 "02标注") (assoc 8 info) info))<br />     )<br />   )<br /> )<br /> (princ)<br />

shcvip

shcvip 发表于 2023-8-25 22:14
(entlast)只有一个对象, 那用什么命令，可以选择多个对象呢？

(setq QB_en1 (entlast))
(setq ss0(ssadd)) ;;创建一个空选择集
  (ssadd QB_en1 ss0)

可以用上面这个。
但是我用以下命令，就不行。

shcvip

自贡黄明儒 发表于 2016-7-20 11:41
把(entlast)，改为(entlast)之后所有对象。因为(entlast)只有一个对象，连续标注可能产生几个对象。

(entlast)只有一个对象, 那用什么命令，可以选择多个对象呢？

999999

占个楼先，，代码还是有点消化不了找到了读书的感觉

自贡黄明儒

是不是Ｇ版写过一个自动归层的程序？

菜卷鱼

自贡黄明儒 发表于 2016-7-19 14:27
是不是Ｇ版写过一个自动归层的程序？

他的那个太复杂了，功能太强大
我想简单一点，跟我这个差不多思路的

fl202

全标注完成后，把所有标注移到标注层。
把该程序放在自启动里，cad图纸打开时即执行。

菜卷鱼

fl202 发表于 2016-7-20 09:04
全标注完成后，把所有标注移到标注层。
把该程序放在自启动里，cad图纸打开时即执行。

这个已经有了，我就要立即就实现的，现在除了连续标注、基线标注，其他都能实现

kozmosovia

升级2017，有系统变量DIMLAYER直接设定

自贡黄明儒

把(entlast)，改为(entlast)之后所有对象。因为(entlast)只有一个对象，连续标注可能产生几个对象。

maiko

http://lee-mac.com/layerdirector.html

oistre

大神牛牛牛牛牛！

oistre

大神牛牛牛牛牛！