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

Народ, поможьте!
Суть: надо прочитать секцию files из Preferences. Я понимаю, что надо обращаться к activex, но что-то у меня никак не получается. Каким образом я могу прочитать это дело, и записать измененное?

[AY]

Хороший вопрос для вечера пятницы

А чего собственно не получается? Вот получение путей поддержки:

Код:

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

(vla-get-SupportPath
    (vla-get-Files
        (vla-get-Preferences (vlax-get-acad-object))
    )
)

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

Ну дык ить ета... В общем, работа однако была. Сеньк ю, а при записи туда данных надо весь список передавать, или можно как-то передать только одну (две / три) строку, чтобы она добавилась? А то при (vla-put-supportpath) закидывается только переданная строка...

[Лентяй]

Так эта, в чем прамблема-то? Дополнчем строку SupportPath через точку с запятой чем нужно, и дело в шляпе.

Код:

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

(setq fls (vla-get-Files (vla-get-Preferences (vlax-get-acad-object)))
      osp (vla-get-SupportPath fls)
      npth "T:\\fdkjhgfg\\jfhgkljh\\"))
(vla-put-SupportPath fls (strcat osp ";" npth))

[VetalBY]

Можно еще так прочитать

Код:

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

(getenv "ACAD")

Ну и записать

Код:

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

(setenv "ACAD" "My Path")

Что в принципе одно и то же... (старый дедовский способ )