找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2285|回复: 13

[已解决] 求如果是不打印的图层则关闭的代码

[复制链接]
发表于 2014-3-27 09:05:26 | 显示全部楼层 |阅读模式
悬赏50D豆已解决
本帖最后由 清风明月10 于 2014-3-27 09:48 编辑

我想求一个不打印的图层则关闭,打印的图层维持原状的插件。这样就方便检查本次打印的内容了。
如果没有这个插件,则到底打印了哪些图元,心里没有数,看预览,由于图太长不方便
请坛友帮助。
假设A为块参照,A中含图元B、C,B在打印图层,C在不打印图层。。
如果A在不打印图层,B不会被打印。
如果A在打印图层,C不会被打印。所以如果图中有块参照A,且块参照A位于不打印图层,则A中的所有图元(特指打印图层上的图元)都需要被隐藏或关闭,这才能使得我们在模型中看到的图元确实是要打印的图元。
A为组时按上法类推。


最佳答案

查看完整内容

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

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-3-27 09:05:27 | 显示全部楼层
清风明月10 发表于 2014-3-27 10:04
好朋友,帮我改为不打印图层则冻结,好吗?求你了!

你不是会 VBA 吗? 很简单几句就可以搞定的

  1. (defun c:tt ()
  2.   (vlax-for lyr        (fy:aclayers)
  3.     (if        (zerop (vlax-get lyr 'Plottable))
  4.       (vla-put-freeze lyr :vlax-true)
  5.     )
  6.   )
  7.   (princ)
  8. )

点评

我不懂将VBA代码转为LISP的方法  详情 回复 发表于 2014-3-27 10:25

评分

参与人数 1D豆 +5 收起 理由
清风明月10 + 5 热心帮忙奖!

查看全部评分

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-3-27 09:45:07 | 显示全部楼层
  1. (defun c:tt ()
  2.   (vlax-for lyr        (fy:aclayers)
  3.     (if        (zerop (vlax-get lyr 'Plottable))
  4.       (vla-put-layeron lyr   :vlax-false)
  5.     )
  6.   )
  7.   (princ)
  8. )

点评

no function definition: FY:ACLAYERS 运行错误,请帮我贴上这个自定义函数!  详情 回复 发表于 2014-3-27 09:52
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2014-3-27 09:52:25 | 显示全部楼层

no function definition: FY:ACLAYERS
运行错误,请帮我贴上这个自定义函数!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-3-27 09:53:59 | 显示全部楼层
本帖最后由 st788796 于 2014-3-27 09:55 编辑
清风明月10 发表于 2014-3-27 09:52
no function definition: FY:ACLAYERS
运行错误,请帮我贴上这个自定义函数!

自己不会写啊!
(defun fy:aclayers ()
  (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
)
码这些重复代码太累!

http://bbs.xdcad.net/thread-671318-1-1.html

点评

如果图中有块参照A,且块参照A位于不打印图层,则A中的所有图元(特指打印图层上的图元)都需要被隐藏或关闭,这才能使得我们在模型中看到的图元确实是要打印的图元。 上面问题需解决,否则不被打印的图元会显示。  发表于 2014-3-27 09:57

评分

参与人数 1D豆 +5 收起 理由
清风明月10 + 5 及时回复奖!

查看全部评分

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-3-27 10:01:15 | 显示全部楼层
用冻结方法

点评

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

使用道具 举报

 楼主| 发表于 2014-3-27 10:04:08 | 显示全部楼层

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

使用道具 举报

 楼主| 发表于 2014-3-27 10:25:25 | 显示全部楼层
st788796 发表于 2014-3-27 09:05
你不是会 VBA 吗? 很简单几句就可以搞定的

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-3-27 11:01:02 | 显示全部楼层
清风明月10 发表于 2014-3-27 10:25
我不懂将VBA代码转为LISP的方法

  1. (defun c:tt ()
  2.   (vlax-for lyr        (fy:aclayers)
  3.     (if        (zerop (vlax-get lyr 'Plottable))
  4.       (vla-put-freeze lyr :vlax-true)
  5.     )
  6.   )
  7.   (princ)
  8. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 14个

财富等级: 恭喜发财

发表于 2016-5-24 17:23:05 | 显示全部楼层
很实用 谢谢元老们
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2017-7-3 09:44:18 | 显示全部楼层
什么都又,效率满满
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2022-10-22 19:29:22 | 显示全部楼层
如何设置为只开不打印层呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 08:24 , Processed in 0.359001 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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