• На форуме с 29 июня 2007г.
  • Сообщений: 11
  • Спасибо: 0

Тема: создание команды TDMS, связанную с acad

нужен простой рабочий пример т.к. то, что в хелпе не работает.
хочу чтоб при запуске команды тдмс открывался чистый чертеж acad и выполнялась простейшая команда, например, построить полилинию.

  • На форуме с 24 мая 2007г.
  • Сообщений: 18
  • Спасибо: 0

Re: создание команды TDMS, связанную с acad

Попробуйте такой пример.
Замечание: после создания объекта ACAD нужно использовать его свойства и методы; их можно посмотреть в ObjectBrowser любого приложения MS Office.

Option Explicit

'==========================================================================
' Интеграция с AutoCAD.
' !!После создания объекта AutoCAD используем _его_ свойства и методы для работы.
'==========================================================================

Dim FileDialog, FName, AcadApp, AcadDocs, Doc, DocNew

' Создание объекта AutoCad
Set AcadApp = ThisApplication.Utility.StartAutoCad 
'получить коллекцию документов
Set AcadDocs = AcadApp.Documents 

'Создать новый документ: Add создает новый документ из шаблона 
'по умолчанию и устанавливает его активным
Set DocNew = AcadDocs.Add
'Нарисовать линию: SendCommand передает строку VB(VBA) в документ для обработки
DocNew.SendCommand ("_line" & vbCr & "100,100" & vbCr & "200,200" & vbCrLf)

'Выбрать документ ACAD для открытия
Set FileDialog = ThisApplication.Dialogs.FileDlg
FileDlg.Filter = "Рисунок AutoCad (*.dwg)|*.dwg||"
    
If FileDlg.Show Then
        FName = FileDlg.FileName
        'Открыть документ: функция Open(Name As String, [ReadOnly], [Password])
        'открывает указанный документ и устанавливает его активным
        Set Doc = AcadDocs.Open(FName)
        'здесь работаем с документом...
End If
'==========================================================================

  • На форуме с 29 июня 2007г.
  • Сообщений: 11
  • Спасибо: 0

Re: создание команды TDMS, связанную с acad

не работает. если акад закрыт, то ругается на Set AcadApp = ThisApplication.Utility.StartAutoCad

если открыть акад и запустить команду, то ошибка Set AcadDocs = AcadApp.Documents . не поддерживает это свойсво или метод Documents

Ответ от kurochkin (изменено: kurochkin, 16 апреля 2010г. 12:37:08)

  • На форуме с 9 апреля 2010г.
  • Сообщений: 14
  • Спасибо: 0

Re: создание команды TDMS, связанную с acad

Добрый день, господа
Подскажите ,пожалуйста, как заставить работать команду интерфейса AutoCAD - TDMS "TDMS - > Добавить атрибут из TDMS - > Вставка атрибута - функции": какой код должен быть записан в скрипте команды (вариант из справки не работает)? Мои действия следующие:
0. открыл на редактирование объект TDMS содержащий файл AutoCAD
1. создал команду в TDMS с функцией myFunc

function myFunc(Object)
         myFunc = "bla"
end function

2. вставил этот атрибут-функцию в документ AutoCAD.
3. создал блок в документе AutoCAD.
4. обновил атрибуты через интерфейс.
result: в документе AutoCAD результата функции не отражено. Ожидал увидеть слово bla

  • Откуда: Город Пафосный
  • На форуме с 15 марта 2007г.
  • Сообщений: 279
  • Спасибо: 0

Re: создание команды TDMS, связанную с acad

https://tdmsforum.ru/topic447.html