设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 201|回复: 5

[工具] dwg与pdf的比对,即搜索不可打印实体

[复制链接]

已领礼包: 186个

财富等级: 日进斗金

发表于 2020-8-25 11:22:27 | 显示全部楼层 |阅读模式
  • 插件名称 : 搜索不可打印实体
  • 作  者 : dyjwyqz5221
  • 运行环境 :XDRX API 
  • 发布时间 :2020-08-25
  • 命令名称 :yqz-notplot
  • 插件介绍 :搜索dwg中不可打印实体,即转换为pdf后于dwg的不同
  • 备  注 : (点击图片可以放大)
    重复返回
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

[mw_shl_code=actionscript3,true](defun c:yqz-notplot(/ db lyrtbl lyrs ss1 lst1 lst lst-lyr ss yqz::Layer)
        (defun yqz::Layer(lyrs / lst1 lst2)
                (mapcar
                        '(lambda(x)
                                (if (xdrx-getpropertyvalue (cadr x) "isplottable")
                                        (setq lst2 (cons (cadr x) lst2))
                                        (setq lst1 (cons (car x) lst1))
                                );;;if
                        )
                        lyrs
                );;;mapcar
                (list lst1 lst2)
        );;;setq
        (xdrx-begin)
        (setq db (xdrx-database-select)
                lyrtbl (xdrx-getpropertyvalue db "layertable")
                lyrs (xdrx-getpropertyvalue lyrtbl "getat" t)
        );;;setq
        ;;;存在匿名图层时
        (if (setq ss1 (ssget "X" '((8 . "
  • *"))))
                    (setq lst1 (apply 'append (xd::list:removedup (xdrx-entity-getproperty ss1 "layer")))
                            lyrs (append lst1 lyrs)
                    );;;setq
            );;;setq
            (setq lst (yqz::Layer lyrs))
            (if (not #lst)
                    (progn
                            (if (setq lst-lyr (xd::list:removedup (car lst)));;;有不可打印图层时
                                    (if (setq ss (ssget "X" (list '(0 . "~point")(cons 8 (xd::List->String lst-lyr ",")))));;;且有实体非点时。
                                            (progn
                                                    (mapcar
                                                            '(lambda(x)
                                                                    (xdrx-setpropertyvalue x "off" t)
                                                            );;;lambda
                                                            (setq #lst (cadr lst));;;可打印图层
                                                    );;mapcar
                                                    (xdrx-document-zoomentities ss)
                                                    (xdrx-prompt "\n发现不可打印实体!")
                                            );;;progn
                                            (progn
                                                    (setq #lst nil)               
                                                    (xdrx-prompt "\n恭喜:未发现不可打印实体")
                                            );;;progn
                                    );;;if
                                    (progn
                                            (setq #lst nil)               
                                            (xdrx-prompt "\n恭喜:未发现不可打印实体")
                                    );;;progn
                            );;;if
                    );;;progn
                    (progn
                            (mapcar
                                    '(lambda(x)
                                            (xdrx-setpropertyvalue x "off" nil)
                                    );;;lambda
                                    #lst
                            );;;mapcar
                            (setq #lst nil)
                    );;;progn
            );;;if
                   (xdrx-end t)       
            (princ)
    )[/mw_shl_code]
  • 论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    发表于 2020-8-25 11:46:27 | 显示全部楼层
    很不错的功能  刚需啊
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

    已领礼包: 186个

    财富等级: 日进斗金

     楼主| 发表于 2020-8-25 11:53:12 | 显示全部楼层
    防止误将有用的实体设置或刷为不可见图层。
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

    已领礼包: 19个

    财富等级: 恭喜发财

    发表于 2020-8-25 15:11:16 | 显示全部楼层
    什么条件 是 不可打印实体呢

    点评

    不可打印图层上的实体  详情 回复 发表于 2020-8-25 15:41
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

    已领礼包: 186个

    财富等级: 日进斗金

     楼主| 发表于 2020-8-25 15:40:11 | 显示全部楼层
    有些图层是不可打印图层,如:"Defpoints"图层,在dwg转pdf时就看不见了,也就打印不出来了。
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

    已领礼包: 186个

    财富等级: 日进斗金

     楼主| 发表于 2020-8-25 15:41:20 | 显示全部楼层
    Lisphk 发表于 2020-8-25 15:11
    什么条件 是 不可打印实体呢

    不可打印图层上的实体
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

    GMT+8, 2021-3-1 17:41 , Processed in 0.129358 second(s), 28 queries , Gzip On, WinCache On.

    Powered by Discuz! X3.4

    Copyright © 2001-2020, Tencent Cloud.

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