向高手请教有关选择集高亮的问题！！！

dong20030432 · 发表于 2018-1-17 14:27:00

我自己用VB编写的选择图中所有文字的程序，执行选择集内对象高亮后，没有夹点显示，只显示虚线，而用别人的进行选择后，不仅有虚线显示，还有夹点显示，向各位高手请教我的程序哪里出了问题，非常感谢！（CAD夹点设置也没有问题）
FType(0) = 0
FDate(0) = "*text"
FilterType = FType
FilterDate = FDate
ssetName = "ss1" & Now
Set sset = acadapp.ActiveDocument.SelectionSets.Add(ssetName)
AppActivate acadapp.Caption
sset.SelectOnScreen FilterType, FilterDate
For Each entobj In sset
entobj.Highlight (True)
Next
sset.Delete

zzyong00 · 发表于 2018-1-18 20:07:00

本论坛里找VLAX.cls类

copy

'显示选择集中对象的夹点
Public Sub ShowSelectionSetCrips(ByRef ss As AcadSelectionSet)
    Dim LispCode As New VLAX
    Dim objEnt As AcadEntity
    
    With LispCode
        .EvalLispExpression "(setq ss (ssadd))"
        
        For Each objEnt In ss
            .EvalLispExpression "(ssadd " & _
            "(handent " & Chr(34) & _
            objEnt.handle & Chr(34) & ")" & _
            "ss" & _
            ")"
        Next
        
        .EvalLispExpression "(sssetfirst nil ss)"
        .EvalLispExpression "(setq ss nil)"
    End With
    Set LispCode = Nothing
    'MsgBox "您选择了" & ThisDrawing.PickfirstSelectionSet.Count & "个对象"
End Sub