|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.05.2011, 21:51 | #1 |
Пользователь
Регистрация: 17.11.2010
Сообщений: 20
|
AutoCAD и VB6
Здравствуйте! Мучаю VB6, пытаясь довести до ума работу с AutoCadом. Помогите пожалуйста назначить задачи кнопкам на приближение, отдаление, сохранение и закрытие чертежа в AutoCad
З.Ы: Последнее действие вместо закрытия окна AutoCad хамски закрывает панель VB6 '*******Процедура открытия чертежа************ Private Sub Command1_Click() Label1.Visible = True Set acd = CreateObject("autocad.application") 'запускаем AutoCAD Set dr = acd.Documents dr.Open ("C:\AutoCAD_23\Stanok.dwg") 'открываем чертеж acd.Visible = True Form1.Caption = "Станок" 'переименовываем главную форму Form1.Show Form1.Height = 10855 'устанавливаем высоту главной формы Frame1.Visible = True 'делаем видимой панель параметров Command1.Enabled = False End Sub '*******Приблизить************* Private Sub Command22_Click() End Sub '*******Отдалить************* Private Sub Command23_Click() End Sub '*******Сохранить чертеж************* Private Sub Command24_Click() End Sub '*******Закрыть программу************* Private Sub Command25_Click() Rem acd.Close 'зарываем чертеж Rem acd.quit End Sub
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
AutoCAD | MDmitriy | Помощь студентам | 1 | 01.04.2011 14:18 |
AutoCAD | AnTe | Общие вопросы Delphi | 12 | 14.06.2010 18:12 |
Работа с AutoCad | KarolinaVlad | Помощь студентам | 1 | 11.03.2010 09:05 |
Delphi и AutoCAD | Roof | Общие вопросы Delphi | 3 | 28.07.2007 23:04 |