Dobrý den,
potřebuji přidat entitu do výběrové množiny oSS2 a nedaří se mi to.
Vycházel jsem z lekcí na http://www.cadforum.cz/cadforum/tema.asp
Zde je moje procedura:

'pokusy s tvorbou sSS2 jsou za ' protože nefungují
'lze vytvořit filtr tak, že vybere bloky se jménem "RADEKROZ"?

Sub VyberRadkyKusovniku()
    Dim oSS As AcadSelectionSet
    'Dim oSS2 As AcadSelectionSet
    Dim oBlok As AcadEntity
    Dim iFilterCode(0) As Integer
    Dim vFilterValue(0) As Variant
    Dim i As Integer
    Dim Dotaz As String
    'Dim ssobjs As AcadEntity
   
    'Errorhandler (vymaže případně již existující výběrovou množinu)
    On Error Resume Next
    Application.ActiveDocument.SelectionSets("Bloky").Delete
    Application.ActiveDocument.SelectionSets("Radky").Delete
    On Error GoTo 0
 
    'vytvoř výběrovou množinu nazvanou "Bloky"
    Set oSS = Application.ActiveDocument.SelectionSets.Add("Bloky")
    'Set oSS2 = Application.ActiveDocument.SelectionSets.Add("Radky")
    iFilterCode(0) = 0: vFilterValue(0) = "insert"
    'oSS.SelectOnScreen iFilterCode, vFilterValue 'pouze vybrané bloky
    oSS.Select acSelectionSetAll, , , iFilterCode, vFilterValue 'všechny bloky
    i = 0
    If oSS.Count Then
        For Each oBlok In oSS 'zpracovat všechny entity výběrové množiny "Bloky"
         &nbs p;  With oBlok
         &nbs p;      If UCase(.Name) = "RADEKROZ" Then
         &nbs p;          'oSS2.AddObject i, oBlok
         &nbs p;          'Set ssobjs(i) = oBlok
         &nbs p;          i = i + 1
         &nbs p;          End If
         &nbs p;      End With
         &nbs p;      Next oBlok
         &nbs p;      'oSS2.AddItems ssobjs

         &nbs p;      Dotaz = MsgBox("Ve výkrese je " + Str(i) + " řádků rozpisky." + Chr(13) + _
         &nbs p;          "Chceš je nyní exportovat?", 4)
         &nbs p;      If Dotaz = vbYes Then
         &nbs p;          MsgBox "Ještě to nemám, nyní bych chtěl exportovat a vymazat bloky z oSS2 ..."
         &nbs p;          End If
         &nbs p;  End If
End Sub

Opravdu nikdo neví, jak pracovat s výběrovými množinami ve VBA?
Věděl by někdo, jak napsat filtr, aby se vytvořila výběrová množina bloků s určitým názvem?

Když v:
oSS.Select acSelectionSetAll, , , iFilterCode, vFilterValue
použiju:
vFilterValue(0) = "insert"
Vloží se do oSS všechny bloky.

Moc děkuji za odpověď.

Velmi děkuji, stačilo nakopnout!
Nechápal jsem, co je "FilterCode". Příklad mi pomohl, již studuji skupinové kódy dxf z programátorské příručky.

Samozřejmě podmínky lze libovolně kombinovat, ale k vyhodnocení musí dojít najednou. Pak to má vypadat takhle:

Dim FiltrTyp(2) as integer ' podle počtu podmínkových "dvojic" od 0 tj. 0,1,2…
Dim FiltrData(2) as Variant

FiltrTyp(0)=0
FiltrData(0) = "insert"
FiltrTyp(1)=2
FiltrData(1) = "RADEKROZ"
FiltrTyp(2)=8
FiltrData(2) = "RAZITKO"

oSS.Select acSelectionSetAll, , , FiltrTyp, FiltrData

Jak můžu procházet po jednotlivých entitách výběrové množiny?

Zdravim,

mam problem s určením mena entity resp. bloku

pre zistenie mena objektu použijem
ThisDrawing.Blocks.Item(i).Name

toto ide bez problemov

problem nastane keď chcem určiť meno entity pri výbere z množiny objektou
cez ent = ThisDrawing.ModelSpace.Item(j)
následne použijem meno = ent.Name

Pri použití .Name dostanem chybovú hlášku o tom že daný
objekt nepovoľuje túto možnosť

Možno je problém vo verzii autocadu (používam Autocad 2002)
Vie mi niekto poradiť ako určiť meno entity resp objektu
pri použití ModelSpace ?

Ešte Jedna otázočka,

Autocad 2002 nepodporuje vlastnosť krivky "polyline.length"

Potreboval by som zistiť dĺžku krivky bez rozloženia objektu
na výkrese.

Skúšal som rozložiť objekt pomocou .explode ale neviem prísť
na spôsob určenia vlastnosti vráteného poľa objektou.

Ďakujem za odpoveď, medzičasom som problém vyriešil trochu iným spôsobom
váš je o niečo elegantnejší tak keď bude trochu času vyskúšam.