|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
29.07.2008, 11:33 | #1 | |
VBA, Завершение активной команды.
AutoCAD
Москва
Регистрация: 26.07.2007
Сообщений: 1,064
|
||
Просмотров: 3516
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
где отменить? Программно? Или пользователь должен это сделать?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
ThisDrawing.SendCommand "\003\003\003"
Вроде так...
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
А ты несколько раз пошли на выполнение Cancel
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Ничего не понимаю. Покажи полный код.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
AutoCAD Регистрация: 26.07.2007
Москва
Сообщений: 1,064
|
Файл выложить? Если да, то пробуй запустить команду DText. Вылезет форма для ввода текста, а потом ошибка.
А код вот: Код:
Кажись непонятно написал (вырвал отрывок). |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Пришлось код поменять. Причем прилично (прежде всего я говорю про логику):
- FormText - событие на [OK] - чуть-чуть реактор на старт команды См.аттач. --- Добавлено: проект редактировался в AutoCAD 2008.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. Последний раз редактировалось Кулик Алексей aka kpblc, 30.07.2008 в 00:48. |
|||
|
||||
AutoCAD Регистрация: 26.07.2007
Москва
Сообщений: 1,064
|
Спасибо Алексей, что подправили. Я тут сижу, один, совсем один, даже глянуть некому (с пониманием дела ).
Я так понял, что у Вас нет возможности запустить этот макрос. Во время выполнения команды, в данном случае *Text, не читается сис.переменная "cmdnames", через ThisDrawing.GetVariable. Ну и далее соответственно тоже. А смысл маленький до бесконечности. При выполнении команд DText или MText, задать высоту текста с учетом масштаба и требуемой высоты. Чувствую себя хреново. А если почитать В чем зло VBA?, вообще повеситься можно. Offtop: PS: Алексей, может добавите себе в подпись номер банк.счета. Готов отдать последний рубль, за Вашу помощь. И думаю я не один такой. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Да, про cmdnames я что-то упустил. Мой косяк.
Если так сильно надо назначать высоту текста (что однострочного, что многострочного), то я бы делал по-другому: в самом начале работы выдать форму, в которой установить высоту "по умолчанию". Записать в глобальную переменную (а еще лучше - в реестр ). А при выполнении команды *TEXT просто назначать textsize как сохраненное значение, умноженное на значение масштаба, и не мучаться. --- Добавлено: опять меня клонируют ) P.S. Шутку с номером, боюсь, не поймут
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пароль к VBA | karp_b | Программирование | 24 | 29.08.2013 12:43 |
запуск программы из AutoCADа | kminas | Программирование | 19 | 15.06.2012 13:42 |
Прозрачные команды | Vova | AutoCAD | 17 | 21.06.2006 05:33 |
Fatal Error на завершение команды 3D_orbit | ksen | AutoCAD | 3 | 15.10.2004 10:08 |