Interface-Program

> bender
Спасибо за ответ. Во всем этом очень полезном сайте ни разу не встречается даже термина TextBox и, конечно же, нет разъяснений как им пользоваться.
Все, что мне нужно рассчитать и начертить, мой макрос считает и чертит. Мне нужно, чтобы исходные данные вводились через удобный пользовательский интерфейс, потому что я должен передать макрос для пользования еще большему лоху, чем я.
При запуске макроса выполняется UserForm1.Show.
UserForm1 имеет четыре TextBox для ввода значений и управляющие кнопки ?Сброс? и ?ОК?.  При нажатии кнопки ?Сброс? все TextBox должны очищаться и это выполняется. При нажатии ?ОК? переменным должны присваиваться текущие значения TextBox,  UserForm1 должна закрыться и продолжается выполнение основной программы:
Private Sub CommandButton1_Click()
     TextBox1 = ""
     TextBox2 = ""
     TextBox3 = ""
     TextBox4 = ""
End Sub
Private Sub CommandButton2_Click()
    Dim A1 As String
    Dim B1 As String
    Dim C1 As String
    Dim D1 As String
    A1 = TextBox1.Text
    B1 = TextBox2.Text
    C1 = TextBox3.Text
    D1 = TextBox4.Text
    UserForm1.Hide
End Sub
Но основная программа тормозится на последней строке, потому что переменным не присваиваются значения и имеет место деление на ноль:
   ........................
    Dim A As Double
    Dim B As Double
    Dim C As Double
    Dim D As Double
    Dim E As Double
    Dim F As Double
    Dim G As Double
    Dim H As Double
    UserForm1.Show
    A = Val(A1)
    B = Val(B1)
    C = Val(C1)
    D = Val(D1)
    E = A / 3.1415926536
    F = B / 3.1415926536
    G = Sqr(((E - F) / 2) ^ 2 + C ^ 2 - D ^ 2)
    H = 3.1415926536 / 2 - Atn(2 * C / (E - F)) + Atn(D / G)
   ..................................................................................
Вопрос простой: как присвоить переменным значения, введенные в TextBox?
Где именно про это можно прочитать?

Прошенья просим.

Dim Dialog As New myForma
Load myForma
myForma.Show
With Dialog
    A = TextBox1.Text
    B = TextBox2.Text
    C = TextBox3.Text
    D = TextBox4.Text
End With
Unoad myForma
........

Господи, ну сколько же можно об одном и том же, об одном и том же. Пользуйтесь поиском!
В общем виде

Dim appAutoCAD As Object
Set appAutoCAD = GetObject(, "AutoCAD.Application")
If Err <> 0 Then
    Set appAutoCAD = CreateObject("AutoCAD.Application")
End If

> bender
Объяснять непонимающим ? очень тяжелая работа. Вы даже не представляете как я Вам сочувствую.
Один раз мы меня отправили с моими проблемами по TextBox на сайт, где этот термин даже не упоминается. Дали вариант решения, который не работает.
Теперь дали решение по другой проблеме. Создал макрос в Excel, подгрузил Reference на все автокадовское, между Sub и End Sub вставил Ваш ?общий вид?. Предполагается, что Автокад должен запуститься, но при запуске макроса Excel предлагается сделать Debug ?Set appAutoCAD = GetObject(, "AutoCAD.Application")?.
Спасибо за совет пользоваться поиском. Перелопатил кучу сайтов на английском, испанском и русском. Решения проблемы не нашел. В этой конференции попросил совета тех, кто понимает.
Получил Ваш. Я спрашиваю, потому что не знаю. Почему Вы советуете, если мы оба не знаем? Особенно не стоит  советовать, если наивные вопросы очень уж раздражают.
Если много раз было сказано ?об одном и том же?, не могли бы Вы дать ссылку где можно было бы прочитать объяснения грамотного человека?

> Gringo
Не надо сочувствовать, надо уметь находить то, что Вам нужно. Верхнее образование небось имеется?

Там полно примеров с диалоговыми окнами. И главное понять принципы их создания и работы с ними.
Что значит: не работает?

Sub qqq()
Dim Dialog As New myForma
Dim A As Double, B As Double, C As Double, D As Double
Dim E As Double, F As Double, G As Double, H As Double
Load Dialog
Dialog .Show
With Dialog
    A = .TextBox1.Text
    B = .TextBox2.Text
    C = .TextBox3.Text
    D = .TextBox4.Text
End With
Unoad Dialog
E = A / 3.1415926536
F = B / 3.1415926536
G = Sqr(((E - F) / 2) ^ 2 + C ^ 2 - D ^ 2)
H = 3.1415926536 / 2 - Atn(2 * C / (E - F)) + Atn(D / G)
Set Dialog=Nothing
End Sub

И Вы хотите сказать, что этот код не работает?
Кстати не забудьте в модуле формы организовать проверку корректности введенным пользователем данных.

cadhelp (2004-04-15 08:10:45)  конечно прав, я поторопился. Действительно, перед тем как пытаться получить доступ к приложению (в данном случае к АКАДу) надо организовать обработчик ошибок (On Error Resume Next).
По поводу поиска. Искал только на этом сайте. Привожу только две ссылки (было гораздо больше).
https://www.caduser.ru/forum/topic4375.html
https://www.caduser.ru/forum/topic4327.html
Кстати, по поводу "подгрузил Reference на все автокадовское".
https://www.caduser.ru/forum/topic7690.html
https://www.caduser.ru/forum/topic6703.html
Раздражают не наивные вопросы (не бывают они наивными или не наивными), а то, что ответы ищут не там где надо. Книжки надо читать, и справкой пользоваться. Благо по VBA она очень приличная (на мой взгяд).

поздние

> Gringo
Хочется общения? Ну что же, давайте пообщаемся. По пунктам.

Знаете, я честно говоря так сразу и подумал.

Ну и что? Для того чтобы начать программировать на VBA для какого-нибудь приложения (в данном случае под AutoCAD), на мой взгяд, необходимо знать:
1. Объектную модель этого приложения. В переводе - хорошо в нем работать. Без этого все остальное в значительной степени теряет смысл.
2. Функции и процедуры.
3. Типы используемых данных, массивы.
4. Работа с формами (загрузка, отображение, скоытие, выгрузка). Элементы управления, их свойства.
5. Коллекции объектов.
6. Циклы: повтор определенное число раз - For...Next, перебор в коллеции - For Each...Next, условные - Do While...Loop, Do Until...Loop.
7. Инструкции условного перехода: If...Then...Else, Select Case.
8.Обработка ошибок.
9. Маленькие прятные вещи типа Object Browser, окно отладки и т. п.
Все остальное узнается по ходу дела.
Все это я написал - не из желания повыпендриваться, а для того, чтобы показать: все это описывается в любой книге по программированию на VB, или по VBA для любого приложения.
Что до объектной модели конкретно AutoCADa, здесь сложнее. Повторяю, либо надо очень хорошо в нем работать, либо найти в интернете ее описание. Ссылки не даю (просто не помню). Кажется видел на родном сайте Autodesk (могу и ошибаться) в PDF, есесно на аглицком. Там же, кстати, по Lisp и VisualLisp. Книжки российских издателей не привожу. Вам они, как я понял, без надобности.

Мои умственные способности давайте оставим в покое. К обсуждаемому предмету (программирование под AutoCAD на VBA) они не имеют абсолютно никакого отношения. Мне честно говоря глубоко по-барабану: вызывает это у Вас или у кого-нибудь еще смех. Повторю: все, что я знаю об этом предмете я узнал из справки, т. к. книжки появились значительно позднее. Очень толковая, со множеством примеров. Сиди и разбирайся. И, повторю, умственные способности здесь - дело десятое.
Что до людей, которые есть вокруг меня  и с которыми я могу (далее по тексту): вынужден разочаровать. Нету, к сожалению.

Почему же, могу. Но каждый выбирает для себя. И, кстати, в этом отношении Вы ничем не отличаетесь от такого же разработчика где-нибудь в российской глубинке. А может быть даже находитесь и в лучшем.

По-началу и я так делал. Но потом понял: толку для спрашивающего в таком ответе - никакого. И отсюда же.

А чего мне его копировать? Да, там сознательно допущены две незначительные ошибки. Вы их нашли? Если нашли, то наверняка поняли как загружать/выгружать форму. Если нет, то смотри начало абзаца.

А с чего это Вы взяли, что я всех меряю и горячюсь? Отнюдь.

Мне положительно нравиться Ваш менторский тон. Да, и еще: а пользы для кого, позвольте узнать, уважаемый?
За сим, с пожеланиями всяческих успехов, заканчиваю.

Все полезное, что можно качнуть бесплатно на русском, польском, словацком, украинском, испанском, португальском и английском языках, меня интересует. Если можете, дайте ссылку, только, пожалуйста, в абсолютно чуждой Вам манере: точно. За возможность скачать книжки именно российских издателей был бы особенно благодарен. Моему вкусу они соответствуют больше, дело не в языковых трудностях или предпочтениях.
Если искать AutoCAD+VBA, то, среди прочего, появляются несколько страниц Autodesk,  которые цитируют части сайта
http://www.caddigest.com/subjects/autoc … amming.htm
Там есть про VBA, Visual LISP, etc. Это не в PDF, но, возможно, именно этот сайт запал Вам в душу, но не в память.
Есть еще сайт, среди многих,
firststeps.narod.ru
Не берусь судить, сколько там просто скопированного help'a (90% или 95%), но зато все на русском, если кому это важно.
Писал же: "Все, что мне нужно рассчитать и начертить, мой макрос считает и чертит". Вы указываете на путь изучения основ и азбуки VBA. В самом деле не читаете то, на что пишете ответы?
А ведь Вы могли бы быть блестящим консультантом. Почему Вы не хотите быть им?