| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
27.12.2005, 21:04 | #1 | |
VBA в AutoCAD
Регистрация: 11.08.2005
Сообщений: 921
|
||
Просмотров: 17341
|
|
||||
новичок Регистрация: 19.06.2005
Ярославль
Сообщений: 3,396
|
в vba получается косовато: нет динамического вида создаваемых объектов (максимум резиновая лента). если есть оригинальные задумки лучше сразу изучать си и писать .arx приложения.
если получится изучить .arx, и понравилась идея: http://dwg.ru/dwl/453 , то можно будет переписать (самому времени не хватает). |
|||
|
||||
Уважаемые коллеги!
Противоположный вопрос - а как отключить VBA в автокаде? У одной из наших сотрудниц он автоматически грузится во все файлы, создаёт ненужные и непонятные макросы, x-refы и откровенно мешает работать. Отключить не сумел, загружаеется и довольно долго при входе в ACAD. |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Можно не так жестоко, по-моему:
- поискать файл acad.dvb и снести его, если он находится по путям поддержки када. - где-то на autocad.ru вроде как была тема по поводу отключения vba-макросов. Но как это делать, я чего-то не усек - даже в какой области копаться.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
новичок Регистрация: 19.06.2005
Ярославль
Сообщений: 3,396
|
может быть в dwt шаблоне есть встроенный макрос, и по этому vba грузится автоматом. (соответственно он есть и вовсех созданных по этому шаблону файлах. и при их загрузке автоматом подгружаются vba.
Выковырять их можно так: запустить диспетчер vba: сервис->макросы-> диспетчер vba в диалоговом окне - кнопка в рамке "Рисунок" - ИЗВЛЕЧЬ или по п 2. см выше. хотя обычно макросы (хорошие) позволяют несколько расширить акад и повысить производительность. опущусь до саморекламы http://dwg.ru/dwl/453 |
|||
|
||||
новичок Регистрация: 19.06.2005
Ярославль
Сообщений: 3,396
|
Цитата:
|
|||
|
||||
Регистрация: 13.06.2005
Сообщений: 314
|
Цитата:
"_copybase 0,0,0 l " "_erase l " "_pasteclip" |
|||
|
||||
Регистрация: 24.06.2007
Minsk
Сообщений: 34
|
Может есть тут специалисты по VBА, хочу для ACADа на VBA реализовать след. вещь - поиск элементов (линий, блоков и т.д.) аналог команды - "_qselect". Для начала надо найти в чертеже все блоки с именем "*Ux", где х - лубое число от 0 до 1000 и выбрать их... можте кто поможет, подскажет...
или может кто пример скинет, чтобы просто выбирал все линии, а я потом разберусь как нить... Спасибо... Жду... |
|||
|
||||
Регистрация: 06.04.2009
Сообщений: 705
|
Sub Example()
Dim BlockObj As AcadBlockReference Dim entry As AcadEntity For Each entry In ThisDrawing.ModelSpace If entry.ObjectName = "AcDbBlockReference" Then Set BlockObj = entry MsgBox BlockObj.Name 'имя текущего блока, дальше делай с ним что нужно '(перебираются все вхождения блоков в модели) End If Next End Sub
__________________
КазнитьØнельзяØпомиловать:eek: |
|||
|
||||
Регистрация: 15.03.2010
Сообщений: 3
|
Друзья, подскажите пожалуйста начинающему программисту.
У меня есть фрагмент программного кода, который ищет первый приметив и выводит его имя: Код:
Последний раз редактировалось Кулик Алексей aka kpblc, 15.03.2010 в 11:37. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Интересно... а какие координаты должны быть в результате, например, у выноски? Или у размера?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер Регистрация: 02.10.2008
С-Пб
Сообщений: 3,685
|
Добавь после
Код:
Код:
__________________
...Не пытайся гнуть ты ложку, Не вяжи её узлом. Ложка - ложка понарошку, А по правде, - это лом! |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Это "получилось" до тех пор, пока у текста (если, конечно, имеется в виду именно однострочный текст) выравнивание установлено "вниз-влево".
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер Регистрация: 02.10.2008
С-Пб
Сообщений: 3,685
|
Ну, ошибки код не выдает и при другом выравнивании..
__________________
...Не пытайся гнуть ты ложку, Не вяжи её узлом. Ложка - ложка понарошку, А по правде, - это лом! |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Ошибку-то он не выдаст. Но вот какие результаты?
Создаем примитив TEXT следующим лиспом (ну так, чтобы запутать ): Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер Регистрация: 02.10.2008
С-Пб
Сообщений: 3,685
|
Цитата:
Код:
__________________
...Не пытайся гнуть ты ложку, Не вяжи её узлом. Ложка - ложка понарошку, А по правде, - это лом! |
|||