• StealtH
  • Восстановленный участник
  • На форуме с 7 июля 2005г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Как выбрать attribute?

Корифеи программирования! Может поможете разобраться как загнать в SelectionSet атрибут(AcadAttibute2),находящийся в определенном месте то есть отфильтровать его подобным образом к примеру:
ReDim gpCode(0): ReDim dataValue(0)
gpCode(0) = 0 'Сие значит,что далее последует тип объекта
dataValue(0) = "Text" 'а сие - что выбираем текст
groupCode = gpCode
dataCode = dataValue
SelSet.SelectByPolygon acSelectionSetCrossingPolygon, PointArray, groupCode, dataCode
Проблема в том, что мне неизвестно какой должна быть строка(dataValue),означающая атрубут,если существует такая.Может подскажете, как этим пользоваться и для других объектов?(в хелпе этого не нашел)Заранее благодарен всем!

  • pavel
  • Восстановленный участник
  • На форуме с 12 апреля 2005г.
  • Сообщений: 35
  • Спасибо: 0

Re: Как выбрать attribute?

dataValue="INSERT"

  • Gogi
  • Восстановленный участник
  • На форуме с 25 мая 2004г.
  • Сообщений: 136
  • Спасибо: 0

Re: Как выбрать attribute?

для атрибутов 

dataValue(0) = "ATTRIB"

только не уверен, что ето поможет для метода  SelectByPolygon.
По мойему нужно сначала выбирать блок ("INSERT"), [rus] a zatem peribirat' ego atributy.
Ili tak: [/rus]

Set objUtil = ThisDrawing.Utility
    Do
    ' Get information about selected object
        objUtil.GetSubEntity Object, PickedPoint, TransMatrix, ContextData, "Выбери атрибут"
        ObjName = TypeName(Object)
        If ObjName Like  "*AcadAttributeReference*" Then
                 Set AtributObj = Object
                ...
...
...
        End If
    Loop
  Exit_Here:
  Exit Sub
NOT_ENTITY:
  varErr = ThisDrawing.GetVariable("LASTPROMPT")
  If InStr(1, varErr, "*Cancel*") <> 0 Or Err.Description = "User input is a keyword" Then
    Err.Clear
    Resume Exit_Here
  Else
    Resume
  End If
End Sub

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как выбрать attribute?

> StealtH
загнать в SelectionSet атрибут(AcadAttibute2),находящийся в определенном месте 
Если речь идет об отдельных атрибутах, то вот код:

Sub AttribTest1()
    Dim ssetObj As AcadSelectionSet
    On Error Resume Next
    Set ssetObj = ThisDrawing.SelectionSets("SSET")
    ssetObj.Delete
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    [b]dataValue(0) = "ATTDEF"[/b]
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
    ssetObj.Clear
    ssetObj.Select acSelectionSetAll, , , groupCode, dataCode
    'и делаешь с ними, что хочешь
    Dim Attr As AcadAttribute
    For Each Attr In ssetObj
      '....
    Next Attr
End Sub

Если же нужны атрибуты входящие в состав блока, то - по совету Gogi, да и вообще на эту тему есть немало материалов, например здесь:
http://www.cad.dp.ua/stats/a_vba/,
или в Help.