-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
Автор: jtok · Опубликовано:
Для гаражных дел Солид со Сварными конструкциями самое то. Для "супер технологичных проектов" - Tekla и Advance Steel -
Автор: maxx2000 · Опубликовано:
Теперь понятно у кого хохлы слизали "Маятник любви" -
-
-
Автор: SiMuX · Опубликовано:
Как решил, подскажи пожалуйста? -
Автор: Artas28 · Опубликовано:
Когда копирую траекторию (объект - преобразование - зеркальное отображение) то в зеркальной траектории получается встречное фрезерование. Можно как нибудь быстро в отзеркаленной траектории сделать попутное резание? -
Автор: clavr · Опубликовано:
не допечаталось предыдущее сообщение. замените атрибут ячеек с общего на числовой -
Автор: Dima93 · Опубликовано:
Надо перевести фищические величины теплопроводность, теплоемкость, коэффициенты теплоотдачи, тепловой поток, давление, плотность и т.д. из системы СИ в систему, где расстояние измеряется в мм, масса в г, время в мс. Есть ли простой и удобный калькулятор (конвертер)? -
Автор: Chuvak · Опубликовано:
@malvi.dp Согласен @nahaus Попробуйте данный код: Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swDrawing As SldWorks.DrawingDoc Dim swSheet As SldWorks.Sheet Dim fullPathFile As String Dim nameFileExtension As String Dim nameFileWithoutExtension As String Dim propM() As Double Dim propN As String Dim n As Byte Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swDrawing = swModel fullPathFile = swModel.GetPathName ' swApp.SendMsgToUser2 fullPathFile, swMbWarning, swMbOk nameFileExtension = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1) ' swApp.SendMsgToUser2 nameFileExtension, swMbWarning, swMbOk nameFileWithoutExtension = Left(nameFileExtension, InStrRev(nameFileExtension, ".") - 1) ' swApp.SendMsgToUser2 nameFileWithoutExtension, swMbWarning, swMbOk Set swSheet = swDrawing.GetCurrentSheet propN = "" propM = swSheet.GetProperties2 For n = LBound(propM) To UBound(propM) propN = propN & propM(n) & Chr(10) ' Debug.Print propN Next n ' swApp.SendMsgToUser2 swSheet.GetName, swMbWarning, swMbOk swApp.SendMsgToUser2 propN, swMbInformation, swMbOk End Sub -
Автор: malvi.dp · Опубликовано:
Дело в том, что"swSheet.GetProperties2" это массив св-в и прежде чем их отобразить, нужно его записать, допустим, в текстовую переменную через цикл как-то так
-
Рекомендованные сообщения