- 积分
- 890
- 明经币
- 个
- 注册时间
- 2002-8-18
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2002-10-12 19:36:00
|
显示全部楼层
可以这样
(setq en (car (entsel))
el (entget en)
item330 (cdr (assoc 330 el))
)
(if (not item330)
(setq item330 (entget item330))
)
(if item330
(print "有边框或者填充")
)
需要注意的有两点
1\Hatch可能有多个边框,也有可能有以不删除了,一部分还保留着,所有编程时要注意进行判断
2\还有其他情况一些情况如组,也会产生330组码,你要注意能否根据你的实际应用找出点区别来判断,这些东西的实际都是应用CAD的反应器功能 |
|