Там вроде есть другой пункт для зеркала и там можно галочку поставить сохранить направление, посмотрите!

Для гаражных дел Солид со Сварными конструкциями самое то. Для "супер технологичных проектов" - Tekla и Advance Steel

Теперь понятно у кого хохлы слизали "Маятник любви"

Что-то из Южного парка    

Да я тоже уже решил )

Как решил, подскажи пожалуйста?

Когда копирую траекторию (объект - преобразование - зеркальное отображение) то в зеркальной траектории получается встречное фрезерование. Можно как нибудь быстро в отзеркаленной траектории сделать попутное резание?

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

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

@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