Перейти к публикации
Размещайте вопросы по расчетам в соответствующем разделе

Solidworks API

Anka

Автор: Anka,
в SolidWorks

 Рассказать Подписчики 16

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



maxx2000

maxx2000 742

Опубликовано:
Опубликовано:

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

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

brigval 723

Опубликовано:
Опубликовано:
5 часов назад, ЮрЮрыч сказал:

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

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

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

Kelny 1 333

Опубликовано:
Опубликовано: (изменено)
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
Ссылка на сообщение
Поделиться на других сайтах
brigval

brigval 723

Опубликовано:
Опубликовано:
1 час назад, ЮрЮрыч сказал:

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

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

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

Kelny 1 333

Опубликовано:
Опубликовано:
1 час назад, ЮрЮрыч сказал:

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

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

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

ЮрЮрыч 8

Опубликовано:
Опубликовано:

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

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

ЮрЮрыч 8

Опубликовано:
Опубликовано:

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

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

Kelny 1 333

Опубликовано:
Опубликовано: (изменено)
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
Ссылка на сообщение
Поделиться на других сайтах
Sla_68

Sla_68 4

Опубликовано:
Опубликовано:

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

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

ЮрЮрыч 8

Опубликовано:
Опубликовано:

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

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

Kelny 1 333

Опубликовано:
Опубликовано: (изменено)
1 час назад, ЮрЮрыч сказал:

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

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

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

 

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

Sla_68 4

Опубликовано:
Опубликовано:
13.06.2023 в 19:34, Sla_68 сказал:

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

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

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

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

v-david 21

Опубликовано:
Опубликовано:

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

 

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

ЮрЮрыч 8

Опубликовано:
Опубликовано:

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

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

Shvg 68

Опубликовано:
Опубликовано:
4 часа назад, ЮрЮрыч сказал:

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

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

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

ЮрЮрыч 8

Опубликовано:
Опубликовано:

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

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

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

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

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

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

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

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

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

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

×
 Рассказать
Подписчики 16
Перейти к списку тем

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

    • Sla_68


  • Сообщения

    • Snake 60
      Список вырезов сварного изделия

      Автор: Snake 60 · Опубликовано:

      Скорее всего исправляли в конкретной сборке, для конкретных тел. Насколько я помню, надо в самом эскизе профиля заполнить свойство Description
    • Snake 60
      А на солиде можно рассчитывать зубчатые передачи?

      Автор: Snake 60 · Опубликовано:

      Делаете дырку в свае - вставляете в нее трубу и 2 человеко-силы крутят сваю ) Дёшево и сердито и не нужен никакой планетарный редуктор ))
    • gudstartup
      Пароль уровня доступа

      Автор: gudstartup · Опубликовано:

      вы всегда ищите свой путь или будете делать то что вам советуют? с самого начала прежде чем приступать к экспериментам вам нужно было вынуть носитель и сделать образ. diskcopy делает копию гибкого диска на другой а вам надо сделать образ жесткого диска или карты памяти. делайте как советует @Viktor2004 иначе еще чего нибудь сломаете или вам станок не нужен и вы его приобрели для экспериментов ? вот а печатной машинке из прошлого нельзя а вот на синумерике можно - удивительные вещи в настоящем происходят!! на 100 % уверен что там не модуль а либо писимиси ай либо жд @mircomax81 хотите работать в дос почитайте помощь по командам 
    • PuKoLLleT
      Растачивание отверстий на окружности

      Автор: PuKoLLleT · Опубликовано:

      Доброго дня всем. Поделитесь опытом,раньше такое не доводилось делать. На торце фланца нужно сделать  восемь отверстий ф17H7 на токарно-фрезерном станке с осью Y ,имеется ManualGuide.В моем понимании нужно просверлить,а затем торцевой фрезой расточить нужный диаметр.Получится такой фокус,или надо разверткой доводить нужный размер?  Стойка Fanuc 0i-Tf.
    • Snake 60
      А на солиде можно рассчитывать зубчатые передачи?

      Автор: Snake 60 · Опубликовано:

      Всё верно, я даже русификатор делал для него (ушло на это где-то около года). Хороший софт был, я всех знакомых на него подсадил в свое время :) У меня даже где-то образ на виртуалке лежит с SW2014+MechSoft, Жаль, что автодеск его поглотил, а не DS :( А по сути вопроса, проектировал двухступенчатый планетарный редуктор в свое время. Что было нужно: Справочник по планетаркам (автора не помню, если надо поищу), из софта MathCAD + GearTeq (софтина идет вместе с GearTrax, только рассчитывает и моделирует несколько зацеплений согласно выбранной схеме, в том числе планетарки) Ой и ошибаетесь. Звездочки - не равно зубчатые колеса в планетарке) Мы намучились с малой точностью изготовления на эл.эрозии, а Вы лазером ))) Был собран опытный образец редуктора с незакаленными деталями, чисто проверить геометрию, отладить сборку. Так потом начальство этот редуктор сказало испытать в бою, как я не противился)) Помер за пару дней интенсивных нагрузок ))) Материал, термообработка и точности изготовления решают )
    • Snake 60
      Сварные детали - глобальные зазоры, обновление чертежа при изменении конфигурации

      Автор: Snake 60 · Опубликовано:

      @Тихоход  Ещё один вариант - изучать программирование и писать свою программу/макрос. Вот пример конфигуратора двери: https://www.youtube.com/watch?v=wv4HryWQBSk
    • mircomax81
      Пароль уровня доступа

      Автор: mircomax81 · Опубликовано:

      Посредством Diskcopy можно сделать адекватную копию на флоппи диск?
    • Andrey_kzn
      Пароль уровня доступа

      Автор: Andrey_kzn · Опубликовано:

      Да, ведь советовали автору вытащить жёсткий диск и сделать образ. Неужели самому не интересно, как устроен этот старый промкомпьютер? Там может стоять как жёсткий диск, так и CF-карта, или же Disc-on-chip или Disc-on-module.  Как-то очень давно, на подобном промышленном оборудовании (большая печатная машина) я не смог перенести  ПО с родной CF - карты на другую, такого же размера но другой фирмы. Была также станочная оболочка под досом.  Образ я делал Нортон гостом, развернул его на другую CF-карту без проблем. Машина загрузилась нормально и работала ровно 2 дня, на неродной CF-карте,  потом зависла, и отказалась загружаться. Пришлось вызывать сервисника. От него мы узнали, что нельзя просто так взять и заменить карту  - носитель системного ПО, на другую. А полезли мы туда, так как руководство захотело печатать отчёты по работе машины. В станочном ПО такая функция была. Вот только принтер надо было купить у фирмы - производителя этой самой машины. В попытках заставить работать другой принтер мы редактировали файл  AUTOEXEС.BAT, на предмет загрузки драйвера принтера, ничего не получилось, зато перестали открываться некоторые страницы станочного ПО.  Образ у нас был давно снят, и мы развернули его на другую карту памяти. Родную карту я трогать не стал (как чувствовал, что нельзя ). Сервисник восстановил ПО с архивной дискеты на родную карту памяти, и всё заработало. Дискеты с архивами ПО шли вместе с документацией к машине.  Там были дискеты с Досом, станочной оболочкой, параметрами приводов, программой ПЛК. Он же и предупредил нас о предельно аккуратном обращении с родной картой памяти, и посоветовал немедленно сделать образы с архивных дискет, что мы сразу и проделали.. Вот такой сюрприз от машины эпохи Дос.
    • Борман
      Не будем забывать о главном !

      Автор: Борман · Опубликовано:

    • gudstartup
      Пароль уровня доступа

      Автор: gudstartup · Опубликовано:

      а ведь все работало...
×
×
  • Создать...