Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA отрисовка с активной формой диалога

VBA отрисовка с активной формой диалога

Ответ
Поиск в этой теме
Непрочитано 04.10.2016, 12:48 #1
VBA отрисовка с активной формой диалога
Alfa_Mike
 
Регистрация: 04.10.2016
Сообщений: 21

Всем привет!
Накидал такой вот код, который рисует обозначение шарового крана в нулевых коорднатах по нажатию кнопки CommandButton1.
Столкнулся с проблемой, что отрисовка появляется только после выхода из формы userform1. А мне нужно чтобы при нажатии на кнопку рисовался шаровый кран, если еще раз нажать, то еще один и т.д. Подскажите, как поправить код?

Код:
[Выделить все]
Private Sub CommandButton1_Click()

Dim koord(0 To 1) As Double

Dim temp As AcadPolyline
Dim vert(0 To 14) As Double
' x                                 y                  Z
vert(0) = 0 + koord(0): vert(1) = 0 + koord(1): vert(2) = 0
vert(3) = 0 + koord(0): vert(4) = 10 + koord(1): vert(5) = 0
vert(6) = 20 + koord(0): vert(7) = 0 + koord(1): vert(8) = 0
vert(9) = 20 + koord(0): vert(10) = 10 + koord(1): vert(11) = 0
vert(12) = 0 + koord(0): vert(13) = 0 + koord(1): vert(14) = 0
Dim dlina As Double, visota As Double

On Error Resume Next
temp = ThisDrawing.ModelSpace.AddPolyline(vert)
temp.Update
dlina = 10
visota = 10
koord(0) = koord(0) + dlina
koord(1) = koord(1) + visota
End Sub
----- добавлено через ~1 ч. -----
Может я выразился не совсем ясно? Спрашивайте, если вопрос не совсем мой понятен.

Последний раз редактировалось Кулик Алексей aka kpblc, 04.10.2016 в 12:54.
Просмотров: 1528
 
Непрочитано 04.10.2016, 15:41
#2
Дмитрий Юпатов


 
Регистрация: 05.03.2009
Украина, Запорожье
Сообщений: 585


Я, конечно, не спец по VBA в автокаде, но может это оттого, что форма открывается в режиме диалогового окна (в вба это свойство формы ShowModal, и по умолчанию оно в офисном вба стоит true, а надо бы false).
Дмитрий Юпатов вне форума  
 
Автор темы   Непрочитано 04.10.2016, 15:52
#3
Alfa_Mike


 
Регистрация: 04.10.2016
Сообщений: 21


Цитата:
Сообщение от Дмитрий Юпатов Посмотреть сообщение
Я, конечно, не спец по VBA в автокаде, но может это оттого, что форма открывается в режиме диалогового окна (в вба это свойство формы ShowModal, и по умолчанию оно в офисном вба стоит true, а надо бы false).
Ровно в точку!!! Поставил значение false и все стало отрисовываться как надо!! Огромнейшее спасибо!
Alfa_Mike вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA отрисовка с активной формой диалога

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DwgRuLispLib: Функция открытия диалога Open\Save As файла (файлов) Supermax Библиотека функций 20 14.03.2018 10:05
Как оценить величину активной зоны для фильтрационного расчета (приток воды в котлован)?? NataliSP Основания и фундаменты 11 18.12.2012 22:31
Здания с активной сейсмозащитой в постсоветский период Romka Конструкции зданий и сооружений 1 28.10.2011 16:00
Выход из диалога и возврат в него!!! DANZZ Программирование 7 04.07.2006 08:36