[Do$]

Уважаемые форумчане, прошу совета!
Возникла мысль пограммно изменять шаблон в зависимости от того, кто создает чертеж (считываем переменную "username" и в зависимости от ее значения заполняем основную надпись шаблона). Изначально идея была разместить рядом с шаблоном DWT файл acaddoc.lsp и в нем описать все необходимые манипуляции, но, как оказалось, acaddoc.lsp не запускается при создании файла на основе шаблона . Что можно еще придумать? Создавать для каждого юзера отдельный шаблон - то еще счастье...

[Лиспер]

Я бы думал о том, чтобы менять существующий файл при открытии.
Кстати, а что будет, если каталог с шаблоном и acaddoc.lsp поместить "на самый верх" в общем списке путей поддержки?

[TararykovDG]

Сообщение от Лиспер Я бы думал о том, чтобы менять существующий файл при открытии.

Поддерживаю.

Такой вариант. Создать корпоративный файл настройки (***.cui) в нем прописать что-то типа
<LSPFile>\\Server\Шаблоны\Программы и настройки\Change_Parametrs.LSP</LSPFile>
а в самом Change_Parametrs.LSP уже все на что фантазии хватит

[Do$]

А ведь и правда, если acddoc.lsp поместить не в папку шаблонов, а в папку из списка путей поддержки - то запускается при открытии/создании любого чертежа! Но пока не могу понять, как теперь определить, что создан новый чертеж на основе шаблона, а не открыт существующий?

Сообщение от TararykovDG Такой вариант. Создать корпоративный файл настройки (***.cui) в нем прописать что-то типа <LSPFile>\\Server\Шаблоны\Программы и настройки\Change_Parametrs.LSP</LSPFile> а в самом Change_Parametrs.LSP уже все на что фантазии хватит

К стыду своему, со структурой файла cui не знаком, теги <LSPFile></LSPFile> определяют автозагружаемый LISP файл?

[ShaggyDoc]

Зачем вообще менять шаблон ради того, чтобы что-то делать сязанное с именем пользователя? Тем более такое простое, как заполнение основной надписи?

Да чего угодно можно сделать в acaddoc.lsp, если вне функция будет читать какие-то настройки, записанные в файл, находящийся в каталоге пользователя. Т.е. где-то в %LocalApplicationData%. Путь к этому файлу легко вычислить независимо от Автокада вообще.

А для основных надписей скорее надо автоматически заполнять длинные строки наименований. Они могут быть в INI-файле, находящемся в папке чертежей. 100 файлов - одна запись в INI - 1000 jlbyrjds[ yflgbctq/

[Do$]

Сообщение от ShaggyDoc Зачем вообще менять шаблон ради того, чтобы что-то делать сязанное с именем пользователя? Тем более такое простое, как заполнение основной надписи?

Начать хочу с простого
Сделал динамическоий блок - границы формата+основная надпись. Динамический блок потому, что форматы все не предусмотреть заранее: чертежи выпускаем в виде "портянок" <Число>хА4, где <Число> может быть любым натуральным числом. Титул, название раздела, название чертежа - в виде многострочных атрибутов. Номер чертежа, лист, листов, стадия - однострочные атрибуты. Даты - в виде текста с полями. Фамилии - в виде однострочного текста внутри блока.
Вот и хочу, чтобы создавая чертеж на основе шаблона, в котором уже вставлен этот блок, фамилии в основной надписи менялись в зависимости от того, кто чертеж создает. При этом, хочется совершать минимум манипуляций на отдельном копьютере.
Возникла идея - на сервере разместить шаблоны чертежей, там же - файл acaddoc.lsp, там же - текстовый файлик соответствия имен пользователей и фамилий. Впоследствии можно будет извлекать и названия титулов из документа на сервере и вставлять их в основную надпись...
Вот такая вот небольшая автоматизация, при этом достаточно один раз на каждом компьютере настроить путь к шаблонам и файлу acaddoc.lsp.
Пока что нашел как определить новый файл создан или открыт существующий:

Код:

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

 (alert
  (strcat
    (getenv "username")
    ": "
    (if (findfile (strcat (getvar "dwgprefix") (getvar "dwgname")))
      "Открыт существующий чертеж!"
      "Создан новый чертеж!"
    ) ;_ end of if
  ) ;_ end of strcat
) ;_ end of alert

Как определить на основе какого шаблона создан чертеж?

[hwd]

Сообщение от Do$ Возникла идея - на сервере разместить шаблоны чертежей, там же - файл acaddoc.lsp, там же - текстовый файлик соответствия имен пользователей и фамилий. Впоследствии можно будет извлекать и названия титулов из документа на сервере и вставлять их в основную надпись...

Имхо, если уж писать код, то эту информацию (ФИО) лучше тянуть программно из Active Directory, не заморачиваясь с текстовыми файлами. Не знаю, есть ли в лиспе "реактор" на создание нового файла - в .Net API однозначно можно получить событие создания нового чертежа. Информацию вроде фамилий лучше хранить здесь:

и програмно изменять, если уж так хочется.
Инфу вроде наименования объекта и его шифра - в свойствах подшивки.
п.с.
Если интересует код, как получить эту инфу из Active Directory - могу дать пример - делается элементарно. Правда оболочку для лисп-функции сам тогда напишешь - это не сложно.

[Do$]

Осталось узнать, что такое Active Directory и с чем ее едят.

[hwd]

Сообщение от Do$ Осталось узнать, что такое Active Directory и с чем ее едят.

Active Directory.
Если коротко - в отделе кадров вашей конторы сидит девушка/бабушка, которая при приёме на работу юзеров вбивает в компьютер информацию о них. На основании этой инфы администраторы создают профили новых пользователей для того, чтобы те могли работать в составе домена. Через Active Directory ты с любого компьютера, подключенного к вашей сети сможешь получить инфу по домену/доменным группам/юзерам/компьютерам, если обратишься к нему (Active Directory) программно.
Копипаст (методы, извлекающие различного рода информацию) из Active Directory:

Код:

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

 
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml.Linq;
using System.DirectoryServices.AccountManagement;
using System.DirectoryServices.ActiveDirectory;
using System.Runtime.InteropServices;
using AdminCAD.Configuration;

namespace AdminCAD.DirectoryServices {
    /// <summary>
    /// Статический класс, предоставляющий некоторую информацию о текущем пользователе домена
    /// </summary>
    public static class CurrentDomainUser {

        /// <summary>
        /// Имя текущего доменного пользователя
        /// </summary>
        public static string GetCurrentUserName() {
            return UserPrincipal.Current.Name;
        }

        /// <summary>
        /// Отчество текущего доменного пользователя
        /// </summary>
        public static string GetCurrentUserMiddleName() { return UserPrincipal.Current.MiddleName; }

        /// <summary>
        /// Фамилия текущего доменного пользователя
        /// </summary>
        /// <returns>Фамилия</returns>
        public static string GetCurrentUserSurname() {
            return UserPrincipal.Current.Surname;
        }

        /// <summary>
        /// Примечание, относящееся к текущему доменному пользователю
        /// </summary>
        public static string GetCurrentUserDescription() { return UserPrincipal.Current.Description; }

        /// <summary>
        /// Отображаемое имя текущего доменного пользователя
        /// </summary>
        public static string GetCurrentUserDisplayName() { return UserPrincipal.Current.DisplayName; }

        /// <summary>
        /// Адрес электронной почты текущего доменного пользователя
        /// </summary>
        public static string GetCurrentUserEmailAddress() { return UserPrincipal.Current.EmailAddress; }

        /// <summary>
        /// Перечень доменных групп, в состав которых входит текущий доменный пользователь
        /// </summary>
        public static string[] GetCurrentUserDomainGroups() { return UserPrincipal.Current.GetGroups().Select(n => n.Name).ToArray(); }

        /// <summary>
        /// Получить полный перечень доменных групп, имеющихся в составе определённого домена
        /// </summary>
        /// <param name="DomainName">Имя домена, для которого следует получить перечень всех его доменных групп</param>
        /// <returns>Имена доменных групп, входящих в состав указанного домена</returns>
        public static IEnumerable<string> GetDomainGroups(string DomainName) {
            using (var context = new PrincipalContext(ContextType.Domain, DomainName))
            using (var queryFilter = new GroupPrincipal(context))
            using (var searcher = new PrincipalSearcher(queryFilter)) {
                foreach (var result in searcher.FindAll()) {
                    yield return result.SamAccountName;
                    result.Dispose();
                }
            }
        }

        /// <summary>
        /// Получить имена всех доменных групп, входящих в состав текущего домена
        /// </summary>
        /// <returns>Имена всех доменных групп текущего домена</returns>
        public static IEnumerable<string> GetDomainGroups() {
            return GetDomainGroups(Domain.GetCurrentDomain().Name);
        }

        /// <summary>
        /// Обладает ли текущий пользователь правами администратора для данной локальной машины
        /// </summary>
        /// <returns>true - да, false - нет.</returns>
        [DllImport("shell32.dll")]
        public static extern bool IsUserAnAdmin();

        /// <summary>
        /// Является ли текущий пользователь членом указанной доменной группы
        /// </summary>
        /// <param name="groupName">Имя доменной группы, членство которой проверяется</param>
        /// <returns>true - является, false - нет.</returns>
        public static Boolean IsMemberOfGroup(string groupName){
            return GetCurrentUserDomainGroups().Select(n => n.ToUpper()).Contains(groupName.ToUpper());
        }

        /// <summary>
        /// Является ли текущий пользователь руководителем указанной доменной группы
        /// </summary>
        /// <param name="groupName">Имя проверяемой доменной группы</param>
        /// <param name="config">Объект, хранящий в себе настройки Системы</param>
        /// <returns>true - является, false - нет.</returns>
        public static bool IsTeamManagerOfGroup(string groupName, CommonSettings config) {
            bool isTargetGroupMember = IsMemberOfGroup(groupName);
            bool isTeamManagerGroupMember = IsMemberOfGroup(config.TeamGroupName);
            return isTargetGroupMember && isTeamManagerGroupMember;
        }

        /// <summary>
        /// Является ли пользователь администратором CAD указанной Системы
        /// </summary>
        /// <param name="config">Объект, хранящий в себе настройки Системы</param>
        /// <returns>true - является, false - нет.</returns>
        public static bool IsAdminCAD(CommonSettings config) {
            string domain = config.DomainName;
            string adminCadLogin = config.AdminCadLogin;
            string currentDomainName = Environment.UserDomainName;
            string currentLogin = GetCurrentUserDisplayName();
            return (domain.ToUpper() == currentDomainName.ToUpper()) && (adminCadLogin.ToUpper() == currentLogin.ToUpper());
        }
    }
}

[gomer]

Бред какой-то...
Во первых не понятно почему не загружается acad20**doc.lsp
Во вторых, применение полей сводит к нулю необходимость вообще использовать какой-либо лисп, о чем, я думаю, намекает hwd
В третьих, для выполнения лиспа нужно время... иногда даже доли секунды провоцируют нервный срыв...
В четвертых создавать конфигурационный файл для каждого не проще чем создавать шаблон...
В пятых, дайте свободу вашим пользователям и они сделают вашу работу за вас лучше для себя...
В шестых, не делайте работу за автокад, он и сам это умеет, я говорю опять же об индивидуальном шаблоне для каждого, т.е. он станет потом индивидуальным, в процессе работы...
В общем овчинка-то выеденного яйца не стоит

[Do$]

Суть ясна, но я понятия не имею, какие данные вносятся в наш Active Directory и как структурируются, как их оттуда извлекать и т.п. Боюсь, что мне пока не по силам эти дебри, так что, пока обойдусь собственноручной текстовой базой.

[hwd]

Сообщение от gomer Во вторых, применение полей сводит к нулю необходимость вообще использовать какой-либо лисп, о чем, я думаю, намекает hwd

Совершенно верно - поля тянут информацию из свойств чертежа, указанных мною на скрине. Если есть острое желание, чтобы в поле "Исполнил" автоматом вставлялось фио того, кто создаёт этот чертёж - выше показал код, как эту инфу (и не только её) можно вытащить из AD. Но не думаю, что это того стоит. Имхо - юзер сам должен осмысленно заполнить записи, показанные мною на скрине - так будет лучше.

[Do$]

Поля это хорошо, но как быть с форматированием текста, если, к примеру, фамилия длинная и не помещается в отведенное пространство в основной надписи?

[gomer]

Сообщение от Do$ Поля это хорошо, но как быть с форматированием текста, если, к примеру, фамилия длинная и не помещается в отведенное пространство в основной надписи?

Выравнивание по содержимому (Fit)

[hwd]

Сообщение от Do$ Поля это хорошо, но как быть с форматированием текста, если, к примеру, фамилия длинная и не помещается в отведенное пространство в основной надписи?

Во вхождении блока можно войти в редактор значений атрибутов и сжать текст, если нужно (вкладка TextOptions).

[Do$]

В этом есть здравый смысл... Буду думать, спасибо за ваше мнение!

[VVA]

Сообщение от Do$ Как определить на основе какого шаблона создан чертеж?

1. В Custom Properties (как в #7) прописываешь свойство (например Шаблон) с нужным значением (например КЖ)
2. Анализируешь переменную DWGTITLED
3. Если DWGTITLED=0, то создан новый чертеж. Читаешь значение свойства "Шаблон" и принимаешь дальнейшее решение.
DwgRuLispLib: Функции чтения и установки свойств рисунка (_dwgprops)

[Alan]

Сообщение от ShaggyDoc А для основных надписей скорее надо автоматически заполнять длинные строки наименований. Они могут быть в INI-файле, находящемся в папке чертежей. 100 файлов - одна запись в INI - 1000 одинаковых надписей.

Согласен с автором.
Вот привожу пример программного заполнения рамки с заполнением штампа.
Обратите, например, внимание на словари фамилий проверяющего (он м.б. не один) и т.д. и т.п.
Ничего этого из Active Directory, да еще и автоматом Вы не получите.
Надо давать и пользователю поработать. Только программно помогать надо.

[hwd]

Сообщение от Alan Ничего этого из Active Directory, да еще и автоматом Вы не получите.

Не надо мешать мух и котлеты. Автор топика указал, что автоматом хочет заполнять одну ячейку, содержащую инфу о том, кто исполнил чертёж. Эту инфу из AD легко получить. Если автоматом должны заполняться все участники - это совсем др. вопрос и в этом случае AD конечно не к месту (разве что "Исполнил" заполнить).

[Do$]

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

Не совсем так. В зависимости от автора чертежа могут меняться и остальные фамилии, но для одного разработчика двух разных нормоконтролеров или утверждающих быть не может - то есть, если определить автора чертежа, то можно однозначно определить остальные фамилии.