[ssn]

добрый день.
помогите исправить код. решаю задачу в лоб и знаний не хватает.
ищу полилинии на активном листе

Код:

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

 Dim gpCode(0 To 3) As Integer
Dim dataValue(0 To 3) As Variant
gpCode(0) = 8
gpCode(1) = 8
gpCode(2) = 8
gpCode(3) = 8
dataValue(0) = "0"
dataValue(1) = "0"
dataValue(2) = "0"
dataValue(3) = "0"
    groupCode = gpCode
    dataCode = dataValue
    точка1(0) = -100000: точка1(1) = -100000
    точка2(0) = 100000: точка2(1) = 100000
    mode = acSelectionSetWindow
    ZoomAll
    ssetObj.Select mode, точка1, точка2, groupCode, dataCode

ничего кроме acSelectionSetWindow у меня применить не получилось. по этому приходится делать ZoomAll потом откатывать назад, да ещё и граница поиска ограничена точками.
Подскажите, как правильно сделать что бы сразу искались нужные объёкты во всем активном пространстве? желательно что бы так же искались такие объекты в блоках.
Думал можно выбрать все примитивы а потом их отсеивать, но думаю на больших файлах будет очень долго выполняться. вообщем, если не сложно подскажите как правильно сделать.

и второй вопрос.
есть в файле именованный пейдж сетап. имя 1. (PlotConfiguration.Name = "1")
Есть стандартное окно редактирования принтера этого пейдж сетапа.
У меня получилось только через ком строку:
Acdoc.SendCommand "_pagesetup"
и потом в списке я уже выбираю этот пейдж сетап и дальше правлю, и потом по закрытию продолжается код.
Как сделать так, что бы сразу попадать в окно редактирования принтера этого пейдж сетапа, желательно мимо командной строки?

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

acSelectionSetAll - не катит в качестве режима?

[ssn]

возможно решит наполовину. сейчас попробую.
а поиск таких объектов в блоках сложно сделать?

----- добавлено через ~6 мин. -----
а. acSelectionSetAll выбирает объекты не в активном листе, а во всех сразу.

[Pum-purum]

ssn, рад что ты такой целеустремленный Отвечу вопросами на вопросы:
1. Нафига выбирать все полилинии на листе? Может, воспользоваться выбором секущей рамкой?
2. Нафига тебе этот PageSetup? Может, сразу выводить на печать, минуя стадию настроек листа?

Что значат эти фильтры в строках с 3ей по 10ую?

[ssn]

всё надо. в рамках идеи работы кода все хорошо. фильтр происходит уже в коде программы, когда все выбралось.
нужна реализация

про целеустремлённый... код в работе с 2004 года. нет ничего более постоянного, чем все временное. когда то написал, работает, есть недочёты но для себя не критично.
но некрасивые моменты пофиксить было бы просто супер.

----- добавлено через ~23 мин. -----
Может правда действовать через acSelectionSetAll а потом отбрасывать лишнее

а как тогда правильно реализовать определение принадлежности объекта к лейауту?

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

Получение примитивов в пространстве модели

Код:

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

Option Explicit

Sub test()
Dim ss As AcadSelectionSet
Dim ssName As String
Dim grpCode() As Integer
Dim grpData() As Variant
    ssName = "kpblcSelSet"
    On Error Resume Next
    ThisDrawing.SelectionSets.Item(ssName).Delete
    On Error GoTo 0
    Set ss = ThisDrawing.SelectionSets.Add(ssName)
    ReDim grpCode(0)
    grpCode(0) = 67
    ReDim grpData(0)
    grpData(0) = 0
    ss.Select acSelectionSetAll, , , grpCode, grpData
    MsgBox ss.Count
End Sub

[ssn]

смотрю и не могу понять, какая именно строка отвечает за выбор именно из модели.
мне дело в том что кроме модели надо различать ещё и лейауты.
и поиск в блоках было бы очень не дурно как то реализовать.
может даже повторно выбирать все блоки и в них искать эти полилинии.

можно наверно через
ObjectID32
узнавать имя текущего лейаута (или модель)
потом по его названию..
интересно, у каждого лейаута свой ObjectID32 или он один на всех?

Код:

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

 Dim oID As Long
Set oLayout = Acdoc.Layouts("Model")
oID = oLayout.Block.ObjectID32

If ssetObj1.Item(0).OwnerID32 <> oID Then

ааа. понял какая строка. grpCode(0) = 67. если 0 то модель, если 1 то лейаут. а как определить какой конкретно лейаут?

можно так же через grpCode(0) = 410?

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

Можно. Советую открыть и прочитать DXF Reference.

[ssn]

а со второй частью вопроса, про _pagesetup не подскажите?

[Pum-purum]

Сообщение от Кулик Алексей aka kpblc Советую открыть и прочитать DXF Reference.

Можно по буквам расписать, куда заходить и что нажимать? не нашел ничего подобного ((((

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

Сообщение от Pum-purum Можно по буквам расписать, куда заходить и что нажимать? не нашел ничего подобного ((((

http://adn-cis.org/forum/index.php?topic=280.0
http://usa.autodesk.com/adsk/servlet...&siteID=123112
http://exchange.autodesk.com/autocad...4e551-7fdd.htm

[ssn]

дак все же, есть возможность программно открыть вот это окно из VBA?

[ssn]

а все же нет инструмента, который бы выбирал определённые объекты сразу и просто на листах и их вхождения в блоках (есл блоки вставлены на этот лист)?
ну т.е. формально объект же находится на листе, только он находится внутри блока. Можно конечно выбрать все блоки а потом перебором искать в них нужные объекты, но как то это скорее всего долго будет в более ли менее плотном чертеже.
вот бы инструмент, который находил примитив на листе, независимо от того, входит он в блок или не входит