🚀 go-pugleaf

On 28 Sie, 11:15, "Lagoda" <niespamowac lagoda malpa list kropka pl>
wrote:
> > (ssget "X" '((0 . "TEXT")(8 . "BEZ_TEILE")(62 . 4)))
> > zaznacza wszystkie teksty z warstwy 'BEZ_TEILE' o kolorze '4' - cyan.
>
> Czy da się to jakoś wywołać wpisując w treść makra, czy trzeba zrobić lispa?
> Próbowalem w makro ale nie działa (choć chyba powinno, bo zmieniłem tylko
> nazwę warstwy i kolor).
> pojawia się napis: <Selection set: 4977>

W vba w zwcadzie robię tak:
Sub totalnumber()

    'define
    Dim total As Double
    total = 0

    'Create a set
    Dim ssetObj As ZwcadSelectionSet
    Set ssetObj = ThisDocument.SelectionSets.Add("TEST_SSET")

    'use Filters to get text
    Dim Ftype(2) As Integer
    Dim Fdata(2) As Variant

    Ftype(0) = 0
    Fdata(0) = "text"

    Ftype(1) = 8
    Fdata(1) = "teksty"

    Ftype(2) = 62
    Fdata(2) = 4

    Dim mode As ZcSelectionSetType
    mode = zcSelectionSetAll

    ssetObj.Select zcSelectionSetAll, , , Ftype, Fdata

    'Determine the text whether to be digital
    For i = 0 To ssetObj.Count - 1
        If IsNumeric(ssetObj.Item(i).TextString) Then
            total = total + ssetObj.Item(i).TextString
            ActiveDocument.Utility.Prompt ssetObj.Item(i).TextString &
vbCrLf
        End If
    Next i

    ' delete set
    ssetObj.Delete

    ' output the sum
    ActiveDocument.Utility.Prompt "suma " & total

End Sub

Do acada można to chyba dopasować, zresztą w helpie pewnie będzie
przykład.