• ЛещЪ
  • Восстановленный участник
  • На форуме с 19 мая 2003г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как узнать имена листов в AutoCAD их VBA Excel?

Здравствуйте,

пишу макрос в экселе создающий скрипт автокада - так как автокад ЛТ не поддерживает работу с вба.

как узнать имена листов чертежа автокада из вба экселя?

есть ли какая то переменная в .dwg которая хранит имена листов или как это вообще сделать?

огромное спасибо!

ЛещЪ.

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Как узнать имена листов в AutoCAD их VBA Excel?

Option Explicit
Option Base 0
Option Compare Text
Sub testLayoutAcad()
Dim ACAD, ADoc, Layout As Object
Dim name As String
On Error GoTo Exit_Error
Set ACAD = GetObject(, "AutoCAD.Application")
Set ADoc = ACAD.ActiveDocument
name = ""
For Each Layout In ADoc.Layouts
    If Not Layout.name Like "*model*" Then
        name = name & Layout.name & vbCr
    End If
Next
MsgBox "В файле " & ADoc.name & " имеются следующие листы:" & vbCr & vbCr & name
GoTo Exit_Here
Exit_Error:
MsgBox "Не возможно получить доступ к AutoCAD!"
Exit_Here:
Set ACAD = Nothing
Set ADoc = Nothing
Set Layout = Nothing
End Sub