[shprot]

Имеется блок который пользователь уже выделил мышкой, как изменить атрибут этого блока (объект выделен до запуска макроса). Собственно не ясно как получить сам выделенный объект. Заранее спасибо.

[Кулик Алексей aka kpblc]

См.метод GetAttributes у вхождения блока.

[shprot]

Спасибо, но тут вопрос больше в том как получить доступ к объекту блока (он. динамический) вот это не пойму. Наверно как то через AcadSelectionSet, но как?

Вот что у меня

Код:

[Выделить все]

Sub test()
Dim newObjs As AcadObject, sset As AcadSelectionSet
MsgBox ThisDrawing.ActiveSelectionSet.Count

Set sset = ThisDrawing.ActiveSelectionSet
For Each newObjs In sset
If newObjs.ObjectName = "AcDbBlockReference" Then 
 If newObjs.EffectiveName = "Стена" Then
 'здесь будет обработка блока
 Exit For
End If
End If
Next

sset.Clear
Set sset = Nothing

End Sub

Код:

[Выделить все]

MsgBox ThisDrawing.ActiveSelectionSet.Count

показывает что перед выполнением макроса ActiveSelectionSet >0
выходит что его нужно очистить, значит не срабатывает

Код:

[Выделить все]

sset.Clear
Set sset = Nothing

Подскажите пожалуйста по чему это может быть?

[Олег (jr.)]

Так попробуй

Код:

[Выделить все]

' selection test:
Dim fType(0 To 2) As Integer
Dim fData(0 To 2) As Variant
Dim dxfCode, dxfValue
fType(0) = 0: fData(0) = "INSERT"
fType(1) = 66: fData(1) = 1

fType(2) = 2: fData(2) = "`U*," & blkName '<-- измени имя блока на соответствующее
dxfCode = fType: dxfValue = fData
     Dim oSset As AcadSelectionSet
          With ThisDrawing.SelectionSets
               While .Count > 0
                    .Item(0).Delete
               Wend
          Set oSset = .Add("MySset")
          End With

oSset.Select acSelectionSetAll, , , dxfCode, dxfValue
If oSset.Count = 0 Then
MsgBox "Nothing selected"
Exit Sub

~`o'~

[shprot]

Подскажите как изменить правильно имя блока? Сделав так:

Код:

[Выделить все]

fType(2) = 2: fData(2) = "Стена наружная" '<-- измени имя блока на соответствующее

блок не обнаруживается.

[Agens]

Чистим набор "blocks"

Dim objSelSet As AcadSelectionSet Dim objSelCol As AcadSelectionSets For Each objSelSet In objSelCol If objSelSet.Name = "blocks" Then objSelSet.Delete Exit For End If Next

выбираем только блоки

Set objSelSet = ThisDrawing.SelectionSets.Add("blocks") mode = acSelectionSetAll objSelSet.Select mode, 0, 0 Set SelectOnlyOnScreen = objSelSet Set SelectOnlyOnScreen = objSelSet

перебираем набор из всех блоков чертежа

For I = 0 To acSelSet.Count - 1 On Error Resume Next Dim varAttributes As Variant varAttributes = objSelSet.Item(I).GetAttributes Dim strAttributes As String strAttributes = "" Dim j As Integer For j = LBound(varAttributes) To UBound(varAttributes) strAttributes = strAttributes + vbCrLf + _ " Tag: " + varAttributes(j).TagString + vbCrLf + _ " Value: " + varAttributes(j).TextString Next j Next I

[Олег (jr.)]

Так попробуй:

Код:

[Выделить все]

fType(2) = 2: fData(2) = "`U*," & "Стена наружная" '<-- измени имя блока на соответствующее

[shprot]

Олег (jr.) , не работает, все так же не пишет "Nothing selected"

Agens , спасибо но мне нужно обрабатывать именно только один ранее выделенный (до запуска макроса) пользователем блок. Как я понял у Вас все блоки обрабатываются, поясните может я что-то не понимаю.