IPB

Здравствуйте, гость ( Вход | Регистрация )

 Правила форума Всем прочитать перед созданием темы!
VBA for ACAD
Agens
сообщение 4.05.2009 - 10:16
Сообщение #1


Завсегдатай
Иконка группы

Группа: Пользователи
Пользователь №: 89781
Сообщений: 104
Регистрация: 28.04.2008
Загружено: байт
Скачано: байт
Коэффициент: ---
Спасибо сказали: 10 раз(а)



Может есть тут специалисты по VBА, хочу для ACADа на VBA реализовать след. вещь - поиск элементов (линий, блоков и т.д.) аналог команды - "_qselect". Для начала надо найти в чертеже все блоки с именем "*Ux", где х - лубое число от 0 до 1000 и выбрать их... можте кто поможет, подскажет...
или может кто пример скинет, чтобы просто выбирал все линии, а я потом разберусь как нить... Спасибо... Жду...
Перейти в начало страницы
Вставить ник
+Цитировать сообщение
 
Начать новую тему
Ответов
kpblc
сообщение 21.12.2009 - 00:26
Сообщение #2


Свой человек
Иконка группы

Группа: Пользователи
Пользователь №: 9904
Сообщений: 652
Регистрация: 31.01.2005
Из: С.-Петербург
Загружено: байт
Скачано: байт
Коэффициент: ---
Спасибо сказали: 36 раз(а)



Да в общем-то все как обычно: создаешь объект ACAD_TABLE, потом назначаешь ему стиль. В чем трудность?
Перейти в начало страницы
Вставить ник
+Цитировать сообщение

Сообщений в этой теме
- 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
- - kpblc   Ага, с тонкостями... Не обрабатываются "вложе...   5.05.2009 - 12:49
|- - 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


Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 28.03.2024 - 15:19
Ошибка работы драйвера БД

Ошибка при работе с базой данных

Возникла проблема при работе с базой данных.
Вы можете попробовать обновить эту страницу, нажав сюда