Отправлено: 03.07.06 10:01. Заголовок: Вопросы по VBA в Inventor

Всем здрасьте! Вопрос: что надо написать в макросе, что бы при каждом последующем его запуске очищался скетч, от предыдущих построений? Спасибо

 Отправлено: 03.07.06 10:40. Заголовок: Re:

Владимир пишет:

цитата:

очищался скетч

Если все скетчи в активном листе (виде) то:

' Определения для коллекции DrawingSketches.
Dim oSketches As DrawingSketches
Set oSketches = ThisDocument.ActiveSheet.Sketches
' если активный лист не имеет скетчей - выход
If oSketches.count = 0 Then
Exit Sub
End If
' Определения для Sketch в коллекции DrawingSketches.

Dim oSketch As DrawingSketch
' Перебор всех скетчей и их удаление
For Each oSketch In oSketches
oSketch.Delete
Next oSketch
Если очистить конкретный вид скетча то перед удалением нужно поставить определение необходимого типа Type(SketchSplines,SketchLines и т.д. - коллекций и в них опять при небходимости искать перебором необходимый Item по типу либо ее геометрии ( точек либо конечных точек - можно использовать RangeBox()) и их удялять)
Всего хорошего

 Отправлено: 03.07.06 11:28. Заголовок: Re:

Благодарю!
Вот еще несколько вопросиков:
1. Как спроецировать на плоскость активного скетча OriginPoint для последующей приявязки к точке? Писал типа...
Dim oSketchdot As SketchEntity
Set oSketchdot = oSketch.AddByProjectingEntity(oSketch.OriginPoint) - не прокатило
2. Как программно выйти из пространства скетча в пространство детали (при открытом изначально ipt разумеется)?
Спасибо!

 Отправлено: 04.07.06 13:02. Заголовок: Re:

Владимир пишет:

цитата:

Как программно выйти из пространства скетча

Dim oSketches As DrawingSketches
Set oSketches = ThisDocument.ActiveSheet.Sketches
.
.
.
' Set a reference to the first sketch.
Dim oSketch As DrawingSketch
Set oSketch = oSketches.Item(1)

' Place the sketch in edit mode.
oSketch.Edit
.
.
.



' Return from edit mode.
oSketch.ExitEdit

 Отправлено: 04.07.06 13:38. Заголовок: Re:

Владимир пишет:

цитата:

Как спроецировать на плоскость активного скетча OriginPoint для последующей приявязки к точке

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

' Get the Center of Mass.
Dim oCenterOfMass As Point
Set oCenterOfMass = oDoc.ComponentDefinition.MassProperties.CenterOfMass

' Check to see if a work point for center of mass already exists.
' This uses the name of the work feature to identify it.
On Error Resume Next
Dim oWorkPoint As WorkPoint
Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.Item("Center Of Mass")
Только вместо Center Of Mass, - origin point( название уточни в хелпе или програмно через WorkPoints.Item(i).Name (перебирая все))
А уж потом:
Set oSketchdot = oSketch.AddByProjectingEntity(oWorkPoint ).
Всего хорошего.

 Отправлено: 08.07.06 18:24. Заголовок: Re:

Вот еще что хотел спросить:
в файле детали я вручную подгружаю файлик *.xls (связываю или внедряю его) с размерами для моей будующей вспом. геометрии. Для самой геометрии у меня уже написан макрос, из которого я должен получить доступ к размерам из электронной таблицы. Как это сделать грамотнее?

 Отправлено: 09.07.06 17:31. Заголовок: Re:

на сайте http://inventor.mechmagic.com Михаил Казаков в разделе Visual Basic click here расписал очень подробно, как программно обратиться к экселевской таблице

 Отправлено: 11.06.07 08:18. Заголовок: Re:

Всем приветик.
Может кто подскажет как делается переход по программному коду.
Например как установить метку и чтобы по соблюдению условия программа переходила на эту метку

 Отправлено: 11.06.07 15:49. Заголовок: Re:

gawgaw

if ... then GoTo METKA 
 .... 
 METKA: 
 ....