dong20030432 发表于 2018-1-17 14:27:34

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

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

本论坛里找VLAX.cls类

'显示选择集中对象的夹点
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

dong20030432 发表于 2018-1-22 08:37:47

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

非常感谢您的答案！！！{:1_1:}

dong20030432 发表于 2018-1-22 08:49:28

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

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

dong20030432 发表于 2018-1-22 11:14:33

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

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

dong20030432 发表于 2018-1-22 11:15:59

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

只是感觉这个方法比较高深，不明白为什么CAD自己没有这个功能，对新手来说有点吃力。
页: [1]
查看完整版本: 向高手请教有关选择集高亮的问题！！！