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

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

[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 вобщем-то и не нужен.) - вполне возможны коллизии).