Сделай свою работу в Solidworks эффективнее

[GMP_Pro 1]

Всем привет. Наткнулся на такое видео 

. Может кто подскажет как можно самому реализовать такую вещь?

[SERoz 201]

Программка для построения моделей пружин сжатия и растяжения:

Попробовал поставить, запустил SpringInstall.bat, чего-то там сделалось, но в самом солиде ничего не появилось и не подключилось

Так же пробовал запустить через загрузку dll'ки...

Пробовал загрузить модельки - загрузились и опять ничего (как на пиктурях)...

 

Может чего не так сделал??

А для какой версии Солида эта прожка (у меня 2014.05)???

[streamdown 1 565]

Программка

 

Есть ли возможность пересобрать хотя бы под 3.5 фреймворк?

По-ходу что-то потерялось.

И да, запускал админом. Папка сразу на диске С:\

[streamdown 1 565]

А зачем?

 

Проблема десятки 

[Shvg 67]

 

Проблема десятки 

 

Куда торопимся?

[SERoz 201]

Из под администратора запускали?

Выдает это

[streamdown 1 565]

Та же проблема. Значит что-то потерялось.

[Shvg 67]

Та же проблема. Значит что-то потерялось.

Жаль. Факир был пьян, фокус не удался...

[SERoz 201]

Жаль. Факир был пьян, фокус не удался...

Может всё (или одну dll'ку) надо кидать в какую-то определенную папку (раз оно не может найти эту dll'ку)???

[Docuk1 31]

решил ещё чуток продолжить тему Insert Image in a Drawing v.4

При использовании этого макроса при печати на бумагу на бумагу все линии печатаются цветными, хоть в настройках стоит черно-белая печать. На рабочем компьютере победил это сделав все цвета черными. На на компе, через который печатаю линии не только цветные, но и толщина в 10 раз больше обычного.

Решил в начале на рабочем компе чертеж печатать в pdf, а потом распечатывать. Печатаю в pdf через pdfCreator, потому что макрос SaveAsPDF делает линии разреза тройной толщины. Но при создании pdf через пдфкреатор все линии становятся толщиной 0,1мм.

Все проблемы возникает только после использовании макроса. Есть ли какое-нибудь решение?

[fox1001 787]

при печати на бумагу на бумагу все линии печатаются цветными, хоть в настройках стоит черно-белая печать

прям чудеса

На рабочем компьютере победил это сделав все цвета черными

логично ёпт. ну ващеее красава   

1. давай картинки или видео с пояснениями 

2. в архиве с прогой есть картинки с подписями. попробуй с ними.

[Docuk1 31]

прям чудеса

 

 

логично ёпт. ну ващеее красава  

1. давай картинки или видео с пояснениями 

2. в архиве с прогой есть картинки с подписями. попробуй с ними.

https://cloud.mail.ru/public/Fc17/rWZuSx11v

 

картинки в архиве пробовал, та же фигня =) нужен короче макрос, который делает нормальную пдфку, одновременно заюзав макрос Insert Image in a Drawing v.4

[fox1001 787]

https://cloud.mail.ru/public/Fc17/rWZuSx11v

 

картинки в архиве пробовал, та же фигня =) нужен короче макрос, который делает нормальную пдфку, одновременно заюзав макрос Insert Image in a Drawing v.4

так-с. у меня нормальные подписи можно получить только если вставлять подписи в формате png с прозрачным фоном и с последующим сохранением в tif.

1. попробуй сохранить чертеж в TIFF (тип: черно-белое; сжатие: Group 4 Fax; точек на дюйм: 300)

2. в новом чертеже вставь картинки-подписи не применяя Insert Image in a Drawing (IID), т.е. штатными средствами SOLIDWORKS (Вставка > Рисунок...)

[Docuk1 31]

Всё таки с макросом iid никак не хочет правильно печатать. Но ты подсказал отличную идею! Я Записал макрос вставки рисунка. Но вот единственный минус - координаты в макрос не захотели записываться. То есть действие макроса таково, что просто вставляется определенный рисунок. Можешь ли ты написать пару строчек кода (или вытащить их с IID), чтобы картинка вставлялась опреденной ширины и с опреленными координатами. А вообще будет писечно, если координаты будут от правого нижнего угла форматки :))

Изменено 3 сентября 2015 пользователем Docuk1

[fox1001 787]

Всё таки с макросом iid никак не хочет правильно печатать. Но ты подсказал отличную идею! Я Записал макрос вставки рисунка. Но вот единственный минус - координаты в макрос не захотели записываться. То есть действие макроса таково, что просто вставляется определенный рисунок. Можешь ли ты написать пару строчек кода (или вытащить их с IID), чтобы картинка вставлялась опреденной ширины и с опреленными координатами. А вообще будет писечно, если координаты будут от правого нижнего угла форматки :))

ну прям моей дорогой идешь. я тоже начинал с записи макросов, а закончил... кхе-кхе... вобщем не закончил пока ещё . вот код:

imgName            - Имя картинки

ext                      - Расширение картинки 

indent                - Отступ по оси Х (в мм) от правого края чертежа 

imgWidth           - Ширина картинки в мм 

imgPosY            - Координата точки вставки по оси Y в мм 

imgSheetName - Имя картинки. Прим.: имя необходимо для поиска и удаления картинки по имени 

imgAngle           - Угол (в градусах) поворота картинки относительно горизонта 

  Private Sub InsertNewImage(ByVal imgName As String, ByVal ext As String, ByVal imgWidth As Double, ByVal indent As Double, ByVal imgPosY As Double, ByVal imgSheetName As String, ByVal imgAngle As Double)
    swDraw.EditTemplate() ' переходим в режим редактирования основной надписи
    swSheet = swDraw.GetCurrentSheet ' получаем активный лист
    SkPicture = CType(swModel.SketchManager.InsertSketchPicture(txtDir.Text & "\" & imgName & "." & ext), SketchPicture) ' создаем объект "какртинка" из файла картинки
    If SkPicture IsNot Nothing Then ' если объект "картинка" создан
      SkPicture.SetSize(imgWidth / 1000, False, True) ' задаем размер картинки
      If imgAngle = 90 Then ' если вставляется картинка "Архивариус"
        indent = (swSheet.GetProperties(5) * 1000) - indent ' отступ по оси Х (swSheet.GetProperties(5) - ширина листа)
      End If
      SkPicture.SetOrigin(swSheet.GetProperties(5) - indent / 1000, imgPosY / 1000) ' координаты вставки картинки
      SkPicture.Angle = imgAngle * Math.PI / 180 ' угол в радманах
      SkPicture.SetTransparency(swSketchPictureTransparencyStyle_e.swSketchPictureTransparencyFromFile, 0, 0, 0)  'задаем прозрачность 
      SkPicture.GetFeature.Name = imgSheetName  ' присваиваем картинке имя
    End If
    swDraw.EditSheet() ' режим редактирования листа
    swDraw.EditSketch() ' режим редактирования эскиза, т.е. выход из режима редактирования картинки
    swDraw.ClearSelection2(True) ' снять все выделения
  End Sub

но написано это на VB.Net.

[Docuk1 31]

вот код

 

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

 

Не могу только понять как заставить работать SkPicture.SetSize и SkPicture.SetOrigin. так просто численные значения они не хотят присваивать. снизу набросал макрос. Можешь, пожалуйста подкорректировать чтоб работал? )))

 

 

 

Dim swApp As Object


Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long




Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Dim SkPicture As Object
Set SkPicture = Part.SketchManager.InsertSketchPicture("F:\SolidWorks Files\Новые макросы\ROSPIS.jpg")
SkPicture.SetSize(16 / 1000, False, True) (вот тут не работает) 
SkPicture.SetOrigin(swSheet.GetProperties(5) - 153 / 1000, 21 / 1000) (и тут тоже)
End Sub

16  это ширина

153 это по оси Х

21 по оси Y

Изменено 3 сентября 2015 пользователем Docuk1

[fox1001 787]

Можешь, пожалуйста подкорректировать чтоб работал? )))

думаю вот так:

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Dim w As Double
Dim dx As Double
Dim dy As Double

Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Dim SkPicture As Object

w = 16
dx = 153
dy = 21

Set SkPicture = Part.SketchManager.InsertSketchPicture("F:\SolidWorks Files\Новые макросы\ROSPIS.jpg")
SkPicture.SetSize(w / 1000, False, True)
SkPicture.SetOrigin(swSheet.GetProperties(5) - dx / 1000, dy / 1000)
End Sub

[Docuk1 31]

думаю вот так:

 

https://cloud.mail.ru/public/5z9N/zEYFtAxDP

 

https://cloud.mail.ru/public/J8Sk/W16MpwPrB 

 

выдаёт ошибку 

[fox1001 787]

https://cloud.mail.ru/public/5z9N/zEYFtAxDP

 

https://cloud.mail.ru/public/J8Sk/W16MpwPrB

 

выдаёт ошибку 

гы... скобки нужно убрать. это ж vba. пример

[Docuk1 31]

скобки нужно убрать

 

Убрал =) размер картинки назначается. Дальше не проходит swSheet.GetProperties(5). Чувствую надо дописать set или dim или еще чего... всё попробовал, но не хочет работать. 

 

Dim swApp As Object

 

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

 

Dim w As Double

Dim dx As Double

Dim dy As Double

 

  

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

Dim SkPicture As Object

 

w = 16

dx = 153

dy = 21

 

 

Set SkPicture = Part.SketchManager.InsertSketchPicture("F:\SolidWorks Files\Новые макросы\ROSPIS.jpg")

SkPicture.SetSize w / 1000, False, True

SkPicture.SetOrigin swSheet.GetProperties(5) - dx / 1000, dy / 1000 (если удалить 'swSheet.GetProperties(5) -' , то всё работает)

End Sub