[TABAK]

Приветствую.
В нашей компании внезапно ввели жесткую IT политику и в связи с этим практически все служебные папки на диске С стали недоступны для записи.
И ровно в этот момент в автокаде перестала выполнятся загрузка lisp программ.
Пишет
_appload X-Y.lisp successfully load
и дальше автокад подвисает.

Есть версия, что эта загрузка лиспа пытается изменить какие-то файлы, которые находятся в директроии, к которой нет доступа.

Подскажите, к каким папкам надо затребовать доступ, чтобы все было хорошо?

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

Анализируй код. Сама по себе подгрузка lsp ничего не модифицирует. Это у тебя код чего-то там делает.

[Сергей812]

И что подразумевается под служебными папками? Пользователю на системном диске очень мало куда положено иметь доступ на самом деле.
И где лежат сами лиспы - не в папке в корне диска "C:\%Имя папки%"?

[TABAK]

Правильный вопрос, наверное, будет "изменяет ли загрузка лиспа файлы в папке Program Files?"
Если нет, то проблема не в разрешениях
arx приложения загружаются и работают.
А попытка загрузить лисп подвешивает автокад. (пробовал разные лиспы)
Если добавить лисп в автозагрузку, то в списке эти лиспы остаются и после перезапуска автокада. Но эффекта нет, как будто они не загрузились.
Сами лиспы лежат на C:\%Имя папки%\%Имя папки%\%Имя папки%"
Автокад свежеустановленный.

[Сергей812]

на самом деле это проблема ваших айтишников - если они являются обслуживающим персоналом по отношению к вам. Профессиональные айтишники находят баланс между безопасностью и запретами, а не тупо блокируют все подряд пользователям - что даже заставку не поменять, например)

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

TABAK, код-то покажи. Или он из разряда "совсем секретно, перед прочтением сжечь"?

[ShaggyDoc]

Сообщение от TABAK Сами лиспы лежат на C:\%Имя папки%\%Имя папки%\%Имя папки%"

Не должны они там лежать.
Все пользовательские данные должны быть в личной папке пользователя, условно называемой %AppdataFolder%. В XP это было c:\Documents and Settings\UserName\Application Data\

Или в папке общих настроек, условно называемой %CommonAppdataFolder%. В XP это было c:\Documents and Settings\All Users\Application Data\

В более поздних версиях это другие имена, например C:\Users...

Администраторы, конечно, часто тупые, но в данном случае они правы, но должны подсказать, куда размещать файлы. Иногда они и переносят штатное расположение %AppdataFolder% и %CommonAppdataFolder%

У правильных программ должен быть инсталлятор, который и положит всё "куда положено".

Сообщение от Сергей812 если они являются обслуживающим персоналом по отношению к вам

Ну, многие считают себя не обслуживающим персоналом, а...

[Сергей812]

Сообщение от TABAK А попытка загрузить лисп подвешивает автокад. (пробовал разные лиспы)

если нет, например, прав на запись в папку %Temp% (столь любимое создание диалогов на "лету") или прав на доступ к разделу реестра - лисп виснет или вываливается с ошибкой?

[TABAK]

Сообщение от Кулик Алексей aka kpblc TABAK, код-то покажи. Или он из разряда "совсем секретно, перед прочтением сжечь"?

да откуда секретное. от сюда же и скачанное.
например:

Код:

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

;|Принцип работы
1. Высота текста - переменная TEXTSIZE
2. Стрелки нет
3. Координаты берутся из ПСК
4. Точность округления настраивается системной переменной LUPREC
   команда _UNITS
   |;
;Было раньше http://www.autocad.ru/cgi-bin/f1/board.cgi?t=16704wY
;Теперь http://dwg.ru/f/showthread.php?t=14385
(defun C:XY2 ( / p1 p2)
(defun _addleader (up-string low-string   start-point end-point /   lead_obj ann_obj point-list)
  (if (not low-string)(setq low-string "")) ;_ end of if
  (setq point-list (apply 'append (list start-point end-point)))
  (setq   ann_obj    (vla-addmtext
         (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
         (vlax-3d-point end-point)
         0
         (if (/= low-string "")(strcat up-string "\\P" low-string) up-string)))
  (if (vlax-property-available-p ann_obj 'BackgroundFill)
  (vla-put-BackgroundFill ann_obj :vlax-true))
  (setq lead_obj (vla-addleader
        (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
        (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble
             (cons 0 (1- (length point-list)))) point-list)) ann_obj  acLineNoArrow ) ;_ end of vla-AddLeader
   ) ;_ end of setq
  (vla-put-attachmentpoint ann_obj
    (+ 4 (if (> (car end-point) (car start-point))
       0  2) ;_ end of if
       (if (/= low-string "")
           0 3) ;_ end of if
       ) ;_ end of +
    ) ;_ end of vla-put-AttachmentPoint
  (vla-put-insertionpoint ann_obj (vlax-3d-point end-point))
  (vla-put-verticaltextposition lead_obj acOutside)
  (vla-put-coordinate lead_obj 1 (vlax-3d-point end-point)) lead_obj)
  (vl-load-com)
  (princ "\nLUPREC value = ")(princ (getvar "LUPREC"))
  (princ "  TEXTSIZE value = ")(princ (getvar "TEXTSIZE"))
(while
  (and
    (setq p1 (getpoint "\nPoint <exit>: "))
    (setq p2 (getpoint p1 "\nDirection <exit>: "))
    )
    (_addleader
    (strcat "X=" (rtos (nth 1 p1) 2))
    (strcat "Y=" (rtos (nth 0 p1) 2))
    (trans p1 1 0)(trans p2 1 0))(princ)))
(princ "\nType XY2 in command line")

Сообщение от ShaggyDoc Не должны они там лежать. Все пользовательские данные должны быть в личной папке пользователя, условно называемой %AppdataFolder%. В XP это было c:\Documents and Settings\UserName\Application Data\ Или в папке общих настроек, условно называемой %CommonAppdataFolder%. В XP это было c:\Documents and Settings\All Users\Application Data\

Переместил лисп в %AppdataFolder%. Зависать перестало, но выдается ошибка :
; error: LOAD failed: "С:/Users/%Username%/AppDate/лисп/X-Y v2.lsp

[Сергей812]

переносите остальные лиспы, правьте пути - если где то прописаны в явном виде.. и замените путь к файлам поддержки в настройках акада самого