[Simson]

Дело в том что макрос вбивает команду извлечения данных в командную строку а потом работает с извлеченными данными. Но по факту получается что он не дождавшись когда команда выполнится начинает обрабатывать данные, а они еще не извлеклись, соответственно файл пустой. решил сделать отдельную процедуру( продолжение основного когда) реагирующего на завершение команды.
в основном коде вот такой строчкой завершается код.

Код:

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

ThisDrawing.SendCommand ("-ДАННЫЕИЗВЛ" & vbCr & spath & dxe & ".dxe" & vbCr & "Да" & vbCr)

Теста ради написал такие строчки чтоб проверить как работает...

Код:

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

Private Sub AcadDocument_beginCommand(ByVal CommandName As String)
    If CommandName <> "-ДАННЫЕИЗВЛ" & vbCr Then
        Exit Sub
    End If
    MsgBox "hopla"
End Sub

в итоге условие распознания команды вовсе не реагирует.. не видит он эту команду. пробовал и vbcr добавлять- никак..
как это можно исправить?
и может есть идеи реализовать это проще? может внутри процедуры можно все такие задать условие при котором код продолжиться только после завершения команды?

[Сергей812]

Сообщение от Simson Дело в том что макрос вбивает команду извлечения данных в командную строку а потом работает с извлеченными данными.

Т.е. на извлечении самих данных работа не заканчивается.

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

Т.е. проще сделать собственный вариант "извлечения" - во избежание, как говорится

[Simson]

Да не только блоки. есть несколько определений блока(динамических) и множественное количество их вставок. в принципе да нужен аналог извлечения данных, т е длины и количества конкретных полилиний( пот типу линии например отобрать) количество вставок блока каждого определения и для каждой вставки их динамические параметры. вот такая простая задача.

----- добавлено через ~4 мин. -----
почему же не vba? на vba не реализуемо? казалось бы базовая задача почему так неочевидно выполняется.. странно странно

[Сергей812]

реализуемо, люди и на лиспе реализуют подобную обработку) Просто VBA в плане обработки информации достаточно урезанный язык, придется писать всякие костыли, использовать внешние словари или реализовывать их программно.

[doctorraz]

Сообщение от Simson Да не только блоки. есть несколько определений блока(динамических) и множественное количество их вставок. в принципе да нужен аналог извлечения данных, т е длины и количества конкретных полилиний( пот типу линии например отобрать) количество вставок блока каждого определения и для каждой вставки их динамические параметры. вот такая простая задача.

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

[Simson]

а без выделения? через итем перебрав не выдернуть нужную инфу?

[Boxa]

Сообщение от Simson Да не только блоки. есть несколько определений блока(динамических) и множественное количество их вставок. в принципе да нужен аналог извлечения данных, т е длины и количества конкретных полилиний( пот типу линии например отобрать) количество вставок блока каждого определения и для каждой вставки их динамические параметры. вот такая простая задача.

Да, простая задача. Описали Вы ее очень сумбурно, если так же писать код - будет беда.
В остальном, данная задача решается компоновкой примеров, которые есть в справке.

[doctorraz]

Сообщение от Simson а без выделения?

при чем тут выделение... http://vbamodel.narod.ru/AutoCAD/idh...set_object.htm
http://vbamodel.narod.ru/AutoCAD/idh_select.htm
задавай фильтры, и обрабатывай выборку, как тебе заблогарассудится, но да дин блок по имени выбрать не получится, обычный легко. Зато можно сделать выборку блоков только с атрибутами, по слою или слоям, с модели или только листов с любого листа или еще как.. и не перебирать тупо в цикле все блоки пространства.

[Simson]

Сообщение от Boxa Да, простая задача. Описали Вы ее очень сумбурно, если так же писать код - будет беда. В остальном, данная задача решается компоновкой примеров, которые есть в справке.

справкой видимо я тоде не научился полноцеено пользоваться если подскажете что то полезное в этом направлении будет здоорово

----- добавлено через 53 сек. -----
Всем спасибо за наводки буду пробовать

[Сергей812]

все равно с первого раза не получиться конечный вариант) Сначала будете выгребать всякие логические ошибки, потом в процессе работы всплывают какие то рабочие нюансы и снова переделывать. С фильтрами наборов будет быстрее работать, с циклом проще в понимании на первое время. Всегда можно переписать код, используя фрагменты уже отлаженного кода из предыдущих версий)

[Simson]

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

Код:

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

Dim blk As Object
blk = blo.GetDynamicBlockProperties

[doctorraz]

Сообщение от Simson это дело понятное

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

----- добавлено через ~1 мин. -----
ЧТО ДОЛЖНО БЫТЬ НА ВЫХОДЕ!

[Simson]

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

----- добавлено через ~3 мин. -----
на выходе при сохранении автокада в экселе готовые расчитанные данные

----- добавлено через ~5 мин. -----
я это сделал через коммнадную строку встроенной функцией извлечения.. но она выполнялась после кода.. поэтому нужно было сохранить дважды чтоб работало..

[Сергей812]

вот из экселя и стучались бы в акад через позднее связывание. Через SelectionSet и фильтры сграбливаете информацию из акада и сразу заполняете свою "хитрую" табличку.

[Simson]

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

Код:

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

Dim blk As Object
blk = blo.GetDynamicBlockProperties

как исправить?

----- добавлено через ~2 мин. -----
а я из экселя могу достучаться до событий автокада? как же макрос будет запускаться?

[doctorraz]

Сообщение от Simson а я из экселя могу достучаться до событий автокада? как же макрос будет запускаться?

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

[Simson]

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

[doctorraz]

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

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

----- добавлено через ~2 мин. -----
даже автодеск это не пользует в своих вертикалках (а они то в курсе).. параметризация и дин блоки с табицами параметров.... это такое г...

[Сергей812]

Сообщение от Simson как исправить?

читать справку. И смотреть не только на аргументы, но и на тип возвращаемого значения.

[Simson]

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

----- добавлено через ~1 мин. -----

Сообщение от Сергей812 И смотреть не только на аргументы, но и на тип возвращаемого значения.

подробнее не скажете? секрет?