Перейти к публикации

Рекомендованные сообщения



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

Ссылка на сообщение
Поделиться на других сайтах
5 часов назад, ЮрЮрыч сказал:

Здравствуйте. Как определить дату создания не Солидовского файла например dxf? 

В VBA есть функция Функция FileDateTime (Visual Basic для приложений) | Microsoft Learn

Ссылка на сообщение
Поделиться на других сайтах
10 часов назад, ЮрЮрыч сказал:

Как определить дату создания не Солидовского файла например dxf? 

Попробуйте FSO (Объект FileSystemObject):

https://www.script-coding.com/WSH/FileSystemObject.html#5.2.2.

Скрытый текст

...

5.2.2. DateCreated

Синтаксис:




DateCreated

Возвращаемое значение: дата создания файла.

Замечание: только чтение.

Пример:




Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\autoexec.bat")
Str = vbNullString
Str = Str & "Дата создания - " & File.DateCreated & vbCrLf
Str = Str & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf
Str = Str & "Дата последней модификации - " & File.DateLastModified & vbCrLf
Str = Str & "Диск - " & File.Drive.DriveLetter & vbCrLf
Str = Str & "Имя - " & File.Name & vbCrLf
Str = Str & "Родительский каталог - " & File.ParentFolder.Path & vbCrLf
Str = Str & "Путь - " & File.Path & vbCrLf
Str = Str & "Короткое имя - " & File.ShortName & vbCrLf
Str = Str & "Путь в формате 8.3 - " & File.ShortPath & vbCrLf
Str = Str & "Размер - " & File.Size & vbCrLf
Str = Str & "Тип файла - " & File.Type
MsgBox Str

5.2.3. DateLastAccessed

Синтаксис:




DateLastAccessed

Возвращаемое значение: дата последнего доступа к файлу.

Замечание: только чтение.

Пример:




Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\autoexec.bat")
Str = vbNullString
Str = Str & "Дата создания - " & File.DateCreated & vbCrLf
Str = Str & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf
Str = Str & "Дата последней модификации - " & File.DateLastModified & vbCrLf
Str = Str & "Диск - " & File.Drive.DriveLetter & vbCrLf
Str = Str & "Имя - " & File.Name & vbCrLf
Str = Str & "Родительский каталог - " & File.ParentFolder.Path & vbCrLf
Str = Str & "Путь - " & File.Path & vbCrLf
Str = Str & "Короткое имя - " & File.ShortName & vbCrLf
Str = Str & "Путь в формате 8.3 - " & File.ShortPath & vbCrLf
Str = Str & "Размер - " & File.Size & vbCrLf
Str = Str & "Тип файла - " & File.Type
MsgBox Str

5.2.4. DateLastModified

Синтаксис:




DateLastModified

Возвращаемое значение: дата последней модификации файла.

Замечание: только чтение.

Пример:




Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\autoexec.bat")
Str = vbNullString
Str = Str & "Дата создания - " & File.DateCreated & vbCrLf
Str = Str & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf
Str = Str & "Дата последней модификации - " & File.DateLastModified & vbCrLf
Str = Str & "Диск - " & File.Drive.DriveLetter & vbCrLf
Str = Str & "Имя - " & File.Name & vbCrLf
Str = Str & "Родительский каталог - " & File.ParentFolder.Path & vbCrLf
Str = Str & "Путь - " & File.Path & vbCrLf
Str = Str & "Короткое имя - " & File.ShortName & vbCrLf
Str = Str & "Путь в формате 8.3 - " & File.ShortPath & vbCrLf
Str = Str & "Размер - " & File.Size & vbCrLf
Str = Str & "Тип файла - " & File.Type
MsgBox Str

...

 

Изменено пользователем Kelny
Ссылка на сообщение
Поделиться на других сайтах
1 час назад, ЮрЮрыч сказал:

Filedatatime не работает. Пробовал библиотеки microsoft подключать тоже не помогает

А что означает "не работает"? Что происходит?

Ссылка на сообщение
Поделиться на других сайтах
1 час назад, ЮрЮрыч сказал:

Filedatatime не работает.

Лучше код выложите, который используете, и укажите что именно не работает, как себя ведёт компилятор/программа.

Ссылка на сообщение
Поделиться на других сайтах
  • 4 недели спустя...

Столкнулся с интересной проблемой: при вставке спецификации в чертеж insertbomtable4 выдает ошибку (метод не поддерживается) но спецу вставляет. При остановке на этой строке я ее коментирую и дальше работает нормально. Кто то сталкивался с подобным? 

Ссылка на сообщение
Поделиться на других сайтах

Есть еще проблема с чертежами: после вставки первого вида последующие проекции имеют обратное направление, те вместо слева ставит вид справа. Перезагрузка стандарта не помогает. Можно ли програмно поменять настройку направления проекций? 

Ссылка на сообщение
Поделиться на других сайтах
18 часов назад, ЮрЮрыч сказал:

Есть еще проблема с чертежами: после вставки первого вида последующие проекции имеют обратное направление, те вместо слева ставит вид справа.

В шаблонах чертежей, надо изменить настройку в свойствах листа ТИП ПРОЕКЦИИ указать ПО ПЕРВОМУ УГЛУ.

18 часов назад, ЮрЮрыч сказал:

Можно ли програмно поменять настройку направления проекций? 

Можно и программно, параметр FirstAngle:

Цитата

Function SetupSheet5( _
   ByVal Name As String, _
   ByVal PaperSize As Integer, _
   ByVal TemplateIn As Integer, _
   ByVal Scale1 As Double, _
   ByVal Scale2 As Double, _
   ByVal FirstAngle As Boolean, _
   ByVal TemplateName As String, _
   ByVal Width As Double, _
   ByVal Height As Double, _
   ByVal PropertyViewName As String, _
   ByVal RemoveModifiedNotes As Boolean _
) As Boolean

https://help.solidworks.com/2010/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IDrawingDoc~SetupSheet5.html

 

Изменено пользователем Kelny
Ссылка на сообщение
Поделиться на других сайтах

Всем доброго вечера. Подскажите пожалуйста.  Можно ли программно заменить назначенный материал модели на самопроизвольный? Допустим в базе был назначен пластик. Хочу заменить на ольху. Причем материал "ольха" отсутствует в базе материалов. Как можно это сделать?

Ссылка на сообщение
Поделиться на других сайтах

Здравствуйте. Спецификацию победил но только insertbomtable2. Теперь вопрос: как скрыть позиции?(названия разделов и пустые строки) И как связать столбец со свойством? 

Ссылка на сообщение
Поделиться на других сайтах
1 час назад, ЮрЮрыч сказал:

Спецификацию победил

Прежде чем изобретать свой велосипед, думаю, стоило бы ознакомиться с уже существующим Спецификация для SW по ГОСТ-Пакет макросов SWPlus , возмжно там же в коде найдёте ответы на некоторые свои вопросы, и при необходимости сможете подрихтовать под свои нужды:

https://cccp3d.ru/topic/6622-спецификация-для-sw-по-гост/

 

Изменено пользователем Kelny
Ссылка на сообщение
Поделиться на других сайтах
  • 2 недели спустя...
13.06.2023 в 19:34, Sla_68 сказал:

Всем доброго вечера. Подскажите пожалуйста.  Можно ли программно заменить назначенный материал модели на самопроизвольный? Допустим в базе был назначен пластик. Хочу заменить на ольху. Причем материал "ольха" отсутствует в базе материалов. Как можно это сделать?

Всем привет. Хочу поднять этот вопрос. И по возможности получить на него ответ.

И еще один вопрос. Просьба подсказать метод, с помощью которого можно перемещать любой компонент в дереве построения сборки в другую сборку или ее подсборки.

Ссылка на сообщение
Поделиться на других сайтах

Перетащите мышкой в дереве. Привязки, разумеется, слетят. Ещё можно разбить исходную сборку и, опять же, мышкой перетащить нужный компонент в другую. Насчёт материала. Материал заменить не сложно, но ваш новый материал должен уже быть в базе материалов. Тоже не проблема

 

Ссылка на сообщение
Поделиться на других сайтах
  • 3 недели спустя...

Здравствуйте. Подскажите как поменять цвет компонента-сборки или всей сборки?  Если компонент деталь, то через MaterialPropertyValues просто сделать, а вот для сборки?

Ссылка на сообщение
Поделиться на других сайтах
4 часа назад, ЮрЮрыч сказал:

Здравствуйте. Подскажите как поменять цвет компонента-сборки или всей сборки?  Если компонент деталь, то через MaterialPropertyValues просто сделать, а вот для сборки?

Функцией  SetMaterialPropertyValues интерфейса IModelDocExtension. 

 
Ссылка на сообщение
Поделиться на других сайтах

Здравствуйте. Подскажите как получить экземпляры блоков из указанного View. GetSketchBlockDefitions возвращает все блоки из документа чертежа. Или как определить в каком View находится данный экземпляр

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...