[wetr]

Собственно, вопрос в шапке.
SECURELOAD - 0
В предыдущих версиях (2010,2011,2012) все работало...

В справке написано, что все должно работать...
SECURELOAD

0 Loads executable files without warning. This option maintains legacy behavior, but is not recommended.
1 Loads executable files only if their location is in the trusted locations specified in the TRUSTEDPATHS system variable. Displays a warning during load requests from executable files that are not in trusted locations.
2 Allows executable files to be loaded only if their location is in the trusted locations specified in the TRUSTEDPATHS system variable.

The executable file types affected by SECURELOAD include the following:
ARX, DBX, CRX, HDI files
LSP, FAS, VLX, MNL files

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

http://adn-cis.org/autocad-autoload-security.html

[wetr]

дык там я уже был. Может наискосок прочел, но не нашел решения.

Вот что там написано:

Изменения в загрузке CUIx / MNL acad.mnl (mnl - это фактически lisp-файл с измененным расширением). Вплоть до AutoCAD 2014 mnl-файлы загружались в AutoCAD сразу за соответствующим файлом меню (mnu / mns / cui / cuix). Например, acad.mnl загружался сразу после того, как был загружен acad.cuix. Множество вирусописателей использовали эту особенность, внося изменения в mnl-файлы. Очевидно, что такой стиль загрузки приложений больше нельзя назвать приемлемым. AutoCAD 2014 будет загружать mnl файл только в том случае, если mnl файл находится в "доверенном" каталоге. Если mnl не лежит в "доверенном" каталоге, при SECURELOAD = 1 AutoCAD выдаст запрос на загрузку приложения (см.предыдущий раздел). Если SECURELOAD = 2, то диалог не выводится, но и mnl не загружается.

Но у меня то значение 0. Т.е. все должно загружаться?

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

Все же проверь TRUSTEDPATHS

[wetr]

Добавил в "Доверенные положения" папку, где лежит MNL.
Один фиг не загружает.
А может быть, чтобы MNL загружался, а код из него не выполнялся?

[Do$]

Ну дело точно не в версии автокада. У меня в 2014 загружает нормально.

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

Сообщение от wetr А может быть, чтобы MNL загружался, а код из него не выполнялся?

Может, если код ошибочный. Приведи код - поглядим...

[wetr]

Но тот же самый файл в предыдущих версиях загружался 100%

Код:

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

 ;;;Отказники;;;
(setq *USERNOAUTOLAYER* '("ngorovaya" "gtur" "valentina.akulova" "nlevinskaya" "olga.mozhina"))


;;;Загрузка LISP файлов;;;
(Load "layerM.lsp")
(Load "Kr_Weld.VLX")
(Load "change text styles (cts) 1.4.LSP")
(Load "vrc_VVA.lsp")
(Load "StripMtext v5-0b.lsp")
(Load "stmp_fill_beta2.lsp")
(Load "Kr_LineOfBreakAddBlock.lsp")
(Load "Kr_DelMlineStyle.lsp")
(Load "Kr_DeleteAllObjectScale.lsp")
(Load "Kr_AddMlineStyle.lsp")
(Load "dwgprops.lsp")
(Load "MTLS.lsp")
(Load "DIN_VC.lsp")
(Load "t2m.lsp")
(Load "CopyBlock-VVA.lsp")
(Load "BreakObjects21.LSP")
(Load "extrim.LSP")
(Load "DictEdit.lsp")

;;;Загрузка ARX файлов;;;
(defun Acad64Bit-version ()
  (vl-load-com)
  (> (strlen (vl-prin1-to-string (vlax-get-acad-object))) 40)
)
;;;(setq acadver_bit
;;;       (getenv "PROCESSOR_ARCHITECTURE")
;;;      acadver_bit
;;;       (substr acadver_bit (1- (strlen acadver_bit)))
;;;) ;_ конец setq
      (if (Acad64Bit-version)
	(setq startfile "dwgconvert2010x64.arx"
	      startfile2 "explodeproxy2010x64.arx"
	      startfile3 "geomprops2010x64.arx"
	      startfile4 "selsim2010x64.arx"    
	      startfile5 "alxddike2010x64.arx" 
		)
	(setq startfile "dwgconvert2010x32.arx"
	      startfile2 "explodeproxy2010x32.arx"
	      startfile3 "geomprops2010x32.arx"
	      startfile4 "selsim2010x32.arx"    
	      startfile5 "alxddike2010x32.arx" 
		)
	  
	) ;_ конец if

(if (not (member startfile (arx)))
  (arxload startfile)
)

(if (not (member startfile2 (arx)))
(arxload startfile2)
)

(if (not (member startfile3 (arx)))
(arxload startfile3)
)

(if (not (member startfile4 (arx)))
(arxload startfile4)
)
 
(if (not (member startfile5 (arx)))
(arxload startfile5)
)

;;;Установка системных переменных;;;
(setvar "FIELDDISPLAY" 0)
(setvar "FILEDIA" 1)
(setvar "PICKADD" 1)
(setvar "SELECTIONANNODISPLAY" 0)
(setvar "ANNOAUTOSCALE" -4)
;(setvar "ANNOALLVISIBLE" 1)
(setvar "PREVIEWFILTER" 7)
(setvar "SELECTIONPREVIEW" 2)
(setvar "DIMASSOC" 1)
(setvar "PROXYSHOW" 1)
(setvar "PROXYNOTICE" 0)
(setvar "VISRETAIN" 1)
;(setvar "menubar" 1)
(setvar "MTEXTCOLUMN" 0)
(setvar "ATTIPE" 1)
(setvar "savetime" 10)



(if 
(>= (atoi (vl-string-trim "VISUALP " (strcase (ver))))
2011)
(setvar "HPQUICKPREVIEW" 0)
)

имя файла corp_01.mnl
Панель corp_01.cuix подгружается без нареканий
Все лежит в одной папке, прописанной в "Доверенных путях доступа"

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

Очень интересно... В 2014 AutoCAD загружать arx от 2010. При этом никак не "оборачивая" их в обработчик ошибок...

[wetr]

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

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

Вот как вариант (хотя я делаю по-другому):

Код:

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

 ;;;Отказники;;;
(setq *usernoautolayer* '("ngorovaya" "gtur" "valentina.akulova" "nlevinskaya" "olga.mozhina"))

(foreach file '("layerM.lsp"                 "Kr_Weld.VLX"                "change text styles (cts 1.4.LSP"
                "vrc_VVA.lsp"                "StripMtext v5-0b.lsp"       "stmp_fill_beta2.lsp"
                "Kr_LineOfBreakAddBlock.lsp" "Kr_DelMlineStyle.lsp"       "Kr_DeleteAllObjectScale.lsp"
                "Kr_AddMlineStyle.lsp"       "dwgprops.lsp"               "MTLS.lsp"
                "DIN_VC.lsp"                 "t2m.lsp"                    "CopyBlock-VVA.lsp"
                "BreakObjects21.LSP"         "extrim.LSP"                 "DictEdit.lsp"
                )
  (if (not (findfile file))
    (princ (strcat "\nCan't find file " file))
    (load file (strcat "\nError loading file " file))
    ) ;_ end of if
  ) ;_ end of foreach


;;;Загрузка ARX файлов;;;
(defun acad64bit-version ()
  (wcmatch (strcase (getvar "platform")) "*X64*")
  ) ;_ end of defun

((lambda (/ file maxarx)
   (setq maxarx (atoi (vl-string-trim "VISUALP " (strcase (ver))))
         maxarx (itoa (+ 2007 (* 3 (/ (- maxarx 2007) 3))))
         ) ;_ end of setq
   (foreach item '("dwgconvert" "explodeproxy" "geomprops" "selsim" "alxddike")
     (if (findfile (setq file (strcat item
                                      maxarx
                                      "x"
                                      (if (acad64bit-version)
                                        "64"
                                        "32"
                                        ) ;_ end of if
                                      ".arx"
                                      ) ;_ end of strcat
                         ) ;_ end of setq
                   ) ;_ end of findfile
       (arxload file (strcat "\nError loading file " file))
       (princ (strcat "\nCan't find file " file))
       ) ;_ end of if
     ) ;_ end of foreach
   ) ;_ end of lambda
 )

(foreach item '(("FIELDDISPLAY" 0)
                ("FILEDIA" 1)
                ("PICKADD" 1)
                ("SELECTIONANNODISPLAY" 0)
                ("ANNOAUTOSCALE" -4)
                ("PREVIEWFILTER" 7)
                ("SELECTIONPREVIEW" 2)
                ("DIMASSOC" 1)
                ("PROXYSHOW" 1)
                ("PROXYNOTICE" 0)
                ("VISRETAIN" 1)
                ("MTEXTCOLUMN" 0)
                ("ATTIPE" 1)
                ("savetime" 10)
                ("HPQUICKPREVIEW" 0)
                )
  (if (getvar (car item))
    (setvar (car item) (cdr item))
    ) ;_ end of if
  ) ;_ end of foreach

[wetr]

Кулик Алексей aka kpblc, спасибо за вариант. А как по другому, если не секрет?

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

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