Немного автоматизации к предыдущему макросу внесения свойства формата.
Теперь не надо кликать мышкой и выбирать какой-либо вид на чертеже.Автоматически выбирается первый вид на листе.
Алекс800, там не так всё просто. Наас это не совсем фанук. В одном из вариантов программирования G52 влияет на все нули (G54......) - глобальное смещение. В этой программе, скорее всего, смещение по G52 забито для обкатки программы (центровки).
При таком раскладе, вроде и без селекшн менеджера работает, без вот этих строк
'делаем первый вид активным
boolstatus = swDraw.ActivateView(swView.GetName2)
'выбираем первый вид на чертеже (симуляция клика мышки)
boolstatus = swDraw.Extension.SelectByID2(swView.GetName2, "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
Set swView = swSelMgr.GetSelectedObject6(1, -1)
G90 G54-(1место в приспособлении)G52 X0. Y0. Z2. (кадр лишний в программе)
G00 X0. Y-10. S600 M03 (координата первого отверстия)G43 H02 Z50. (ввод коррекции на длину инструмента)M08 (включение охлаждения)G00 X0. Y-10. S600 M03 (координата отверстия в отношении первого приспособления где G54 первый дом)G43 H02 Z50. (ввод корректора на длину инструмента)M08 (включение охлаждения)G82 R2. Z-1. P0.4 F20. (цикл центровки постоянный цикл)G55 X0. Y-10.(обработка отверстия в 2 приспособлении)G56 X0. Y-10.(тоже в 3)G57 X0. Y-10.(тоже в 4)G00 G80 Z50. (отмена постоянного сверлильного цикла)M09 (выкл
Борман говорит Штирлицу:
— Мне кажется вы еврей!
— Как это: мама русская, папа русский, а я еврей!!! — обиделся Штирлиц и задумался, не взболтнул ли чего лишнего.
Макрос для сохранения солидовской спецификации как текстовый файл в папку с моделью. Сохраняет "смещённый" тип, его можно поменять в строке кода
SBomType = swBomType_Indented на другой тип
' Тип спецификации
' swBomType_Indented - Смещённая
' swBomType_PartsOnly - Только детали
' swBomType_TopLevelOnly - Только верхнего уровня
Если в коде раскомментировать строку с расширением ".xls", то сохранит, как excel файл.
Необходимо прописать путь к своему шаблону спецификации в строке
TemplateName = "C:\boms\Bom.sldbomtbt"
Выло
Переделанный макрос для определения и занесения в свойства формата листа. Спасибо Kir95 за помощь ссылками на нужные моменты.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swSheet As SldWorks.Sheet
Dim swRefModel As SldWorks.ModelDoc2
Dim swCustProp As CustomPropertyManager
Dim swConfig As SldWorks.Configuration
Dim viewConfigName As String
Dim swSelMgr As SldWorks.SelectionMgr
Dim vSheetProps As Variant
Dim bRet As Boolean
Dim bool As Boolean
Dim Format As String
Dim nErr As Long,
Один еврей в Одессе подходит к другому еврею-извозчику и просит подвезти на Дерибасовскую.
— Садись.
Проехали метров 20. Извозчик говорит:
— Слезай.
— Зачем? — спрашивает тот.
— Видишь дорога круто вверх пошла. Надо поддержать повозку. Вдруг лошадь не выдержит.
Выехали на гору, пассажир только садиться, извозчик говорит:
— Слезай.
— Зачем? — спрашивает тот.
— Видишь дорога круто вниз пошла. Надо придержать повозку. Вдруг лошадь не выдержит.
Спустились вниз, пассажир только садиться, извозчик говорит:
— Слезай.
— Зачем? — спрашивает тот.
— Приехали, вот твоя Дери
Привет всем!
Особой необходимости в создании шрифта не было, т.к. гравировки не так много и хватало обходных путей для создания средней линии шрифта. Но тут стало интересно как все же его создать и за несколько дней разобрался в этой теме, попутно освоив интересную программу fontlab. Процесс пошел бы быстрее, если бы мне помогли разобраться в некоторых хитростях. Но к сожалению форум все чаще становится похож на базар, где на вопросы людей им не помогают разобраться или направить в нужном направлении, а предлагают написать в лс и купить информацию. Как по мне, здесь не рынок, а все таки
Галка "припуск как компонент" автоматически при создании припуска на трассу создает компонент сборки с этим припуском, припуск почти всегда связан с трассой. Рекомендации: припуск легко можно стащить с трассы, но при редактировании трассы припус на нее возвращается, поэтому не связывайте сопряжениями припуска с другими компонентами сборки, пусть припуска в навигаторе сборки будут всегда отображаться "незакрашенным кружком" в графе состоянии, т.е. иметь все степени свобод. Если вы будите использовать сопряжения припуска с компонентами, не исключено что припуск может "выдрать" с трассы и тогда с