过滤器类型值模型空间

sigster · 发表于 2022-3-23 06:48:03

Hi
如何进行过滤，以便只从模型空间中进行选择
如果我像这样使用它，该命令只需结束
Dim filter for As typed value()= { New typed value(0，" LINE，ARC，CIRCLE，SPLINE，LWPOLYLINE，ELLIPSE，INSERT，MTEXT，TEXT，POINT ")，New TypedValue(410，" Model))}

copy

         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            If doc Is Nothing Then Return
            Dim ed As Editor = doc.Editor
            '  Dim filterfor As TypedValue() = {New TypedValue(0, "LINE,ARC,CIRCLE,SPLINE,LWPOLYLINE,ELLIPSE,INSERT,MTEXT,TEXT,POINT"), New TypedValue(410, "Model")}
            Dim filterfor As TypedValue() = {New TypedValue(0, "LINE,ARC,CIRCLE,SPLINE,LWPOLYLINE,ELLIPSE,INSERT,MTEXT,TEXT,POINT")}
            Dim sf As SelectionFilter = New SelectionFilter(filterfor)
            Dim rsSel As PromptSelectionResult = ed.SelectAll(sf)
            If rsSel.Status  PromptStatus.OK OrElse rsSel.Value.Count = 0 Then Return
            Dim rsEnt As PromptEntityResult = ed.GetEntity("Select Polyline")
            If rsEnt.Status  PromptStatus.OK Then Return

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Jeff_M · 发表于 2022-3-23 10:26:05

“线，点”是一个问题，如果我只使用线，但如果我添加更多的类型，如“线，点”，命令结束

sigster · 发表于 2022-3-23 11:08:50

像这样的工作解决了

copy


      Dim acTypValAr(1) As TypedValue
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "INSERT,LINE,LWPOLYLINE,MTEXT,TEXT,POINT"), 0)
            acTypValAr.SetValue(New TypedValue(DxfCode.LayerName, "LAYERNAME"), 1)

过滤器类型值模型空间

发表回复

精选推荐