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

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

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


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

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

very good


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


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

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

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


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

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

不错，能达到大部分要求

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

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

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

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

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

可以用,不错啊

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

我下载了。谢谢楼主。

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

好东西啊

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

谢谢分享，学习一下
页: [1] 2
查看完整版本: 做点贡献，一个删除同类实体的程序