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

dong20030432

我自己用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

本论坛里找VLAX.cls类

1. '显示选择集中对象的夹点
   
2. Public Sub ShowSelectionSetCrips(ByRef ss As AcadSelectionSet)
   
3.     Dim LispCode As New VLAX
   
4.     Dim objEnt As AcadEntity
   
5.    
   
6.     With LispCode
   
7.         .EvalLispExpression "(setq ss (ssadd))"
   
8.         
   
9.         For Each objEnt In ss
   
10.             .EvalLispExpression "(ssadd " & _
    
11.             "(handent " & Chr(34) & _
    
12.             objEnt.handle & Chr(34) & ")" & _
    
13.             "ss" & _
    
14.             ")"
    
15.         Next
    
16.         
    
17.         .EvalLispExpression "(sssetfirst nil ss)"
    
18.         .EvalLispExpression "(setq ss nil)"
    
19.     End With
    
20.     Set LispCode = Nothing
    
21.     'MsgBox "您选择了" & ThisDrawing.PickfirstSelectionSet.Count & "个对象"
    
22. End Sub

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

dong20030432

zzyong00 发表于 2018-1-18 20:07
本论坛里找VLAX.cls类

非常感谢您的答案！！！

dong20030432

zzyong00 发表于 2018-1-18 20:07
本论坛里找VLAX.cls类

高手，请问VLAX.cls类具体怎么用呀？我新手，不懂，谢谢了！

dong20030432

zzyong00 发表于 2018-1-18 20:07
本论坛里找VLAX.cls类

非常感谢您的方法，引用VLAX类后，用您的过程实现了功能，非常感谢！！！

dong20030432

zzyong00 发表于 2018-1-18 20:07
本论坛里找VLAX.cls类

只是感觉这个方法比较高深，不明白为什么CAD自己没有这个功能，对新手来说有点吃力。