飞狐大哥进，selectatpoint 如何过滤掉中心线

petty

pnt = ThisDrawing.Utility.GetPoint(, "选择插入点: ")
ang = ThisDrawing.Utility.GetAngle(pnt, "指定方向") - pi / 2
Dim sset As AcadSelectionSet
      Set sset = ThisDrawing.SelectionSets.Add("ss1")
      sset.SelectAtPoint pnt
飞狐大哥，自从你上次提示可以用selectatpoint 的方法后，已经解决了我的一个大的难题，现在有个小问题，就是我希望不想选这个点上的中心线（线型），只选实线，如何设置过滤集，过滤掉中心线？
谢谢，祝大学国庆快乐。

雪山飞狐_lzh

过滤器逻辑为 图层组码8不是中心线 图层也不在中心线层且随层的对象

雪山飞狐_lzh

我在.net版kean专题的选择集部分贴过一个过滤线型的代码 你可以参考下

petty

雪山飞狐_lzh 发表于 2016-10-5 22:53
过滤器逻辑为 图层组码8不是中心线 图层也不在中心线层且随层的对象

谢谢，线型代号的组别是什么，我只要在过滤集中选择连续线就可以了

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75642&mobile=2

雪山飞狐_lzh

最后一楼的帖子

下文没句号。

不管碰到什么都要记得学习。这么好的程序，值得下载学习。