做点贡献，一个删除同类实体的程序

nxy_918 · 发表于 2004-5-11 18:05

可删除的类型目前只有图块、多义线、线段、线性标注、圆弧等，你的可以在select case

语句中自行添加，我这里只起到示范的作用

liub1979 · 发表于 2004-6-30 20:22

very good

能介绍一下类SELECT中的groupcode, datacode的用法吗

帮助文件说的太简单了谢谢先

mikewolf2k · 发表于 2004-6-30 21:46

看过了，值得参考借鉴。谢谢。

不过，好像没有什么实用价值吧？

sztk2001 · 发表于 2004-7-23 11:47

不错，能达到大部分要求

nxy_918 · 发表于 2004-8-14 18:25

Select Case TypeName(ent)
Case "IAcadLine"
datavalue(0) = "Line"
Case "IAcadLWPolyline"
datavalue(0) = "LWPolyline"
Case "IAcadCircle"
datavalue(0) = "CIRCLE"
Case "IAcad3DPolyline" ', "IAcad2DPolyline"
datavalue(0) = "3DPolyline"
Case "IAcadText"
datavalue(0) = "Text"
Case "IAcadMText"
datavalue(0) = "MText" ‘多义字
Case "IAcadArc"
datavalue(0) = "Arc" '园弧
Case "IAcadDimAligned", "IAcadDimRotated", "IAcadDimRadial", "IAcadDimDiametric" '各种标注
datavalue(0) = "Dimension"
Case "IAcadBlockReference" '块
datavalue(0) = "insert"

eeprotect · 发表于 2004-8-30 10:07

不错啊！对我来说就很有启发意义，因为我想编个只显示特定同类实体的程序！

poly168 · 发表于 2005-1-26 14:08

可以用,不错啊

smxy · 发表于 2005-4-14 13:13

我下载了。谢谢楼主。

lh869 · 发表于 2005-4-22 10:56

好东西啊

清风明月名字 · 发表于 2013-6-27 09:17

谢谢分享，学习一下

账号		自动登录	找回密码
密码			注册

做点贡献，一个删除同类实体的程序

本帖子中包含更多资源

评分