设为首页收藏本站

天气与日历切换到窄版

中国膜结构网

十大进口膜材评选

十大国产膜材评选

十大膜结构设计评选

十大膜结构公司评选

中国膜结构网_中国空间膜结构协会_张拉膜设计安装膜材采购综合性平台»论坛 › 二次开发 › AutoLisp | visual lisp › 判断图元是否为剪裁块

返回列表发新帖

查看: 71|回复: 1

判断图元是否为剪裁块

TA的每日心情

	开心 2024-8-31 15:58

签到天数: 89 天

[LV.6]常住居民II

488 主题	207 回帖	3366 积分

积分: 3366

发消息

发表于 2024-6-22 09:46:18 | 显示全部楼层 |阅读模式

;;判断图元是否为剪裁块
(defun IsXClip (en2 / xdict)
(if (setq xdict (cdr (assoc 360 (entget en2))))
(IsXClip xdict)
(if
(and (eq "SPATIAL_FILTER" (cdr (assoc 0 (setq en2 (entget en2)))))
(eq 1 (cdr (assoc 71 en2)))
)
en2
)
)
)

复制代码

判断图元是否为剪裁块

PTFE, ETEF, 设计, 安装, 施工

相关帖子

中国膜结构网打造全中国最好的膜结构综合平台，统一协调膜结构设计，膜结构施工，膜材采购，膜材定制，膜结构预算全方位服务。中国空间膜结构协会合作单位。

回复

TA的每日心情

	开心 1 小时前

签到天数: 154 天

[LV.7]常住居民III

3458 主题	554 回帖	214748万积分

中国膜结构网www.mjgou.com

积分: 2147483647

发消息

发表于 2024-7-9 19:40:29 | 显示全部楼层

;如果是裁剪块，则生成边界备用
(if (setq el (IsXClip (car blk)))
(progn
(setq IsXC T)
(command "xclip" (car blk) "" "P") ;生成裁剪边界
(setq outline (entlast)) ;保存边界信息
(entdel outline) ;先删除，回头再恢复，防止干扰
)
)

复制代码

判断图元是否为剪裁块

中国膜结构网打造全中国最好的膜结构综合平台，统一协调膜结构设计，膜结构施工，膜材采购，膜材定制，膜结构预算全方位服务。中国空间膜结构协会合作单位。

回复

返回列表发新帖

|Archiver|手机版|中国膜结构网|中国膜结构协会|进口膜材|国产膜材|ETFE|PVDF|PTFE|设计|施工|安装|车棚|看台|污水池| |网站地图

GMT+8, 2024-9-8 10:56 , Processed in 0.065809 second(s), 26 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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