[DonVik]

В общем задача такая:
Я кликаю по мной созданной кнопке на ToolBarе автокада и должен выполниться скрипт, который просит выбрать блок на листе, после чего должна появиться форма в которой я некоторые атрибуты редактю и заменяю.
Вот скрипт:

Код:

[Выделить все]

Option Explicit
Dim o As Object
Dim varAttributes, p As Variant
Dim br As AcadBlockReference

Private Sub CommandButton1_Click()
 varAttributes(LBound(varAttributes)).TextString = UserForm1.EdRazrab.Text
 If UserForm1.EdObozn.Text <> "" Then
  varAttributes(LBound(varAttributes) + 5).TextString = UserForm1.EdObozn.Text
 End If
 If UserForm1.EdObozn.Text <> "" Then
  varAttributes(LBound(varAttributes) + 12).TextString = UserForm1.EdObozn.Text
 End If
End Sub

Private Sub UserForm_Activate()
 Dim u As String
 Dim fs, a As Variant
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set a = fs.OpenTextFile("d:\EditStampIni.txt", 1)
 EdRazrab.Text = a.ReadLine
 a.Close
End Sub

Private Sub UserForm_Initialize()
 ActiveDocument.Utility.GetEntity br, p, "Âûáåðè øòàìï"
 UserForm1.Show
End Sub

Это обработчики формы
А вот сама главная процедура макроса:

Код:

[Выделить все]

Sub EditStamp()
 UserForm1.hide
End Sub

В тулбаре на кнопке прописано такое:

Код:

[Выделить все]

vbarun _EditStamp

Это название макроса.

Так вот вопросы: Как бы вы решили эту задачу? Как правильно запускать макрос с формой?
Он запускается, но есть два но:
1. Перед запуском вылезает окошко с вопросом какой макрос нужно запустить, это пугает пользователей. Как прописать запуск именно этого макроса
2. Ругается при закрытии формы на

Код:

[Выделить все]

Sub EditStamp()
 UserForm1.hide
End Sub

мол object variable not set
Как от этого избавиться?

[DonVik]

Александр Бауск

Лана, че уж там... Мне действительно удобнее написать центровые процедуры на Делфи в ДЛЛ, а потом в ВБА просто вызывать их...

Короче трабла из всего осталась только с багом при закрытии формы...
Будут еще напутствия по этому?

[fixo]

Сообщение от DonVik fixo неа... ТА же ошибка.

Вставляешь модуль напр. Module1
Вставляешь код

Код:

[Выделить все]

Option Explicit

Sub runMe()
Dim frm As UserForm1
Set frm = New UserForm1
frm.Show
End Sub

UserForm1 - название твоей формы
У меня работает во всех моих проектах

~'J'~

[DonVik]

Вставляешь модуль напр. Module1 Вставляешь код

Так?:

Код:

[Выделить все]

Option Explicit

Sub EditStamp()
 Dim frm As UserForm1
 Set frm = New UserForm1
 frm.Show
End Sub

по прежнему Ругается на то что UserForm1 not set (короче та же ошибка)

[fixo]

Тогда делай проще

Код:

[Выделить все]

Option Explicit

Sub EditStamp()
UserForm.Show
End Sub

[DonVik]

Тогда делай проще

Млин. Та же чепуха.

Лана сделаю так: пихну все в ДЛЛ и форму в том числе...

[Mozgunov]

А не подскажите вот по какому вопросу:
К менюшке привязан макрос

Код:

[Выделить все]

^C^C;vbarun;"C:/KonstruktorDetaley/shpilka.dvb!ThisDrawing.shpilka"

Первый раз макрос вызывается и запускается без проблем. После того как он выполнил все нужные действия форма Unload UserForm1 . не вводя после этого никаких команд нажимаю пробел, для запуска макроса ещё раз. Но он требует вновь ввести имя. Как с этим бороться? Слепить как-то vbarun и путь до макроса. Спасибо!

[Mikha]

>>Mozgunov
Повесь на кнопку следующий макрос:

Код:

[Выделить все]

^C^C(defun c:runvba () (vl-vbarun "C:/KonstruktorDetaley/shpilka.dvb!ThisDrawing.shpilka"));runvba;

1.Вместо runvba команду можешь назвать как угодно
2.Команду можно будет запустить из командной строки
3.Команда будет повторно выполняться при нажатии Enter, пробел и т.п.

[Mozgunov]

Mikha, Сапсибо! Счас на кнопку повешу команду. А то я через подгрузку lsp файла делал с набором команд

Код:

[Выделить все]

defun c:команда

. А на кнопке уже писал просто

Код:

[Выделить все]

^C^Cкоманда

P.S. Ребят есть три точки A,B,C. Как на VBA подсчитать угол ABC?

[gomer]

А че в панели свойств атрибуты нельзя поменять?

[Mozgunov]

gomer, А че поподробнее можно написать что за панель свойств и как менять атрибуты программно на VBA?

[gomer]

1. Панель свойств вызывается: Ctrl+1;
2 По сути темы: Окно должно вызываться модально (с аргументом, кажется, vbModal для перестраховки);

Лана сделаю так: пихну все в ДЛЛ и форму в том числе...

3. Я про эти "ИЗВРАЩЕНИЯ" с Delphi уже высказывался...