明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3458|回复: 15

[提问] 关于标注自动分层

  [复制链接]
发表于 2016-7-19 14:10 | 显示全部楼层 |阅读模式
想弄个自动分层,就搞了个反应器,标注完成之后尺寸线自动分到标注层,可是,以下代码只能用于单个单个的标注,
然而连续标注、基线标注反应不了。谁给点意见?
  1. (or *vlrdimEnd*
  2.     (setq *cmdvlr* (vlr-command-reactor
  3.                      nil
  4.                      '(
  5.                        (:VLR-commandEnded . layercallback)
  6.                       )
  7.                    )
  8.     )
  9. )

  10. (or *vlrdimCancell*
  11.     (setq *cmdvlr* (vlr-command-reactor
  12.                      nil
  13.                      '(
  14.                        (:vlr-commandCancelled . layercallback)
  15.                       )
  16.                    )
  17.     )
  18. )

  19. (defun layercallback (x1 x2 / info)
  20.   (if (wcmatch (car x2) "DIM*")
  21.     (PROGN
  22.       (setq info (entget (entlast)))
  23.       (entmod (subst (cons 8 "02标注") (assoc 8 info) info))
  24.     )
  25.   )
  26. )
  27. (princ)


"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2023-8-28 23:58 | 显示全部楼层
shcvip 发表于 2023-8-25 22:14
(entlast)只有一个对象, 那用什么命令,可以选择多个对象呢?

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

可以用上面这个。
但是我用以下命令,就不行。
发表于 2023-8-25 22:14 | 显示全部楼层
自贡黄明儒 发表于 2016-7-20 11:41
把(entlast),改为(entlast)之后所有对象。因为(entlast)只有一个对象,连续标注可能产生几个对象。

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

点评

ssget "x"  发表于 2023-8-28 07:37
发表于 2020-8-29 23:57 | 显示全部楼层
占个楼先,,代码还是有点消化不了找到了读书的感觉
发表于 2016-7-19 14:27 | 显示全部楼层
本帖最后由 自贡黄明儒 于 2016-7-19 14:32 编辑

是不是G版写过一个自动归层的程序?
 楼主| 发表于 2016-7-20 08:36 | 显示全部楼层
自贡黄明儒 发表于 2016-7-19 14:27
是不是G版写过一个自动归层的程序?

他的那个太复杂了,功能太强大
我想简单一点,跟我这个差不多思路的
发表于 2016-7-20 09:04 | 显示全部楼层
全标注完成后,把所有标注移到标注层。
把该程序放在自启动里,cad图纸打开时即执行。

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

这个已经有了,我就要立即就实现的,现在除了连续标注、基线标注,其他都能实现
发表于 2016-7-20 11:22 | 显示全部楼层
升级2017,有系统变量DIMLAYER直接设定
发表于 2016-7-20 11:41 | 显示全部楼层
把(entlast),改为(entlast)之后所有对象。因为(entlast)只有一个对象,连续标注可能产生几个对象。
发表于 2016-7-20 17:42 | 显示全部楼层
http://lee-mac.com/layerdirector.html
发表于 2018-8-23 14:32 | 显示全部楼层
大神牛牛牛牛牛!
发表于 2018-8-23 14:33 | 显示全部楼层
大神牛牛牛牛牛!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 04:55 , Processed in 0.195316 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表