[viter_alex]

Если зайти в File→Drawing Properties, то там есть вкладка Custom, куда можно добавлять свои свойства. Вопрос в том, как их оттуда прочитать. Я так понимаю, что по-хорошему должна быть коллекция, куда эти свойства записываются. Посмотрел свойства ThisDrawing, но нашел только SummaryInfo
Интересует пока только VBA

В справке написано:
«Custom Tab (Drawing Properties Dialog Box)
Assigns custom properties to the drawing. For example, you could create a custom property called Project and assign the actual project name as the value. To assign the same custom properties to a group of drawings, create the custom properties in a drawing template file.

Custom properties are displayed in the list of field names in the Field dialog box. You also have access to the properties data using programming interfaces, such as AutoLISP®.» Они хотят сказать, что только через AutoLISP можно это наковырять?

[VVA]

LISP: DwgRuLispLib: Функции чтения и установки свойств рисунка (_dwgprops)
Arx: ObjectARX. Получение/изменение из AutoLisp свойств чертежа (Summary Info)
VBA:

[viter_alex]

Ай-я-яй, как все запущено. Подключать дополнительные библиотеки, запускать скрипты, а если еще и на нескольких машинах, да не один раз.
Значит, VBA — никак? «Много еще не доработано»©

[Александр Ривилис]

Сообщение от viter_alex Посмотрел свойства ThisDrawing, но нашел только SummaryInfo Интересует пока только VBA

Это оно и есть. Внимательно посмотри на методы работы с Custom в нем.

[viter_alex]

Сообщение от Александр Ривилис Это оно и есть. Внимательно посмотри на методы работы с Custom в нем.

Кто же знал, что там есть методы! Спасибо

[Олег (jr.)]

Переделанный пример из Help
Не нашел ссылку на оригинальный пост

What I got was an example from Autocad, but I can easily modify it to work. Here it is...

Код:

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

   'by Matersammichman 
Sub Example_SummaryInfo()
   ' This example shows how to access drawing properties
            
   ' Add and display standard properties
   ThisDrawing.SummaryInfo.Author = "John Doe"
   ThisDrawing.SummaryInfo.Comments = "Includes all ten levels of Building Five"
   ThisDrawing.SummaryInfo.HyperlinkBase = "http://www.autodesk.com"
   ThisDrawing.SummaryInfo.Keywords = "Building Complex"
   ThisDrawing.SummaryInfo.LastSavedBy = "JD"
   ThisDrawing.SummaryInfo.RevisionNumber = "4"
   ThisDrawing.SummaryInfo.Subject = "Plan for Building Five"
   ThisDrawing.SummaryInfo.Title = "Building Five"

   Author = ThisDrawing.SummaryInfo.Author
   Comments = ThisDrawing.SummaryInfo.Comments
   HLB = ThisDrawing.SummaryInfo.HyperlinkBase
   KW = ThisDrawing.SummaryInfo.Keywords
   LSB = ThisDrawing.SummaryInfo.LastSavedBy
   RN = ThisDrawing.SummaryInfo.RevisionNumber
   Subject = ThisDrawing.SummaryInfo.Subject
   Title = ThisDrawing.SummaryInfo.Title
   MsgBox "The standard drawing properties are " & vbCrLf & _
          "Author = " & Author & vbCrLf & _
          "Comments = " & Comments & vbCrLf & _
          "HyperlinkBase = " & HLB & vbCrLf & _
          "Keywords = " & KW & vbCrLf & _
          "LastSavedBy = " & LSB & vbCrLf & _
          "RevisionNumber = " & RN & vbCrLf & _
          "Subject = " & Subject & vbCrLf & _
          "Title = " & Title & vbCrLf

   ' Add and display custom properties
   Dim Key0 As String
   Dim Value0 As String
   Dim Key1 As String
   Dim Value1 As String
   Dim CustomPropertyBranch As String
   Dim PropertyBranchValue As String
   Dim CustomPropertyZone As String
   Dim PropertyZoneValue As String

   CustomPropertyBranch = "Branch"
   PropertyBranchValue = "Main"
   CustomPropertyZone = "Zone"
   PropertyZoneValue = "Industrial"

   ' Add custom properties
   If (ThisDrawing.SummaryInfo.NumCustomInfo >= 1) Then
      ThisDrawing.SummaryInfo.SetCustomByIndex 0, CustomPropertyBranch, PropertyBranchValue
   Else
      ThisDrawing.SummaryInfo.AddCustomInfo CustomPropertyBranch, PropertyBranchValue
   End If

   If (ThisDrawing.SummaryInfo.NumCustomInfo >= 2) Then
       ThisDrawing.SummaryInfo.SetCustomByKey CustomPropertyBranch, "Satellite"
   Else
       ThisDrawing.SummaryInfo.AddCustomInfo CustomPropertyZone, PropertyZoneValue
   End If

   'Get custom properties
   ThisDrawing.SummaryInfo.GetCustomByIndex 0, Key0, Value0
   Key1 = CustomPropertyZone
   ThisDrawing.SummaryInfo.GetCustomByKey Key1, Value1

   MsgBox "The custom drawing properties are " & vbCrLf & _
          "First property name = " & Key0 & vbCrLf & _
          "First property value = " & Value0 & vbCrLf & _
          "Second property name = " & Key1 & vbCrLf & _
          "Second property value = " & Value1 & vbCrLf
End Sub

~'J'~

[viter_alex]

Всем спасибо, я разобрался. Тему можно закрывать.