Пост N: 170
Откуда: Россия, Новосибирск
Рейтинг:
2
Отправлено: 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()) и их удялять) Всего хорошего
Благодарю! Вот еще несколько вопросиков: 1. Как спроецировать на плоскость активного скетча OriginPoint для последующей приявязки к точке? Писал типа... Dim oSketchdot As SketchEntity Set oSketchdot = oSketch.AddByProjectingEntity(oSketch.OriginPoint) - не прокатило 2. Как программно выйти из пространства скетча в пространство детали (при открытом изначально ipt разумеется)? Спасибо!
Пост N: 171
Откуда: Россия, Новосибирск
Рейтинг:
2
Отправлено: 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 . . .
Пост N: 172
Откуда: Россия, Новосибирск
Рейтинг:
2
Отправлено: 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 ). Всего хорошего.
Вот еще что хотел спросить: в файле детали я вручную подгружаю файлик *.xls (связываю или внедряю его) с размерами для моей будующей вспом. геометрии. Для самой геометрии у меня уже написан макрос, из которого я должен получить доступ к размерам из электронной таблицы. Как это сделать грамотнее?
на сайте http://inventor.mechmagic.com Михаил Казаков в разделе Visual Basic click here расписал очень подробно, как программно обратиться к экселевской таблице
Всем приветик. Может кто подскажет как делается переход по программному коду. Например как установить метку и чтобы по соблюдению условия программа переходила на эту метку
Все даты в формате GMT
3 час. Хитов сегодня: 2
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация вкл, правка нет