VBA for ACAD |
Здравствуйте, гость ( Вход | Регистрация )
| Here You Can Support Our Work and .:LavTeaM:. Services |
VBA for ACAD |
 4.05.2009 - 10:16
Сообщение
#1
|
|
 Из местных  Группа: Пользователи Пользователь №: 89781 Сообщений: 58 Регистрация: 28.04.2008 Загружено: байт Скачано: байт Коэффициент: --- Спасибо сказали: 10 раз(а)  |
Может есть тут специалисты по VBА, хочу для ACADа на VBA реализовать след. вещь - поиск элементов (линий, блоков и т.д.) аналог команды - "_qselect". Для начала надо найти в чертеже все блоки с именем "*Ux", где х - лубое число от 0 до 1000 и выбрать их... можте кто поможет, подскажет...
или может кто пример скинет, чтобы просто выбирал все линии, а я потом разберусь как нить... Спасибо... Жду... |
|
 
|
 |
|
5.05.2009 - 12:49
Сообщение
#2
|
|
|
Свой человек Группа: Пользователи Пользователь №: 9904 Сообщений: 652 Регистрация: 31.01.2005 Из: С.-Петербург Загружено: байт Скачано: байт Коэффициент: --- Спасибо сказали: 36 раз(а) |
Ага, с тонкостями... Не обрабатываются "вложенные" блоки. В фильтре выбора нет дополнительной фильтрации по имени блока. В коде нет прямого указания на разбитие блока.
|
|
|
|
Agens VBA for ACAD 4.05.2009 - 10:16
blackpoint Public Sub purgeLines()
Dim obj As Object
... 4.05.2009 - 22:35 blackpoint Для ссылок на блоки (сами определения остаются):
К... 4.05.2009 - 23:04 kpblc А что делать, если блоки лежат в пространствах лис... 4.05.2009 - 23:34
Agens я как то сделал быстрее...
ЦитатаDim blockObj As A... 5.05.2009 - 09:09 kpblc Ты вот что определи - у тебя имена блоков твоих ес... 5.05.2009 - 09:21 Agens уфф... я не такой спец по VBA, в этом коде ничего ... 5.05.2009 - 09:35 kpblc Я тоже предпочитаю VisualLISP А так-то по логике ... 5.05.2009 - 09:43 Agens короче сделал я все проще
ЦитатаPrivate Sub Comman... 5.05.2009 - 12:42 Agens я не показывал эту часть...
Цитата...
Set objSelSe... 5.05.2009 - 14:01 kpblc .Delete просто удалит блок. А где разбитие?
Я зану... 5.05.2009 - 14:03 Agens Цитата(kpblc @ 5.05.2009 - 14:03) .D... 5.05.2009 - 14:23 kpblc А нету у меня такой книги. Встроенной справки зача... 5.05.2009 - 14:25 Agens kpblc, вот у меня objSelSet.Item(i).Name - это имя... 5.05.2009 - 14:31 kpblc Сейчас лиспом машина занята по самое не хочу, поэт... 5.05.2009 - 14:34 Agens Спасибо... работает... эх... я тоже так хочу ... 5.05.2009 - 14:41 kpblc Пока не забыл: для полноты картины я бы задумался ... 5.05.2009 - 14:43 Agens слушай, а ты не знаеешь, как сделать так, чтобы по... 5.05.2009 - 15:06 kpblc Стоп. А что ты посылаешь в ком.строку? Если набор ... 5.05.2009 - 15:14 Agens Цитата(kpblc @ 5.05.2009 - 15:14) Ст... 5.05.2009 - 15:31 kpblc Под подобные приложения вообще тяжело что бы то ни... 5.05.2009 - 15:39 Agens я отправляю ЦитатаThisDrawing.SendCommand "ma... 5.05.2009 - 16:01 kpblc Пойми, я лисповик Посему и решение предлагаю ... 5.05.2009 - 17:45 Agens Крыс, а не знаешь как определить количество листов... 6.05.2009 - 15:07 kpblc Количество листов:
КодThisDrawing.Layouts - 1
Если... 6.05.2009 - 15:26 Agens If Not (UCase(oLayout.Name) Like "*[*]")... 6.05.2009 - 16:28 kpblc Эта строчка означает, что в имени Layout'а не ... 6.05.2009 - 17:56 Agens строчка For Each oLayout In ThisDrawing.Layouts мн... 7.05.2009 - 10:09 kpblc Попробуем так:
Код For Each oLayout In ThisDrawin... 7.05.2009 - 10:16 Agens тогда как его сделать активным...
а если два ВЭ, т... 7.05.2009 - 11:45 kpblc Стоп. У видового экрана, по-моему, нет понятия име... 7.05.2009 - 11:47 Agens Цитата(kpblc @ 7.05.2009 - 11:47) А ... 7.05.2009 - 11:53 kpblc Так это создание ВЭ. А не активация уже существующ... 7.05.2009 - 12:27 Agens Все написал... Модуль умеет скать все листы, наход... 11.05.2009 - 08:09 Agens блин, на PaperSpace два ВЭ, а AcDbViewport_ов 5...... 11.05.2009 - 09:40 kpblc А что получается, если идти через SelectionSet?
Кс... 11.05.2009 - 19:28 Agens все получилось... просто надо было добавитьЦитатаO... 12.05.2009 - 13:21 kpblc Я почти уверен, что можно обойтись без SendCommand... 12.05.2009 - 13:31 Agens Цитата(kpblc @ 12.05.2009 - 13:31) Я... 13.05.2009 - 11:06 oleg2007 Подскажите какой командой выбрать все объекты напр... 5.09.2009 - 00:21 Agens Dim objCount As Integer
Dim I As Integer
objC... 15.10.2009 - 16:01 kpblc Вопрос: объекты, входящие в блоки - учитывать или ... 15.10.2009 - 20:58 Agens Вот я знаю как найти например однострочный текст (... 16.10.2009 - 10:21 kpblc Если текст, входящий в блоки, исключается из обраб... 16.10.2009 - 12:13 Agens А можно "на пальцах"...
Для развития мыс... 20.10.2009 - 10:05 kpblc Так а логика-то проста: создается SelectionSet с ф... 20.10.2009 - 17:07 Agens спасибо... получилось вот в таком варианте:
Цитата... 21.10.2009 - 16:49 kpblc Для ради интересу: сделай объект текста, заблокиру... 21.10.2009 - 17:37 Agens Скорее всего выдаст ошику...
Твой макрос и линии д... 22.10.2009 - 08:08 kpblc Так я на VBA и не пишу Вообще Лисп нарисовать - ... 22.10.2009 - 08:20 Agens object.Select Mode[, Point1][, Point2][, FilterTyp... 22.10.2009 - 08:22 kpblc Нечто типа:
КодdxfType(0)=0: dxfData... 22.10.2009 - 08:29 Agens Я научился создавать стиль таблицы и менять свойст... 18.12.2009 - 12:54 kpblc Да в общем-то все как обычно: создаешь объект ACAD... 21.12.2009 - 00:26 |
|
Текстовая версия | Сейчас: 16.09.2025 - 11:53 |
