[swell{d}]

добрый день. мой приятель по моей просьбе левой пяткой накидал программу вставки даты в формате yyyy-mm-dd в любом месте по сочетанию клавиш Ctrl+D
она работает, но не всегда и не везде.
например, на половине компов, где я её устанавливал, она выдаёт просто "v".
там, где работает, иногда перестаёт работать по какой-то причине и вставляет просто содержимое буфера обмена.
может кто-нибудь готов за спасибо или за какую-нибудь денюжку отладить её? или написать другую, аналогичного функционала?

п.с. я думаю, проблема в этой строчке:

SendKeys.SendWait("^v");

[Boxa]

Старика Оккама на Вас нет.
1. Вашему приятелю не нужно было обрабатывать сочетания клавиш, с этим отлично справляется сам АКАД. Так что в настройках акада необходимо было просто указать сочетание горячих клавиш для запуска команды вставки даты.

Код:

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

    <CommandMethod("bx_datainput")> _
    Public Sub bx_datainput()

        '' Get the current document and database, and start a transaction
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database

        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Dim getPointOptions1 As PromptPointOptions = New PromptPointOptions(ControlChars.Lf & "Укажите точку вставки даты : ")
            Dim getPointResult1 As PromptPointResult = acDoc.Editor.GetPoint(getPointOptions1)
            'Если все ОК
            If (getPointResult1.Status = PromptStatus.OK) Then
            Else
                Exit Sub
            End If

            '' Open the Block table for read
            Dim acBlkTbl As BlockTable
            acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
                                         OpenMode.ForRead)

            '' Open the Block table record Model space for write
            Dim acBlkTblRec As BlockTableRecord
            acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                            OpenMode.ForWrite)

            '' Create a single-line text object
            Dim acText As DBText = New DBText()
            acText.SetDatabaseDefaults()
            acText.Position = getPointResult1.Value
            acText.Height = 3
            acText.TextString = Date.Today.Year & "-" & Date.Today.Month & "-" & Date.Today.Day

            acBlkTblRec.AppendEntity(acText)
            acTrans.AddNewlyCreatedDBObject(acText, True)

            '' Save the changes and dispose of the transaction
            acTrans.Commit()
        End Using
    End Sub

2. Вставляйте с Палитры блок содержащий текст с полем "%<\AcVar Date \f "yyyy-MM-dd">%" и будет Вам счастье.

[bargool]

Boxa, я вообще не понял, зачем это сообщение здесь. Прога, которую привёл swell{d} работает не только в акаде, а регистрирует глобальную горячую клавишу, при нажатии которой в буфер обмена помещается текущая дата, затем "нажимается" ctrl-v, а затем восстанавливается старое содержимое буфера обмена. К автокаду его вопрос не имеет никакого отношения

[Boxa]

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

Автор, а зачем Вам такая программа?

[gomer]

Сообщение от Boxa Автор, а зачем Вам такая программа?

вероятно чтоб гланды через анус щупать

[swell{d}]

Сообщение от Boxa Автор, а зачем Вам такая программа?

у меня весь документооборот в офисе на этом держится.

удобно отслеживать историю изменения файлов:
2010-11-20 КЖ1 стадия Р.dwg
2011-11-19 КЖ1 стадия Р изм.1.dwg
2012-02-20 КЖ1 стадия Р изм.2.dwg
2012-02-29 КЖ1 стадия Р изм.3.dwg

файлы в папке отсортированы по имени, но последний всегда снизу.

[Boxa]

ага, gomer походу прав.
Автор, если у вас так часто меняются версии, может стоит посмотреть в сторону Систем управления версиями?
Что то типа http://habrahabr.ru/qa/18710/ или тут http://habrahabr.ru/post/141160/

[swell{d}]

у меня в организации разработаны правила документооборота: ссылка
система работает уже много-много лет. очень просто, очень удобно и наглядно. не требует обучения персонала, не требует дополнительного ПО.
картинка1 - рабочая папка
картинка2 - папка входящих писем

[hwd]

Сообщение от Boxa ага, gomer походу прав.

+1

Сообщение от swell{d} у меня в организации разработаны правила документооборота: ссылка система работает уже много-много лет. очень просто, очень удобно и наглядно. не требует обучения персонала, не требует дополнительного ПО. картинка1 - рабочая папка картинка2 - папка входящих писем

Обозначенные "правила" плохи (имхо).
Картинки хорошо демонстрируют НЕУДОБСТВО решения.
Внимательно прочти этот пост.

[bargool]

hwd, Boxa, +1 к использованию git. В конторе не пытался, честно говоря внедрить, но в личных проектах остался доволен использованием (я про проектирование, молчу уж про программы)

[swell{d}]

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

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

swell{d}, так тебе надо было в "ПОиск исполнителей" тогда задавать вопрос...

[swell{d}]

Offtop: а как же "поговорить"? =)
виноват. если можно, перенесите тему.

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

swell{d}, ты лучше сам создай тему в соответствии с правилами раздела "Поиск исполнителей". А эту я тогда закрою через час-два.

[swell{d}]

Offtop: сделано