设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

12下一页
返回列表
查看: 177|回复: 16

[编程申请] 【已解决】求块分解,分解后为原图自动剪切遮罩块 有效果动画图

[复制链接]

签到天数: 19 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 8个

财富等级: 恭喜发财

发表于 2017-8-13 22:14:09 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 a13678 于 2017-8-14 21:36 编辑

块分解,分解后为原图自动剪切遮罩块,现场图纸分解会出现很多原先隐藏的块 找到一个效果的动态图 块分解1.gif

请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

文件名称:1.rar  备注:图纸 
下载次数:22  文件大小:1.09 MB 
下载权限: 不限 以上  [免费赚D豆]





上一篇:求非凸多边形的最大内接矩形
下一篇:晓东API建议加上OLE savetoFile这个功能
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 516 天

连续签到: 159 天

[LV.9]以坛为家II

点击这里给我发消息

已领礼包: 1053个

财富等级: 财源广进

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

使用道具 举报

签到天数: 1560 天

连续签到: 2 天

[LV.Master]伴坛终老I

已领礼包: 3991个

财富等级: 富可敌国

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

使用道具 举报

签到天数: 264 天

连续签到: 4 天

[LV.8]以坛为家I

已领礼包: 322个

财富等级: 日进斗金

发表于 2017-8-14 08:02:39 | 显示全部楼层
这个有难度,先马克等高手
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 431 天

连续签到: 61 天

[LV.9]以坛为家II

已领礼包: 842个

财富等级: 财运亨通

发表于 2017-8-14 08:11:46 | 显示全部楼层
图纸分解会出现很多原先隐藏的块
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 19 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2017-8-14 08:15:26 | 显示全部楼层

对啊 就是会出现啊 所以想找个分解完了能维持原图的啊 自动删除隐藏的块  我在别人用的一个工具箱里面有这样的功能
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 389 天

连续签到: 9 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-8-14 08:23:27 | 显示全部楼层
你要炸开哪个? 截图说明下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 19 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2017-8-14 10:05:40 | 显示全部楼层

所有的块啊 就是想要 全选图纸 然后炸开 图纸依旧是打开时显示的样子 LISP自动将炸开时显示出的别的东西都自动删除掉  这样说能明白不
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 720 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 1173个

财富等级: 财源广进

发表于 2017-8-14 16:19:21 | 显示全部楼层
本帖最后由 newer 于 2017-8-14 16:24 编辑

test.gif
测试:

  1. (defun c:tt2 (/ EN ENBJ I OBJ OBJLST OBJS PT SS SS1 SS2 X)
  2.   (princ "\n选择裁剪块")
  3.   (setq ss (ssget '((0 . "INSERT"))))
  4.   (setq i -1)
  5.   (while (setq en (ssname ss (setq i (1+ i))))
  6.     (if (xdrx_insert_isCLIP en)
  7.       (progn
  8.         (setvar 'cmdecho 0)
  9.         (vl-cmdf ".xclip" en "" "p")
  10.         (setq enbj (entlast));_裁剪边界
  11.         (setq pt (cdr (assoc 10 (entget en))));_裁剪块的插入点
  12.         (setq obj (vlax-ename->vla-object en))
  13.         (setq objs (vla-Explode obj))
  14.         (setq objLst (vlax-safearray->list (vlax-variant-value objs)))
  15.         (setq ss1 (ssadd))
  16.         (mapcar '(lambda (x) (ssadd (vlax-vla-object->ename x) ss1)) objLst)
  17.         (setq ss2 (xdrx_geom_clipboundary ss1 enbj))
  18.         (entdel enbj);_删除创建的边界
  19.         (entdel en);_删除原块
  20.         (xdrx_block_make ss2 pt t);_创建匿名块
  21.         )
  22.       )
  23.     )
  24.   (princ)
  25.   )


评分

参与人数 1D豆 +5 贡献 +1 收起 理由
newer + 5 + 1 热心帮忙奖!

查看全部评分

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

使用道具 举报

签到天数: 1332 天

连续签到: 3 天

[LV.10]以坛为家III

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2017-8-14 17:14:27 | 显示全部楼层

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

使用道具 举报

签到天数: 920 天

连续签到: 3 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-8-14 17:41:39 | 显示全部楼层

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

使用道具 举报

签到天数: 19 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2017-8-14 18:29:24 | 显示全部楼层

非常感谢  但是貌似不是我想要的这个功能 我终于提取出了这个效果 块分解1.gif 请大神帮忙看看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 339 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 51个

财富等级: 招财进宝

发表于 2017-8-14 18:44:41 | 显示全部楼层

看了你的图,这些块都是XCLIP裁剪的块,你是希望把显示的部分给提取出来?

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

使用道具 举报

签到天数: 19 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 8个

财富等级: 恭喜发财

 楼主| 发表于 2017-8-14 19:13:55 | 显示全部楼层

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

使用道具 举报

签到天数: 339 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 51个

财富等级: 招财进宝

发表于 2017-8-14 19:15:48 | 显示全部楼层
本帖最后由 Lispboy 于 2017-8-14 19:41 编辑

对你这个图,帮你写个代码,原位置提取出裁剪块里面显示的部分。


提取裁剪块.gif



  1. (defun c:tt ()
  2.   (if (and
  3.         (setq e (car (xdrx_entsel "\n拾取一个裁剪块<退出>:" '((0 . "INSERT")))))
  4.         (xdrx_insert_isclip e)
  5.         (setq mat (xdrx_matrix_block2wcs e))
  6.         (setq data (xdrx_insert_getclipinfo e))
  7.         (setq box (cdr (assoc "BoundBox" data)))
  8.         (setq base (car box))
  9.         (setq blk (xdrx_getpropertyvalue e "blocktablerecord"))
  10.         (setq box (xdrx_points_transform box (xdrx_matrix_inverse
  11.                                                                   (xdrx_matrix_block2wcs e)
  12.                                              )
  13.                   )
  14.         )
  15.         (setq ents (xdrx_block_getentities t (cadr blk) "C" box))
  16.       )
  17.     (progn
  18.       (mapcar
  19.         '(lambda (x)
  20.            (xdrx_entity_transformedcopy x mat)
  21.          )
  22.         ents
  23.       )
  24.       (xdrx_entity_delete e)
  25.     )
  26.   )
  27.   (princ)
  28. )


写你这个发现,XDRX API太强了,对裁剪块提供的函数太牛了。


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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-2-21 03:26 , Processed in 0.748557 second(s), 99 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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