[zenon]

Стоит задача, изменить характеристики атрибутов блока, не редактируя самого блока.
По 1 блоку можно поменять и в редакторе атрибутов
, а как быть ежели энтих блоков куча, а во все нужно поменять только скажем высоту атрибутом.

[Хмурый]

_battman

[AlexV]

Сообщение от Хмурый _battman

...А я уж тут макрос написал...

Код:

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

Sub main()
Dim h As Double, Attr1, Attr
h = Val(InputBox("Введите новую высоту для атрибутов", "", 5))
If h = 0 Then End
Dim acSelSet As AcadSelectionSet, objBlk
Set acSelSet = SelectOnlyOnScreen
For Each objBlk In acSelSet
    Attr1 = objBlk.GetAttributes
    For Each Attr In Attr1
       Attr.Height = h
    Next
Next
End Sub

Public Function SelectOnlyOnScreen() As AcadSelectionSet
Dim objSelSet As AcadSelectionSet
Dim objSelCol As AcadSelectionSets
Dim intType(0) As Integer
Dim varData(0) As Variant
Set objSelCol = ThisDrawing.SelectionSets
For Each objSelSet In objSelCol
    If objSelSet.Name = "Only" Then
    objSelSet.Delete
    Exit For
End If
Next
Set objSelSet = ThisDrawing.SelectionSets.Add("Only")
intType(0) = 0
varData(0) = "INSERT"
objSelSet.SelectOnScreen intType, varData
Set SelectOnlyOnScreen = objSelSet
End Function

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

Решение 2: _.attsync

[zenon]

Хмурый, Кулик Алексей aka kpblc, нет не подходит, я не хочу менять высоту атрибута в самом блоке, а только в его вхождении (в блоке при создании указал высоту 10 пусть так и остается, а вот в вхождениях хочу чтоб было, где 20, где 50, где хзс).
AlexV, извини не смотрел, вкратце поясни, а что она делает.
ps см. вложение
Draw.dwg

[kp+]

zenon, посмотри в Download'e TOOLPACK 5, а в нем команды AHS и AHX. И AED тоже

[AlexV]

Сообщение от zenon Хмурый, Кулик Алексей aka kpblc, нет не подходит, я не хочу менять высоту атрибута в самом блоке, а только в его вхождении (в блоке при создании указал высоту 10 пусть так и остается, а вот в вхождениях хочу чтоб было, где 20, где 50, где хзс). AlexV, извини не смотрел, вкратце поясни, а что она делает. ps см. вложение Вложение 12750

Ну, в общем то это и делает. Запрашивает новую высоту для атрибутов, выбор блоков рамкой и во всех вхождениях всем атрибутам без разбору присваивает новую высоту. Вот твой же файл обработанный с высотой атр. 30.

[zenon]

kp+,

[zenon]

kp+, шайтан да
самое то!!!

AlexV, к сожалению, каждый раз править лисп, не есть гуд.

[AlexV]

Сообщение от zenon kp+, шайтан да самое то!!!AlexV, к сожалению, каждый раз править лисп, не есть гуд.

...Какой-такой лисп?Ето ж у меня вроде VBA...