Приветствую,
Решил приобщится к vba inventor - собрав материал что смог найти так и не могу осилить построение точки и прямоугольника и размера между ними
на чертеже(без видов)
на фото пример что я хочу получить..
вот что смог собрать но это не работает
Решил приобщится к vba inventor - собрав материал что смог найти так и не могу осилить построение точки и прямоугольника и размера между ними
на чертеже(без видов)
на фото пример что я хочу получить..
вот что смог собрать но это не работает
Код |
---|
Dim oDrawingDoc As DrawingDocument Set oDrawingDoc = ThisApplication.ActiveDocument Dim oSheet As Sheet 'Dim asb 'Set asb = oDrawingDoc.Sheets 'MsgBox asb.Count Set oSheet = oDrawingDoc.Sheets.Item(1) Dim oPoint1 As Point2d Set oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(0#, 0#) Dim oPoint2 As Point2d Set oPoint2 = ThisApplication.TransientGeometry.CreatePoint2d(25#, 25#) oSheet.Sketches.Add 'Dim s As DrawingSketch 'Set s = d.Sketches.Item(1) oSheet.Edit Call oSheet.SketchLines.AddAsTwoPointRectangle(oPoint1, oPoint2) oSheet.ExitEdit '//Create dimension In sketch oSketch.DimensionConstraints.AddTwoPointDistance(oSketchPoint1, oSketchPoint2, Inventor.DimensionOrientationEnum.kAlignedDim, oTextPosition, False) ' привязка сразу к объектам не получится так как один и тот же объект будет принимать разные параметры через циклы '//Create 2 sketch points Dim oSketchPoint1 As SketchPoint oSketchPoint1 = oSketch.SketchPoints.Add(oInSketchPoint1, False) ' True или False ? |
Изменено: Александр - 01.08.2020 15:15:44