[PSW]

Подскажите, как в lisp программе получить доступ к данным записываемые в таблицы по команде ACADа:
Command: DWGPROPS

Интересуют закладки Summary и Custom.
Заранее спасибо.

[Кулик Алексей aka kpblc]

Код:

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

(vlax-dump-Object (vla-get-SummaryInfo (vla-get-ActiveDocument (vlax-get-acad-object))))
; IAcadSummaryInfo: Интерфейс IAcadSummaryInfo
; Значения свойств:
;   Author = "Автор"
;   Comments = "Заметки"
;   HyperlinkBase = "База гиперссылки"
;   Keywords = "Ключи"
;   LastSavedBy = "administrator"
;   RevisionNumber = ""
;   Subject = "Тема"
;   Title = "Название"

То есть:

Код:

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

; Получение автора документа
(vla-get-Author (vla-get-SummaryInfo (vla-get-ActiveDocument  (vlax-get-acad-object)))) ; ->"Автор"

Ну и так далее. С пользовательскими свойствами сложнее, но ненамного:

Код:

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

; Получение пользовательского свойтва по ключу
(vla-GetCustomByKey (vla-get-SummaryInfo (vla-get-ActiveDocument  (vlax-get-acad-object))) "Прочее 1" 'str)

После этого переменная str получит значение пользовательского параметра с наименованием "Прочее 1". Ну или по индексу:

Код:

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

; Получение пользовательского свойства по индексу
(vla-GetCustomByIndex (vla-get-SummaryInfo (vla-get-ActiveDocument  (vlax-get-acad-object))) 0 'key 'value)

В переменных key и value будут храниться пользовательстие свойства рисунка, отображаемые в первой строке окна.

[VVA]

Или воспользоваться готовыми ф-циями DWGRULispLib
DwgRuLispLib: Функции чтения и установки свойств рисунка

[Кулик Алексей aka kpblc]

Вот блин. Я про нее забыл напрочь Позооор!

[PSW]

kpblc , VVA большое спасибо.