[Игорь Костюкович]

Собственно, стоит задача автоматического присвоения GUID примитивам чертежа. Всем поголовно. Может, кто-нибудь уже решал задачу генерации GUID на LISPе? Не хочется изобретать велосипед...
Да что там греха таить - не хочется изобретать... :-)
Для справки: GUID

[Елпанов Евгений]

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

ps. метка уникальна только в данном чертеже!

[Игорь Костюкович]

Евгений, огромное спасибо за совет. Но...

ps. метка уникальна только в данном чертеже!

У меня же задача - присвоить GUID примитивам _многих_ (порядка 700) чертежей. Пардон, в первом своём сообщении явно не прозвучал этот момент...

[Сергей Дубина]

а имена файлов совпадают?

[Игорь Костюкович]

Сергей Дубина, намёк понял :-)
Разные, естественно. Правда, похожи, ибо сформированиы по определённым правилам, посему нужно внимательно посмотреть, как это может повлиять на генерацию...

[hwd]

lisp-функция, написанная на .net (в .net есть специальный класс, для работы с GUID - им и воспользовался):

Код:

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

[LispFunction("NewGUID")]
public object NewGUID(ResultBuffer rb) {            
    return new TypedValue(5005, Guid.NewGuid().ToString());            
}

или ещё проще:

Код:

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

[LispFunction("NewGUID")]
public object NewGUID(ResultBuffer res) {
    return Guid.NewGuid().ToString();       
}

проверял в AutoCAD 2009 - работают оба варианта.



компилируешь показанный выше .net-код под свою версию AutoCAD, загружаешь полученную библиотеку командой _NetLoad и используешь функцию NewGUID в своём Lisp-коде.

п.с. Если топикстартер использует версию AutoCAD 2009 x86 - могу выложить скомпилированную готовую библиотеку (др. версий AutoCAD у меня сейчас не установлено, поэтому скомпилировать под них на данный момент нет возможности). Однако предупреждаю, что использование этой библиотеки привяжет lisp-код к конкретной версии автокада (той, под которую скомпилирован мой код), поскольку .net-плагины зависят от версии AutoCAD.

[Игорь Костюкович]

hwd, спасибо.
Но прошу объяснить, что есть

компилируешь показанный выше .net-код под свою версию AutoCAD

?
Увы, я, кроме LISPа, другими языками не владею...

Offtop: Владею немецким языком. Взят в плен в 1944 под Витебском... (с) не моё

[hwd]

Сообщение от Игорь Костюкович Но прошу объяснить, что есть

Понял. Версия автокада какая? Не помешает то, что написано в примечаниях касательно "привязки к версии автокада"?

[Игорь Костюкович]

Использую:
AutoCAD Map 3D версий:
2004
2009
2011

[hwd]

Сообщение от Игорь Костюкович Использую: AutoCAD Map 3D версий: 2004 2009 2011

1. Могу скомпилировать под AutoCAD 2009 x86. Предполагаю, что библиотека будет работать и в AutoCAD Map 2009 x86, но не утверждаю (проверять нужно).
2. Под 2011 код нужно отдельно компилировать (это делается быстро, но на машине должен быть установлен AutoCAD 2011 или ObjectARX 2011). Код функции я выложил выше - если у кого установлен 2011, возможно тебе откомпилируют его под эту версию и выложат, но не факт.
3. Под 2004 - если честно, я даже не в курсе, использует ли вообще эта версия AutoCAD платформу .Net Framework, а если использует, то какую именно версию...
Если использует - тогда то же самое, что и в п.2.

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

Сообщение от hwd 3. Под 2004 - если честно, я даже не в курсе, использует ли вообще эта версия AutoCAD платформу .Net Framework, а если использует, то какую именно версию...

Не использует. Поддержка .NET в AutoCAD появилась в AutoCAD 2005, а атрибут [LispFunction()] поддерживается начиная с AutoCAD 2007.

[hwd]

Скомпилировал под AutoCAD 2009 x86/x64. См. прикреплённый файл. Библиотека загружается командой _NETLOAD. Lisp-функция называется "NewGUID". Как вызывается - знаешь, раз пишешь на Lisp'е.

p.s. На компьютере должен быть установлен .Net Framework 3.5 SP1.

На тот случай, если тебе всё же кто-то надумает помочь скомпилировать под AutoCAD 2011 - выкладываю полный код cs-файла:

Код:

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

using System;
//Подключаем ссылки на библиотеки AutoCAD
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.DatabaseServices;

namespace AdminCAD.LispFunctions {

    /// <summary>
    /// Класс, в котором определены различные Lisp-функции. Эти функции могут использоваться
    /// в Lisp-программах, которые, однако будут привязаны к конкретной версии AutoCAD, поскольку
    /// настоящая библиотека имеет такую зависимость. Т.о. данный код нужно компилировать 
    /// под каждую версию AutoCAD, в которой планируется использовать lisp-код, в теле которого
    /// используются функции, определённые в составе текущей .net-библиотеки.
    /// </summary>
    public sealed partial class LispFunctions {

        /// <summary>
        /// Lisp-функция, генерирующая новый GUID
        /// </summary>
        /// <param name="res">В качестве параметра должен передаваться 
        /// экземпляр ResultBuffer (в коде он не используется, но его наличие требует AutoCAD)</param>
        /// <returns>Сгенерированный GUID возвращается в виде строки</returns>
        [LispFunction("NewGUID")]
        public object NewGUID(ResultBuffer res) {
            return Guid.NewGuid().ToString();
        }
    }
}

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

Для AutoCAD 2011.

[Сергей Дубина]

Сообщение от hwd использует ли вообще эта версия AutoCAD платформу .Net Framework

Вот это я и имел ввиду, про то что люди не апгрейдятся, а ты мне про ДОС.

[hwd]

Сообщение от Сергей Дубина Вот это я и имел ввиду, про то что люди не апгрейдятся, а ты мне про ДОС.

ты о чём? я дал свой вариант решения. Можешь предложить другой, если имеешь.

[Игорь Костюкович]

Огромное спасибо всем принявшим участие.
hwd и Александру Ривилису, отдельная благодарность.

ps: про апгрейд: не апгрейдится софт, потому что не апгрейдится хард, потому что с финансированием ситуация очень хард...

[hwd]

Всё нормально, заработало?

[Дима_]

Зачем ради 1 guid'а столько гемора - по первой-же ссылке в google нашел com:

Код:

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

 (vl-load-com)
((lambda (script) (vlax-get-property script 'Guid)) 
 (vlax-create-object "Scriptlet.TypeLib"))

и никаких компиляций и пр. - тем более человек на лиспе пишет.
p.s. не намного длинней _netload...
p.p.s хотя чего это я -

Код:

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

 (vlax-get-property (vlax-create-object "Scriptlet.TypeLib") 'Guid)

[Игорь Костюкович]

hwd, ещё раз спасибо. Всё работает... как часы.
Дима_, и Вам спасибо. Тоже работает... как часы.

[Сергей Дубина]

Сообщение от Сергей Дубина Цитата: Сообщение от hwd использует ли вообще эта версия AutoCAD платформу .Net Framework Вот это я и имел ввиду, про то что люди не апгрейдятся, а ты мне про ДОС.

про это: http://forum.dwg.ru/showpost.php?p=743465&postcount=40

[hwd]

Сообщение от Дима_ Код: [Выделить все] (vlax-get-property (vlax-create-object "Scriptlet.TypeLib") 'Guid)

респект, снимаю шляпу

[gomer]

Сообщение от hwd респект, снимаю шляпу

тынц

[hwd]

дорога ложка к обеду, gomer...

[gomer]

я просто уточнил источник...

[Дима_]

неправда - у меня был другой источник (там вроде-бы на дльфи было - но какая нафиг разница откуда com вызвать)

[gomer]

Сообщение от Дима_ неправда

Сегодня совсем голова не работает... всем сорри

[VVA]

Для коллекции. По ссылке из #22 VovKa опубликовал еще один генератор

Код:

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

(defun vk_RandNum (/ Mod Mult Inc Rand)
    (or *vk_RandSeed* (setq *vk_RandSeed* (getvar "DATE")))
    (setq Mod           65536
          Mult          25173
          Inc           13849
          *vk_RandSeed* (rem (+ (* Mult *vk_RandSeed*) Inc) Mod)
          Rand          (/ *vk_RandSeed* Mod)
    )
)
(defun vk_Dec2Hex (Dec /)
    (if (< Dec 10)
        (itoa Dec)
        (if (> Dec 15)
            (strcat (vk_Dec2Hex (/ Dec 16)) (vk_Dec2Hex (rem Dec 16)))
            (chr (+ Dec 55))
        )
    )
)
(defun vk_GenerateString (String Len / OutString)
    (setq OutString "")
    (repeat Len (setq OutString (strcat OutString String)))
    OutString
)
(defun vk_StringPadLeft (String NewLen Char /)
    (strcat (vk_GenerateString Char (- NewLen (strlen String))) String)
)
(defun vk_GenGUID (/)
    (apply
        'strcat
        (mapcar (function
                    (lambda (f)
                        (if f
                            (vk_StringPadLeft
                                (vk_Dec2Hex
                                    (fix (* (1- (expt 2 (* 4 f))) (vk_RandNum)))
                                )
                                f
                                "0"
                            )
                            "-"
                        )
                    )
                )
                '(4 4 nil 4 nil 4 nil 4 nil 4 4 4)
        )
    )
)

[gomer]

Сообщение от VVA Для коллекции

вот что то подобное я и искал на болоте... Насколько я понимаю это псевдо-guid, зато средствами AUTOLISP...

[Дима_]

Сообщение от VVA Для коллекции. По ссылке из #22 VovKa опубликовал еще один генератор

Я бы не стал его использовать т.к. "криптостойкость" ключа ограниченна (getvar "date") т.е. ключи достаточно близкие (для разовых применений достаточно - но при "гуидации" примитивов нескольких сотен чертежей (да еще и на паралельных процессах (машинах) - а при последовательном процессе guid вобщем-то и не нужен.) - вполне возможны коллизии).