[hwd]

На сервере, в некотором каталоге "//aaa/bbb/ccc/ddd/eee/AcadLibs/" разместил файл Acaddoc.lsp со следующим содержимым:

Код:

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

;;;Исключаю возможность перезаписи метода S::STARTUP...
(setq S::STARTUP (append S::STARTUP HwdStartup))

(defun-q HwdStartup()
(princ "\nПроверка связи...")
(command "AcadLayoutsCountLoad")
)
;;;Подгружаю .Net библиотеку...
(defun c:AcadLayoutsCountLoad()
  (setq echo (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq fd (getvar "filedia"))
  (setvar "filedia" 0)
  (command "netload" "//aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll")
  (setvar "filedia" fd)
  (setvar "cmdecho" echo)
)

В диалоговом окне Options, на вкладке Files добавил путь "//aaa/bbb/ccc/ddd/eee/AcadLibs" и установил его первой строчкой.
Однако получаю две проблемы:
1. Не происходит автоматической загрузки файла Acaddoc.lsp, несмотря на то, что каталог поиска добавлен.
2. Не удаётся загрузить .Net библиотеку из командной строки. Даже если вручную установлю "filedia" в 0 и выполню команду netload, указав путь "//aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll" или же "//aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount" (т.е. без расширения файла) - загрузки библиотеки не происходит.

В чем проблемы?

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

.NET-сборки из ком.строки не загружаются. На caduser.ru А.Ривилис показывал ссылки на ветки реестра, куда надо данные о сборках записывать. По-моему, аналогичное было и в DevTV, но сейчас не проверить

[hwd]

Сообщение от Кулик Алексей aka kpblc .NET-сборки из ком.строки не загружаются. На caduser.ru А.Ривилис показывал ссылки на ветки реестра, куда надо данные о сборках записывать. По-моему, аналогичное было и в DevTV, но сейчас не проверить

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

Кроме того, не понял тогда офиц. инфы. смысл тогда делать вариант команды netload строчный, если он не работает?

Если я каждому юзеру пришлю эту информацию:

Создаём reg-файл, который произведет в реестре нужные изменения, решив вопрос со своевременным подключением библиотеки:

Текст нашего reg-файла:

Для русской версии AutoCAD 2009:

Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.2\ACAD-7004:409\Applications\Bushman] "LOADER"="C:\\AcadPlagins\\AcadLayoutsCount.dll" "LOADCTRLS"=dword:00000002 "MANAGED"=dword:00000001

Для английской версии AutoCAD 2009:

[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.2\ACAD-7001:409\Applications\Bushman] "LOADER"="C:\\AcadPlagins\\AcadLayoutsCount.dll" "LOADCTRLS"=dword:00000002 "MANAGED"=dword:00000001

Рассмотрим содержимого reg-файла более подробно:

"[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.2\ACAD-7004:409\Applications\Bushman]" - здесь мы добавляем новую группу - "Bushman", в которой будут размещаться наши записи. Добавление группы обязательно! Она может иметь др. имя, но она должна быть!

Внимание!
Код писался и тестировался под 2009-ю версию AutoCAD. Если у вас другая версия программы, то вместо "\R17.2\ACAD-7001:409\" (или вместо "\R17.2\ACAD-7004:409\", если у вас русская версия AutoCAD) у вас будет другое содержимое. Откройте редактор реестра (комманда regedit из командной строки Windows) и пройдите по выше указанной ветви, дабы увидеть именно ваши значения. Внесите в reg-файл данное изменение.

Если вы внесли изменение, но ничего не заработало - значит наверняка вы ошиблись при подправлении reg-файла.
Убедиться в этом можно так: Если в командной строке AutoCAD вызвать команду "NETLOAD", и в появившемся диалоговом окне выбрать файл AcadLayoutsCount.dll - произойдет загрузка библиотеки. Теперь произведите любую операцию с листами, которая должна повлиять на счетчик листов. Если вы видите, что всё работает (о чём будет выводиться текстовая информация в командной строке AutoCAD) - значит вы напортачили при правке reg-файла. Будьте внимательней - исправьте свою ошибку.

"LOADCTRLS"=dword:00000002 - данный параметр указывает, что dll-файл необходимо загружать при открытии приложения. Значение "2" указывает на необходимость.
"MANAGED"=dword:00000001 - данный параметр указывает, что dll-файл является управляемым кодом.
"LOADER"="C:\\AcadPlagins\\AcadLayoutsCount.dll" - Данный параметр указывает полный путь к файлу нашей библиотеки (если вы сохраняете библиотеку в др. каталоге - измените эту строчку кода, указав ваш путь).

Таким образом всё, что от нас требуется - это разместить на диске "C:" каталог "AcadPlagins", в который закинуть файлы нашей сборки. После этого запустить на исполнение наш reg-файл. Всё, задача решена. Теперь можно открывать AutoCAD и работать.

они её скорее даже читать не будут, а если и будут - править реестр не смогут, т.к. в политике стоит запрет на использование regedit (админ доступ не даст - наотрез отказался)...

Потому хотелось бы через acaddoc.lsp

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

Сообщение от Кулик Алексей aka kpblc .NET-сборки из ком.строки не загружаются.

У меня загружается:

Код:

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

(command "_netload" "E:/RAN/C#/2007/GetClassList/GetClassList/obj/Debug/GetClassList.dll")

Сообщение от hwd 1. Не происходит автоматической загрузки файла Acaddoc.lsp, несмотря на то, что каталог поиска добавлен.

По поводу загрузки acaddoc.lsp смотри системную переменную ACADLSPASDOC
А вот по сети так (IMHO) не получится так грузить сборку по двум причинам:
1. Нельзя первые "\\\\" менять на "//"
2. Нужны соответствующие права для выполнения .NET-сборки по сети: http://kpblc.blogspot.com/2009/09/net.html

[hwd]

Сообщение от Александр Ривилис [/code]По поводу загрузки acaddoc.lsp смотри системную переменную ACADLSPASDOC

про это я знаю.

Сообщение от Александр Ривилис 1. Нельзя первые "\\\\" менять на "//"

спасибо, учту, хотя, честно говоря удивился такому ограничению...

Сообщение от Александр Ривилис 2. Нужны соответствующие права для выполнения .NET-сборки по сети: http://kpblc.blogspot.com/2009/09/net.html

Спасибо, сейчас буду разбираться...

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

Подумай над написанием своего простенького инсталлятора, который находит установленные AutoCAD'ы и по выбору пользователя (из выпадающего списка) прописывает твою .NET-сборку в автозагрузку. В принципе это можно сделать и из самой сборки. Тогда один раз необходимо ее будет загрузить вручную, а она все что надо пропишет в реестр.

[hwd]

Сообщение от Александр Ривилис Подумай над написанием своего простенького инсталлятора, который находит установленные AutoCAD'ы и по выбору пользователя (из выпадающего списка) прописывает твою .NET-сборку в автозагрузку. В принципе это можно сделать и из самой сборки. Тогда один раз необходимо ее будет загрузить вручную, а она все что надо пропишет в реестр.

Да я вот параллельно как раз этим и занят... Однако хотелось бы уметь решать данную задачу и посредством подключения .нет библиотек через файл acaddoc.lsp

Изменил файл Acaddoc.lsp так:

;;;Исключаю возможность перезаписи метода S::STARTUP... (setq S::STARTUP (append S::STARTUP HwdStartup)) (defun-q HwdStartup() (princ "\nПроверка связи...") (command "AcadLayoutsCountLoad") ) ;;;Подгружаю .Net библиотеку... (defun c:AcadLayoutsCountLoad() (setq echo (getvar "cmdecho")) (setvar "cmdecho" 0) (setq fd (getvar "filedia")) (setvar "filedia" 0) (command "netload" "\\aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll") (setvar "filedia" fd) (setvar "cmdecho" echo) )

Выполнил через командную строку указанную по ссылке операцию:

Microsoft Windows XP [Версия 5.1.2600] (С) Корпорация Майкрософт, 1985-2001. C:\Documents and Settings\hwd>CasPol.exe -m -ag 1.2 -url "\\aaa/bbb/ccc/ddd/eee/AcadLibs/" FullTrust Microsoft (R) .NET Framework CasPol 2.0.50727.3053 Copyright (c) Microsoft Corporation. All rights reserved. The operation you are performing will alter security policy. Are you sure you want to perform this operation? (yes/no) y Added union code group with "-url" membership condition to the Machine level. Success

однако результат по прежнему нулевой...

п.с. пытался и так:

;;;Исключаю возможность перезаписи метода S::STARTUP... (setq S::STARTUP (append S::STARTUP HwdStartup)) (defun-q HwdStartup() (princ "\nПроверка связи...") (command "AcadLayoutsCountLoad") ) ;;;Подгружаю .Net библиотеку... (defun c:AcadLayoutsCountLoad() (setq echo (getvar "cmdecho")) (setvar "cmdecho" 0) (setq fd (getvar "filedia")) (setvar "filedia" 0) (command "netload" "\\\\aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll") (setvar "filedia" fd) (setvar "cmdecho" echo) )

Выполнил через командную строку указанную по ссылке операцию:

Microsoft Windows XP [Версия 5.1.2600] (С) Корпорация Майкрософт, 1985-2001. C:\Documents and Settings\hwd>CasPol.exe -m -ag 1.2 -url "\\\\aaa/bbb/ccc/ddd/eee/AcadLibs/" FullTrust Microsoft (R) .NET Framework CasPol 2.0.50727.3053 Copyright (c) Microsoft Corporation. All rights reserved. The operation you are performing will alter security policy. Are you sure you want to perform this operation? (yes/no) y Added union code group with "-url" membership condition to the Machine level. Success

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

Сообщение от hwd однако результат по прежнему нулевой...

Нулевой это что? Не загрузился acaddoc.lsp? Загрузился acaddoc.lsp но не выполнилась команда _netload? Выполнилась команда _netload, но сборка не работает?

[hwd]

Сообщение от Александр Ривилис Нулевой это что? Не загрузился acaddoc.lsp? Загрузился acaddoc.lsp но не выполнилась команда _netload? Выполнилась команда _netload, но сборка не работает?

• не грузится acaddoc.lsp
• не выполнилась команда _netload (даже если загрузить acaddoc.lsp принудительно)
• не работает команда AcadLayoutsCountLoad, даже если её вызвать вручную после загрузки acaddoc.lsp

п.с. сборка рабочая, т.к. изначально сделал автоматическую загрузку через реестр. всё работало. а вот через acaddoc.lsp ни в какую не получается...

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

А почему в пути слеши не на сетевой каталог указывают?
Уже подправлено, неактуально.
P.S. лично я стараюсь не смешивать в лиспе прямые и обратные слеши. Не всегда работает корректно.

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

Если ты вводишь в командной строке:

Код:

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

(command "netload" "\\\\aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll")

Отрабатывает нормально? Не должно так работать. Ты же в курсе, что "\\" означает паузу в воде команд.
Резюме. Можешь еще долго с этим парится, но нормальное решение, это копировать сборку на локальный PC и там ее регистрировать в автозапуске (реестре).

[hwd]

Сообщение от Кулик Алексей aka kpblc А почему в пути половина слешей "перепутаны"?

я уже не знаю как в каком случае для автокада слэши указывать )
ранее думал, что слешь для автокада, это "/" или же "\\" что для этой программы одно и то же. теперь оказывается, что если я указываю сервер, то "//" ставить нельзя... нужно "\\\\"...
где там чего напутано?

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

Я ж написал, что "исправлено, теперь неактуально" ))

[hwd]

Сообщение от Александр Ривилис Резюме. Можешь еще долго с этим парится, но нормальное решение, это копировать сборку на локальный PC и там ее регистрировать в автозапуске (реестре).

я пробовал вручную вызывать netload и вставлять в качестве имени файла "\\\\aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll" никакой паузы не возникало.

Сообщение от Александр Ривилис Резюме. Можешь еще долго с этим парится, но нормальное решение, это копировать сборку на локальный PC и там ее регистрировать в автозапуске (реестре).

у юзеров нет прав на работу с реестром... т.о., reg-файл они не смогут использовать...

2 Кулик Алексей aka kpblc
>Я ж написал, что "исправлено, теперь неактуально" ))

не понял тебя... поясни

млин... оказывается ещё и CasPol.exe не добавила права на вызов библиотеки, лежащей на серваке...

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

Сообщение от hwd я пробовал вручную вызывать netload и вставлять в качестве имени файла "\\\\aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll" никакой паузы не возникало.

Что же из тебя информацию нужно клещами тянуть? Так сборка загрузилась или нет? Ты проверил что команда, определенная в сборке после этого запускается?

Сообщение от hwd у юзеров нет прав на работу с реестром... т.о., reg-файл они не смогут использовать...

У них есть права на запись в HKEY_CURRENT_USER (в частности HKEY_CURRENT_USER\Software\Autodesk\AutoCAD - иначе бы AutoCAD не запускался). Тебе нужно писать сюда: HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.2\ACAD-7001:XXX\Applications для AutoCAD 2009

[hwd]

Значит так...
Изначально (вчера) я разместил библиотеку на локальной машине, добавил в реестр соответствующие изменения - всё заработало как нужно.
Но это у меня на машине.
Я пошёл к начальнику IT отдела и предложил закинуть библиотеку в сетевой каталог, доступный всем, чтобы пользователи каждый раз при открытии документа подгружали эту библиотеку (т.е. на их компах локальной копии нет) - так проще обновлять библиотеки (заменил на серваке - изменилось у всех).
Закинули мы библиотеки на сервак.
после этого (уже сегодня) я грохнул у себя в реестре запись по автозагрузке моей библиотеки для каждого документа, решив всё реализовать посредством acaddoc.lsp файла, который закинул в тот же каталог на сервере, где лежит библиотека.

с сервера сборку загрузить так и не могу даже вручную...

касательно правки реестра - админ сказал, что у всех пользователей нет прав на изменения даже их собственной ветки реестра и regedit запрещён политикой, и что либо менять он не будет, мол как хочешь, так и извращайся, но в реестр не пущу. Единственно - мне дал права на доступ к реестру моего компа, но др. юзерам не даст...

Прочёл статью на аглицком, приведенную Александром....
подправил строку шары:

CasPol.exe -m -ag 1.2 -url "file://\\aaa/bbb/ccc/ddd/eee/AcadLibs/*" FullTrust

теперь удалось подключить вручную через netload...

файл acaddoc.lsp вроде как автоматом сам загружается, хотя сообщения "\nПроверка связи..." я не получаю на экране, следовательно не происходит автоматической загрузки метода S::STARTUP

если вручную вызываю команду AcadLayoutsCountLoad - она запускается.

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

Сообщение от hwd касательно правки реестра - админ сказал, что у всех пользователей нет прав на изменения даже их собственной ветки реестра и regedit запрещён политикой, и что либо менять он не будет, мол как хочешь, так и извращайся, но в реестр не пущу. Единственно - мне дал права на доступ к реестру моего компа, но др. юзерам не даст...

1. regedit тебе не нужен - на .NET напишешь то, что нужно по работе с реестром.
2. если у них нет прав писать в собственную ветку реестра - AutoCAD не будет работать по определению. Ну пишет он в свою ветку постоянно. Значит все-таки права есть, т.к. AutoCAD работает. Так вот напиши и проверь у кого-нибудь "бесправного".

[hwd]

Сообщение от Александр Ривилис 1. regedit тебе не нужен - на .NET напишешь то, что нужно по работе с реестром. 2. если у них нет прав писать в собственную ветку реестра - AutoCAD не будет работать по определению. Ну пишет он в свою ветку постоянно. Значит все-таки права есть, т.к. AutoCAD работает. Так вот напиши и проверь у кого-нибудь "бесправного".

Сейчас схожу попробую...

Если подправить лисп-файл так:

;;;Исключаю возможность перезаписи метода S::STARTUP... ;;;(setq S::STARTUP (append S::STARTUP HwdStartup)) (defun-q S::STARTUP() (princ "\nПроверка связи...") (c:AcadLayoutsCountLoad) ) ;;;Подгружаю .Net библиотеку... (defun c:AcadLayoutsCountLoad() (setq echo (getvar "cmdecho")) (setvar "cmdecho" 0) (setq fd (getvar "filedia")) (setvar "filedia" 0) (command "netload" "\\\\aaa/bbb/ccc/ddd/eee/AcadLibs/AcadLayoutsCount.dll") (setvar "filedia" fd) (setvar "cmdecho" echo) )

всё заработало (т.е. как мне и нужно - происходит автоматическая загрузка библиотеки и вызов метода AcadLayoutsCountLoad).
Но почему не происходит автоматического выполнения команды AcadLayoutsCountLoad при таком варианте? :

;;;Исключаю возможность перезаписи метода S::STARTUP... (setq S::STARTUP (append S::STARTUP HwdStartup)) (defun-q HwdStartup() (princ "\nПроверка связи...") (c:AcadLayoutsCountLoad) ) ;;;Подгружаю .Net библиотеку... (defun c:AcadLayoutsCountLoad() (setq echo (getvar "cmdecho")) (setvar "cmdecho" 0) (setq fd (getvar "filedia")) (setvar "filedia" 0) (command "netload" "\\\\aaa/bbb/ccc/ddd/eee/AcadLayoutsCount.dll") (setvar "filedia" fd) (setvar "cmdecho" echo) )

?

Похоже я понял в чём дело...

По видимому имеет значение порядок записи (определений) функций.
Так всё работает:

(defun-q HwdStartup() (princ "\nПроверка связи...") (c:AcadLayoutsCountLoad) ) ;;;Подгружаю .Net библиотеку... (defun c:AcadLayoutsCountLoad() (setq echo (getvar "cmdecho")) (setvar "cmdecho" 0) (setq fd (getvar "filedia")) (setvar "filedia" 0) (command "netload" "\\\\hyprostroy/dfs/SystemFolder/tools/AutoCAD tools/AcadLibs/AcadLayoutsCount.dll") (setvar "filedia" fd) (setvar "cmdecho" echo) ) ;;;Исключаю возможность перезаписи метода S::STARTUP... (setq S::STARTUP (append S::STARTUP HwdStartup))

[AID88]

А можете на пальцах пояснить порядок действий, чтобы подключить счетчик листов в акад?
Версия - акад2017.
Пробовал подключить таким образом скачал папку с библиотекой, создал файл AcadLayoutsCountLoad.lsp на рабочем столе, ставлю этот файл в автозагрузку.
Счетчик не работает.

[Boxa]

Скачали папку... какую? откуда? куда ее положили? какую версию библиотеки пытаетесь запустить?

[AID88]

Boxa, отсюда скачал библиотеку для создания счетчика листов в файле https://sites.google.com/site/bushma...ov-v-dwg-fajle.
Здесь как раз обсуждалось, как с помощью лиспа подключить ее в автокад.

[Boxa]

AID88, а Вас не смутила дата публикации этой библиотеки? Все таки октябрь 2011 года, это довольно давно.
Да и библиотека собрана под .NET 3.5 и автокад 2009, а Вы ее пытаетесь запустить на .NET 4.6 и акад 2017.
В общем в том виде в котором библиотека сейчас, она работать не будет, нужно пересобирать.

[AID88]

Boxa, вобщем жаль=)

[Boxa]

попробуйте обратиться к автору, может он Вам поможет, он часто тут бывает.

[skkkk]

Рискую немного зайти в оффтоп, но раз уж я знаю ответ на вопрос, в который перетекла эта тема, то отпишусь. Набросал наскоро решение на лиспе, которое вроде бы (если все правильно понял), выполняет ту же функцию. Должно работать на любой версии Автокада, но мне удалось потестировать только на 2011-й и 2015-й.
В общем, вот код:

Код:

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

 (if (null *SHEETS-COUNT-MOD-REAC*) 
	(setq *SHEETS-COUNT-MOD-REAC*
		(vlr-object-reactor 
			(list (setq *LAYOUTS* (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))))
			nil
			(list 
				'(:vlr-modified . sheets_count_modified)
			)
		)
	)
)

(defun sheets_count_modified (*LAYOUTS* data reac / i)
	(setq i -1)
	(vlax-for x *LAYOUTS* (setq i (1+ i)))
	(setvar "USERI1" i)
	(princ)
)
(sheets_count_modified *LAYOUTS* nil nil)

Добавляем его в автозагрузку и создаем в нужном месте поле: либо с формулой, которая указана на сайте по ссылке (%<\AcVar USERI1>%), либо в диалоговом окне создания поля по пути: Категория полей - Другое -> Имена полей - СистемнаяПеременная -> USERI1.

Теперь о том, как работает код. Он создает реактор на событие изменения семейства ЛИСТОВ. При добавлении или удалении листа (а также при открытии чертежа, если добавлен в автозагузку) он срабатывает (реагирует) и назначает указанной системной переменной значение актуального количества листов, эту переменную и подхватывает созданное поле. После обновления привычным способом поле содержит в себе цифру, соответствующую количеству листов в файле. Правда, как в коде по ссылке, не обрабатываются листы-черновики (имя которых начинается с "_"), но это несложно добавить, если понадобится.

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

Только постоянным его не делай: http://adn-cis.org/use-persisten-reactors.html

[skkkk]

Кулик Алексей aka kpblc, спасибо за важное замечание и полезную статью.
Правильно ли я понимаю, что создав этот реактор (запустив код выше), проверив его на постоянность

Код:

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

(vlr-pers-p *SHEETS-COUNT-MOD-REAC*)

и получив nil, я могу быть уверен, что он непостоянный?
То есть, постоянным его надо именно сделать, а по умолчанию он живет, пока открыт файл?

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

Я бы принудительно их делал непостоянными:

Determines whether a reactor is persistent (vlr-pers-p reactor) Arguments reactor A VLR object. Return Values The specified reactor object, if it is persistent; nil, if the reactor is transient. Examples Make a reactor persistent: _$ (vlr-pers circleReactor) #<VLR-Object-Reactor> Verify that a reactor is persistent: _$ (vlr-pers-p circleReactor) #<VLR-Object-Reactor> Change the persistent reactor to transient: _$ (vlr-pers-release circleReactor) #<VLR-Object-Reactor> Verify that the reactor is no longer persistent: _$ (vlr-pers-p circleReactor) nil

Кода автора я не помню, увы И сказать, делал он реакторы постоянными принудительно или они "сами такие получались", не смогу