[acyxou]

Столкнулся с такой проблемой, нужно сделать toggle-button на зугрузку/выгрузку приложения. А именно: если прога не загружена, то загрузить и засунуть в Startup Suite, если загружена, то выгрузить и удалить из Startup Suite.
Код из сэмплов Autodesk'а конечно хорош, но я не знаю как выгрузить приложение.

Код:

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

(if (not (member "Programm.arx" (arx)))
(arxload "Programm.arx")
)

Напомню, что сделать надо чтоб работало именно с одной кнопки.
Можно рассмотреть вариант с записью/удалением названия приложения в acad.rx файл, а не в Startup Suite.

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

arxunload поможет

[acyxou]

сам по себе arxunload не поможет!
Надо еще прикрепить функцию проверки, ее я не могу найти нигде.... т.е. если приложение загружено, то arxunload...

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

Без запущенного AutoCAD, проверка за тобой:

Код:

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

(setq arx_name "program.arx" arx_path (findfile "program.arx"))
(if (member (strcase (vl-filename-base arx_name)) (mapcar (function (lambda(x) (strcase (vl-filename-base x)))) (arx))
(arxunload arx_name))

P.S. Можно преобразовать список (arx) в строку и выполнять проверку через wcmatch. Или обернуть arxunload в vl-catch-all-apply. В общем, варианты есть

[acyxou]

Во, спасибо!
В понедельник буду тестировать

[acyxou]

Не работает

Код:

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

error: too few arguments

А что же на счет автозагрузки? Возможно еще помещать и удалять файл в автозагрузку?

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

В каком конкретно месте "ошибка"?

[acyxou]

Полагаю что в том месте, где начинается If... я загрузил свое приложение, дальше пробую твой код, надеясь что он мне его выгрузит... arx_name и arx_path значения приняли, а дальше фиг...

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

Я ж говорил, что код проверить надо

Код:

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

(setq arx_name "program.arx"
      arx_path (findfile "program.arx")
      ) ;_ end of setq
(if (member (strcase (vl-filename-base arx_name))
            (mapcar (function (lambda (x) (strcase (vl-filename-base x)))) (arx))
            ) ;_ end of member
  (arxunload arx_name)
  ) ;_ end of if

Так работает?

[acyxou]

Ага, так работает, спасибо!
А как лиспом поместить программу в автозагрузку? ну и соответственно удалить ее о туда...

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

Я пытался в свое время разобраться с этим делом, но как-то безуспешно. В результате загрузку arx (да и не только их) выполняю через mnl-файл.

[acyxou]

Алексей, короче я тут узнал что в Startup Suite приложение можно добавить следующим образом:

Код:

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

(vl-load-com)
(setq arx_name "program.arx"
      arx_path (findfile "program.arx")
)
					;
(if (not (member arx_name (arx)))
  (arxload arx_name)
)
(vl-registry-write
  (strcat
    "HKEY_CURRENT_USER\\"
    (vlax-product-key)
    "\\Profiles\\"
    (getvar "cprofile")
    "\\Dialogs\\Appload\\Startup")
    "1Startup"
    arx_path
  )

Выгружается аналогично, но тут проблема.... как узнать каким по счету идет наше загружаемое приложение? Вдруг у юзера будет несколько своих приложений помещенных в автозагрузку.....как нам определить какой ключ добавлять/удалять (1Startup, 2Startup и т.д.)? На это у меня мозгов пока не хватает....

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

А не проще для автозагрузки модифицировать файл acad.rx (дописать в него путь к arx-файлу)?

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

Ххе, это будет слишком просто и не всегда верно.
Сначала определяем вообще сколько записей в StartupSuite есть (и есть ли они вообще):

Код:

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

(setq *reg-key* (strcat "HKEY_CURRENT_USER\\"
                        (vlax-product-key)
                        "\\Profiles\\"
                        (vla-get-activeprofile
                          (vla-get-profiles
                            (vla-get-preferences
                              (vlax-get-acad-object)
                              ) ;_ end of vla-get-preferences
                            ) ;_ end of vla-get-profiles
                          ) ;_ end of vla-get-activeprofile
                        "\\Dialogs\\Appload\\Startup"
                        ) ;_ end of strcat
      ) ;_ end of setq

Теперь поехали (последовательно):

1. Получаем количество записей
   
   Код:

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

   (vl-registry-descendents *reg-key* "")

2. Читаем значения ключей
   
   Код:

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

   (mapcar
       (function
         (lambda (x)
           (cons x (vl-registry-read *reg-key* x))
           ) ;_ end of lambda
         ) ;_ end of function
       (vl-registry-descendents *reg-key* "")
       )

3. Исключаем из них, во-первых, те, у которых вначале не число, и, во-вторых, те, у которых имя arx-приложения не совпадает с program:
   
   Код:

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

   (vl-remove-if
       (function
         (lambda (x)
           (or (= (atoi (car x)) 0)
               (/= (strcase (vl-filename-base (cdr x))) "PROGRAM")
               ) ;_ end of or
           ) ;_ end of lambda
         ) ;_ end of function
       (mapcar
         (function
           (lambda (x)
             (cons x (vl-registry-read *reg-key* x))
             ) ;_ end of lambda
           ) ;_ end of function
         (vl-registry-descendents *reg-key* "")
         ) ;_ end of mapcar
       ) ;_ end of vl-remove-if

4. И теперь анализируем список: если он не nil, то приложение уже есть в списке и ничего делать не надо. Если он nil, то придется менять значение ключа NumStartup и добавлять еще один ключ, с твоим program.arx

Это все - теоретически. Практически срабатывало не всегда (причин уже не помню).
P.S. Учти, что в 2010 немного изменились функции работы с реестром, так что там надо проверять отдельно корректность кода.

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

Сообщение от Кулик Алексей aka kpblc Это все - теоретически. Практически срабатывало не всегда (причин уже не помню).

Вот именно поэтому я и предлагаю не мудрить и записать в acad.rx или в крайнем случае в реестр, но в стандартную arx автозагрузку, а не в эту, которая завязана на APPLOAD

[acyxou]

Сообщение от Александр Ривилис А не проще для автозагрузки модифицировать файл acad.rx (дописать в него путь к arx-файлу)?

если использовать acad.rx, то работы будет не меньше... запись туда arx-файла, потом "выписка" его от туда

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

Не смеши! :-)

[acyxou]

мне же нужно все это на программном уровне сделать!
Если юзеру нужно приложение, то он кликает на кнопочку, приложение загружается и помещается в автозагрузку. Если не нужно - то кликает, приложение выгружается и удаляется из автозагрузки...

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

Ну так и в чем проблема читать/писать в простой текстовый файл в котором каждая строка - путь к arx/файлу?

[VVA]

Сообщение от Кулик Алексей aka kpblc Это все - теоретически. Практически срабатывало не всегда (причин уже не помню).

На arcade это было: LISP. Реестр. Запись своих приложений в автозагрузку