TDMS, электронный архив Опции

[register]

Luka, по-моему, в Fedora принимали какие-то шаги по запуску .NET-приложений. Могу ошибаться (давно не ставил).

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

При желании и АвтоГАД можно заставить сохранять в SharePoint ))

Такая утиля платная есть. Т.е., кто не хочет "заставлять", может просто купить это желание.

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

Приветствую. Присоветуйте, плиз как на форму поместить тип всех объектов, или это не возможно?

в смысле всех созданных в тдмс? или например выбранных?

По просьбе AlxD решил поделиться совместно с ним сделанным модулем для AutoCad, служит для заполнения филдов данными из TDMS. Линк здесь.=>http://bugerman.ru/?p=27

Сообщение отредактировал register - 24.03.2009 - 12:43

[solo]

Не получается пользователем сменить статус созданного документа на "разработан" (прикрепленный файл есть, в разделе является администратором, в документе разработчиком, профиль default ). Под sysadmin сменить статус на созданные документы (сисадмином) удается. Что может быть? Какой набор прав на документ и раздел надо ставить? Может в этом затык?

[Alxd]

2 solo
А каким образом ты вообще предполагаешь изменять статус объекта? Через вкладку "Системные"?

[register]

1) Создай команду (тип VB скрипт)
2) Создай статус
3) Создай роль
4) В статусе выбери созданную команду, объект для которого выполнять ее будешь
5) В команде выбери роль, и в каком статусе команда доступна
6) В скрипт команды добавь:

Код

'"STATUS_DEVELOPED" - устанавливаемый статус
Sub Command_BeforeExecute(Command, Obj, Cancel)
  Obj.Status = ThisApplication.Statuses("STATUS_DEVELOPED")
End Sub

7) Самое главное установи на объект права пользователь / группа - роль руками или так:

Код

SetRole Obj, "ROLE_DEVELOPER", "ALL_USERS"

Public Sub SetRole(Obj, Role, Group)
  Dim rl
  Dim gr
  Set rl = ThisApplication.RoleDefs(Role)
  Set gr = ThisApplication.Groups(Group)
  Obj.Roles.Create rl, gr
End Sub

[solo]

2 Alxd
менять статус предполагаю нажатием кнопки "разработан". Закладка "системные" не выход, закидают каштанами...

register
Спасибо, получилось.

Я то как последний ... думал что базовые скрипты системы уже есть и настроены...

Сообщение отредактировал solo - 17.04.2009 - 21:23

[sasasa]

Выбирал viewer для просмотра в TDMS.
Autodesk Design Review 2010 - нет офисных форматов, проблемы с Tiff.
Bentley View - мало форматов.
RxView - плохо работает с офисными форматами.
Остановился на AutoVue 19.3, но один критический недостаток:
не позволяет комментировать файлы Word и Excel.
Хотя встроенный инструмент есть: VCET and Markup Integration Sample.
Прошу помощи форумчан: что используете для внесения комментариев и пометок в файлы Word и Excel (с сохранением в отдельный файл).

[solo]

Гуру, подскажите как прикрутить к TDMS -у MS Project?

[solo]

Создавал структуру папок ручками.. Надоело. Сделал нужную структуру разделов, назначил роли, сделал экспорт.
Импортирую dat файл с моей структурой, говорю создать новый объект с новым guid.... вставляется.. Роли присутствуют
Меняю названия родительской папки, наполняю объектами...
Повторяю импорт, раздел вставляется.. и тут оппа - на разделе, который вставлен до этого теряются роли...
В чем косяк? Что можно сделать чтобы автоматизировать вставку некоторой структуры вставок?

[kils]

Господа, поставил 3 версию сей программы, первый раз вижу ) вроде бы на скринах были добавлены прожекты ворды и ексели, плюс прожекты разбиты на этапы... а как это все чудо добавить в программу, что-то никак не хочет перекидываться ((

[Le0]

На сайте много чего написано...
А реально связь с проджектом уже 3-й год обещают

[kils]

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

P.S. - нужны скриншоты создания проекта, создание справочника и заливки документов, просмотра документов разных типов и вывод документов на печать...Наверно это все обязательно отблагодарю! Спасибо заранее, надеюсь на помощь.

[Mars11]

Подскажите можно ли и как присвоить одному обьекту разные значения атрибута. Например есть обьект кронштейн, у него атрибут - количество. В разных проектах их исрользуется разное количество. При простом копировании обьекта из одного проекта в другой атрибут (количество) остается таким же. А необходимо разное количество.

[Mars11]

Спасибо, сам разобрался.

[Mars11]

Есть у кого пример скипта для создания отчета в Excel? Необходимо выгрузить в шаблон файла Excel состав обьекта (сделать что-то типа спецификации - обозначение, наименование, кол-во).

[alexeyv]

Есть у кого пример скипта для создания отчета в Excel? Необходимо выгрузить в шаблон файла Excel состав обьекта (сделать что-то типа спецификации - обозначение, наименование, кол-во).

Создание отчета по пользователям в Excel.

CODE

Sub gsExportUsers2XLS()

'Открыть приложение Excel
Set ExcelApp = CreateObject("Excel.Application")
If Err <> 0 Then 'Ошибка открытия ...
MsgBox "Невозможно открыть приложение MS Excel.", vbInformation, "Ошибка MS Excel"
Exit Sub
End If

' Добавить рабочую книгу
Set WrkBook = ExcelApp.Workbooks.Add
Set List = WrkBook.ActiveSheet

'Отформатировать шапку таблицы
List.Cells(1,1) = "ФИО"
List.Cells(1,2) = "Отдел"
List.Cells(1,3) = "Должность"
List.Cells(1,4) = "Профиль"
List.Rows(1).Font.Size = 12
List.Rows(1).Font.Bold = TRUE

Dim mUser, mAllUsers,i
Set mAllUsers = ThisApplication.Users
i=2
for each mUser in mAllUsers
List.Cells(i+1,1) = mUser.Description
List.Cells(i+1,2) = mUser.Department
List.Cells(i+1,3) = mUser.Position
List.Cells(i+1,4) = mUser.Profile.Description
i=i+1
next
List.Columns.AutoFit

'Показать окно Excel
ExcelApp.Application.Visible = True

'Обнулить объектные переменные
Set List = Nothing
Set WrkBook = Nothing
Set ExcelApp = Nothing

End Sub

Ответный вопрос:

Подскажите, пользуется ли кто дополнительными интерфейсами TDMS (кроме интерфейса к AutoCAD, Word, Excel)?

Есть ли где-то примеры / статьи в на тему разработок собственных интерфейсов?

Сообщение отредактировал alexeyv - 23.07.2010 - 08:00

[Mars11]

Это пример с юзерами. А нет примера именно с обьектами. Но все равно спасибо.

[alexeyv]

Для объектов будет перебор:

Код

for each mObj in Obj.Objects
  List.Cells(i+1,1) = mObj.Description
  i=i+1
next

Сообщение отредактировал alexeyv - 29.07.2010 - 12:23

[TOKKO]

Установил MSSQL2000 sp3 потом TDMS.v3.0.186 , а базу так и не находит - она же должна сама при установке устанавливается? Копался в Enterprise Manager но знаний мало ни чего не нашел, и что там искать смутно представляю ...

Помогите пожалусто разобратся с запуском TDMS.

[Le0]

TOKKO,
Запускай ТДМС Администратор и создавай новую базу...

[TOKKO]

Вот что пишет когда открыть нажимаю

Прикрепленные файлы

 TDMS.JPG ( 36.12 килобайт ) Кол-во скачиваний: 135