API- как переопределить плоскость

[FoxTol 0]

Подскажите

Задача:

после вставки детали Д1 в сборку S1, надо плоскость детали Plane4 переопределить (перепривязать) (команда редактировать определение) как смешение на 10мм от плоскости TOP_Plane@S1 (т.е. смещением от плоскости сборки) .

P.S. при помощи записи макросов получил програмку которая создаёт новую плоскость но не переоределяет.

в Help Api нашёл макрос как изменить (расстояние) смещения на 100мм но не плоскость.

Изменено 9 апреля 2009 пользователем FoxTol

[ssv22 16]

Подскажите

Задача:

после вставки детали Д1 в сборку S1, надо плоскость детали Plane4 переопределить (перепривязать) (команда редактировать определение) как смешение на 10мм от плоскости TOP_Plane@S1 (т.е. смещением от плоскости сборки) .

Запись макросов пробовали?

[FoxTol 0]

Запись макросов пробовали?

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

[ssv22 16]

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

Да, действительно, создаётся новая плоскость...

И в макрос записыватся, ну не то чтобы "далеко не всё" - ИМХО это слишком сильно сказано.

Смотря какие операции производятся...

А в чем смысл/цель такого макроса?

И не совсем понятно о чем идет речь:

- содание новой плоскости в детали "на базе" плоскости сборки

или

- назначение сопряжений между существующими плоскостями в детали и сборке?

[FoxTol 0]

И не совсем понятно о чем идет речь:

- содание новой плоскости в детали "на базе" плоскости сборки

или

- назначение сопряжений между существующими плоскостями в детали и сборке?

Вставляю в сборку R1 деталь Dd1 (база) и совмещаю по трём плоскостям

Затем редактирую определение "плоскость 3"

Перепривязывая её на одну грань PR1 (колонна)

Теперь если я меняю PR1 (колонну) то меняется и Dd1 (база)

Вот такие действия я хочу, чтобы выполнялись в макросе.

P.S. планирую использовать для автоматизации проектирования Металлоконструкций :)

[tooth 0]

P.S. при помощи записи макросов получил програмку которая создаёт новую плоскость но не переоределяет.

в Help Api нашёл макрос как изменить (расстояние) смещения на 100мм но не плоскость.

Привет.Меня заинтересовала ваша тема-получения формирования новой плоскости с записью макроса.Может надо сформировать плоскость используя ребро тела?

[FoxTol 0]

Привет.Меня заинтересовала ваша тема-получения формирования новой плоскости с записью макроса.Может надо сформировать плоскость используя ребро тела?

Здесь основной смысл, не в формировании, а в переопределении уже существующей плоскости. Потому что геометрические объекты ссылаются на эту плоскость (а не на новую).

Как я понимаю в плоскости одного родителя (т.е. объект на основании которого она создавалась) другим объектом.

Например если плоскость создавалась смещением на 10 мм относительно Front_Plane надо заменить этого родителя на Top_plane...

Изменено 10 апреля 2009 пользователем FoxTol

[FoxTol 0]

Что-то ниукого никаких идей !!!

Сложный вопрос или никто так и не понял задачи??

Изменено 13 апреля 2009 пользователем FoxTol

[ssv22 16]

Что-то ниукого никаких идей !!!

Сложный вопрос или никто так и не понял задачи??

Мне кажеться Вы путаете понятия переопределения плоскости и переопределения сопряжения.

Если Вы создали деталь, в ней плоскость "PPP1", смещением от базовой пл. детали и строите какие-то доп. элементы...

Затем Вы вставляете эту деталь в Сборку и спрашиваете "как мне переопределить полскость PPP1?"

ИМХО, Вам не пл. "PPP1" переопределять надо, а наложить сопряжения в сборке, используя эту плоскость и плоскости или других детатлей или плоскости самой сборки.

Вот когда Вы наложите сопряжение "Совпадение" (или др.) между плоскостью "РРР1" детали и плоскостью "ПЛ01" сборки, вот тогда и можно будет задавать Ваш изначальный вопрос. НО! не о переопределении плоскости "РРР1" детали, а плоскости "ПЛ01" сборки.

Итого имеем :

- дет. Д1, в которой определена пл. РРР1;

- сборка С1 в которой определена пл. ПЛ01;

- дет. Д1 вставлена в сборку С1 и наложено сопряжение "Совпадение" по плоскостям РРР1 и ПЛ01;

Теперь у Вас ТРИ варианта на выбор:

- редактировать в детали определение пл. РРР1;

- редактировать в сборке определение пл. ПЛ01;

- редактировать определение сопряжения "Совпадение" в сборке.

[FoxTol 0]

Вам не пл. "PPP1" переопределять надо, а наложить сопряжения в сборке, используя эту плоскость и плоскости или других детатлей или плоскости самой сборки.

1. Как я отмечал в примере с картинками. Деталь вставленна в сборку и сопрежена тремя парами плоскостей.

2. Четвёртая плоскость детали не совпадает с плоскостью сборки (потому что я заранее не знаю, например размер колонны, и не хочу делать множество семейств.) а раз три сопряжения уже есть то сопрячь четвёртую пару плоскостей не получиться.

3. А хочу что бы переопределившаяся (по средством переопределения) плоскость (грань колонны) определяла геометрию вставляемой детали.

И вообщем вопрос не в приёмах работы.

Вопрос: Как командами макроса VisualBasic, выполнить операции аналогичные "редактировать определение плоскости с последующим выбором другой плоскости (относительно которой происходит смещение)"

И не важно для сборки это использовать или нет.

Ещё раз по пунктам.

Просто деталь с базовыми плоскостями и плоскость "Плоскость 1" , созданная смещением относительно "Front Plane" на 50мм

Далее нажимаем левой кнопкой мыши на "Плоскость 1" и выбираем в выпадающем меню "Редактировать определение"

И выбираем (переопределяем) вместо "Front Plane" -> "Right Plane"

Получаем в результате:

КАК ЭТИ ДЕЙСТВИЯ ВЫПОЛНИТЬ С ПОМОЩЬЮ КОМАНД МАКРОСА !!!!

P.S. запись макроса даёт совсем другой результат и хелп я уже читал

Изменено 13 апреля 2009 пользователем FoxTol

[Shvg 67]

Только для примера. Все необходимые проверки я опустил. Плоскость Plane4 построена от Plane1, код изменяет ссылку на Plane3. Работает только в докумете деталей, в сборке немного подругому.

Option Explicit



Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swPart As SldWorks.PartDoc

Dim swSelMgr As SldWorks.SelectionMgr

Dim swFeature As SldWorks.Feature

Dim swNewFeature As SldWorks.Feature

Dim swNewRefPlane As SldWorks.RefPlane

Dim swRefPlane As SldWorks.RefPlaneFeatureData

Dim bres As Boolean

Sub main()



	Set swApp = Application.SldWorks

	Set swModel = swApp.ActiveDoc

	Set swPart = swModel

	Set swSelMgr = swModel.SelectionManager

	

	bres = swModel.Extension.SelectByID("Plane4", "PLANE", 0, 0, 0, False, 0, Nothing)	

	Set swFeature = swSelMgr.GetSelectedObject5(1)

	

	swModel.ClearSelection2 True

	

	Set swRefPlane = swFeature.GetDefinition()

	swRefPlane.AccessSelections swPart, Nothing 'если сборка аргументы другие, читаем справку

	

	bres = swModel.Extension.SelectByID("Plane3", "PLANE", 0, 0, 0, False, 0, Nothing)

	Set swNewFeature = swSelMgr.GetSelectedObject5(1)

	Set swNewRefPlane = swNewFeature.GetSpecificFeature2()

	swModel.ClearSelection2 True

	

	Dim arrEntity(0) As SldWorks.RefPlane

	Set arrEntity(0) = swNewRefPlane

	swRefPlane.Selections = arrEntity

	

	swFeature.ModifyDefinition swRefPlane, swPart, Nothing 'если сборка аргументы другие, читаем справку

	

End Sub