Ilogic - projecting the hole onto the surface instead of standard adaptive

[ralfmja]

Hello,

I am asking for help in improving my rule that I use to project holes. I use it as in the attached video:

	'sprawdzanie czy jesteśmy w złożeniu
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then
		MsgBox("REGULA DZIAŁA TYLKO W ZESPOLE", vbCritical, "OSTRZEŻENIE")
		Exit Sub
End If

Dim oAsm As AssemblyDocument = ThisDoc.Document
Dim oTransaction As Transaction = ThisApplication.TransactionManager.StartTransaction(oAsm, "RZUTOWANIE OTWORÓW")
Dim oFace As FaceProxy
'obsluga bledu jezeli ktoś sie rozmysli przy wybieraniu plaszczyzny z otworami
While True
   oFace = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "WSKAŻ PŁASZCZYZNE Z OTWORAMI")
	' jesli nic nie wybrane to	
	If IsNothing(oFace) Then GoTo koniec Else
		Exit While
End While

Dim oFaceOcc As ComponentOccurrence = oFace.ContainingOccurrence

Dim aFace As FaceProxy

'obsluga bledu jezeli ktoś sie rozmysli przy wybieraniu plaszczyzny rzutowania
While True
   aFace = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "WSKAŻ PŁASZCZYZNE RZUTOWANIA")
	
	' jesli nic nie wybrane to 	
	If IsNothing(aFace) Then goto koniec Else
		Exit While
End While

Dim aFaceRefKey(-1) As Byte
Dim aFaceKeyContext As Integer = oAsm.ReferenceKeyManager.CreateKeyContext
aFace.GetReferenceKey(aFaceRefKey, aFaceKeyContext)
Dim aOcc As ComponentOccurrence = aFace.ContainingOccurrence
Dim aDef As PartComponentDefinition = aOcc.Definition
Dim NPBFdef As NonParametricBaseFeatureDefinition = aDef.Features.NonParametricBaseFeatures.CreateDefinition
Dim oCol As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
oCol.Add(oFace)
NPBFdef.BRepEntities = oCol
NPBFdef.OutputType = kSurfaceOutputType
NPBFdef.TargetOccurrence = aOcc
NPBFdef.IsAssociative = True

'sprawdzanie czy nie ma użytego pogrubienia lub edycji bezpośredniej
If aDef.Features.ThickenFeatures.Count > 0 Or aDef.Features.DirectEditFeatures.Count >0 Then
	MsgBox("W CZĘŚCI NA KTÓRĄ RZUTUJESZ JEST POGRUBIENIE LUB EDYCJA BEZPOŚREDNIA - USUN TO", vbCritical, "OSTRZEŻENIE")
	goto koniec
	Exit Sub
Else
End If

Dim planeInput As New List(Of KeyValuePair(Of WorkPoint, WorkAxis))

Dim cpySurf As NonParametricBaseFeature
cpySurf = aDef.Features.NonParametricBaseFeatures.AddByDefinition(NPBFdef)
For Each oLoop As EdgeLoop In cpySurf.Faces(1).EdgeLoops
	If oLoop.IsOuterEdgeLoop = False
		Dim oPoint As WorkPoint = aDef.WorkPoints.AddAtCentroid(oLoop)
		Dim oAxis As WorkAxis = aDef.WorkAxes.AddByNormalToSurface(oAsm.ReferenceKeyManager.BindKeyToObject(aFaceRefKey, aFaceKeyContext).NativeObject, oPoint)
		planeInput.Add(New KeyValuePair(Of WorkPoint, WorkAxis)(oPoint, oAxis))
	End If
Next
cpySurf.SurfaceBodies(1).Visible = False


    Dim oPlaszczyzna As WorkPlane = aDef.WorkPlanes.AddByPlaneAndOffset(oAsm.ReferenceKeyManager.BindKeyToObject(aFaceRefKey, aFaceKeyContext).NativeObject, 0)
	oPlaszczyzna.Visible = False
	Dim oSketch As PlanarSketch = aDef.Sketches.Add(oPlaszczyzna)
	oSketch.Visible = True
	
For Each oPair As KeyValuePair(Of WorkPoint, WorkAxis) In planeInput
	Dim oCP As SketchPoint = oSketch.AddByProjectingEntity(oPair.Key)
	Dim oEP As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(oCP.Geometry.X + 1 / 2, oCP.Geometry.Y)
	Dim oSlot As SketchEntitiesEnumerator = oSketch.AddStraightSlotBySlotCenter(oCP, oEP, 0.9)
	Dim oLine As SketchLine = oSlot.OfType(Of SketchLine).FirstOrDefault(Function(x As SketchLine) x.Construction = True)
'	oSketch.GeometricConstraints.AddHorizontal(oLine)
	oSketch.DimensionConstraints.AddTwoPointDistance(oLine.StartSketchPoint, oLine.EndSketchPoint, DimensionOrientationEnum.kHorizontalDim, oCP.Geometry)
	Dim oLines = oSlot.OfType(Of SketchLine).Where(Function(x As SketchLine) x.Construction = False)
	Dim oLine1 As SketchLine = oLines(0)
	Dim oLine2 As SketchLine = oLines(1)
	oSketch.DimensionConstraints.AddOffset(oLine1, oLine2, oCP.Geometry, False)
'	Dim oProfile As Profile = oSketch.Profiles.AddForSolid
'	aDef.Features.EmbossFeatures.AddEngraveFromFace(oProfile, 2, PartFeatureExtentDirectionEnum.kNegativeExtentDirection, , oAsm.ReferenceKeyManager.BindKeyToObject(aFaceRefKey, aFaceKeyContext).NativeObject)
	
	oSketch.DimensionsVisible=False
	oPair.Key.Visible = False
	oPair.Value.Visible = False
Next

koniec:
oAsm.Update
oTransaction.End
InventorVb.DocumentUpdate() 

'Wyłaczenie adaptacyjnosci
iLogicVb.Automation.RunExternalRule(oAsm, "ADAPTACJA_OFF")

I have some ideas for improvement but I don't know how to carry them out.

I would need:
1. be able to project holes from several planes so that they are in one sketch on the projection plane.
2. measure the projected diameters and on this basis insert the appropriate holes (example: measured diameter = 6.448mm new hole = 9mm)

Someone help me ??

[Michael.Navara]

This is not an answer but topic to discuss.

I don't understand why you create some non-parametric base features if you want to create planar sketch. You can create sketch directly on part planar face.

Here is more compact sample how to do it. You can select multiple source faces for hole placement.

Sub Main()
    Dim asm As AssemblyDocument = ThisDoc.Document
    Dim targetFaceProxy As FaceProxy = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAllPlanarEntities, "Pick target face or work plane")

    Dim targetOccurrence As ComponentOccurrence = targetFaceProxy.ContainingOccurrence
    Dim targetTransformation As Matrix = targetOccurrence.Transformation
    targetTransformation.Invert()
    Dim targetPartDef As PartComponentDefinition = targetOccurrence.Definition
    Dim targetFace As Face = targetFaceProxy.NativeObject

    Dim holeCenters As New List(Of Point)
    Do
        Dim sourceFace As FaceProxy = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFacePlanarFilter, "Pick source face or press ESC to continue")
        If sourceFace Is Nothing Then Exit Do
        Dim sourceOccurrence As ComponentOccurrence = sourceFace.ContainingOccurrence
        Dim sourcePartDef As PartComponentDefinition = sourceOccurrence.Definition
        For Each edgeLoop As EdgeLoopProxy In sourceFace.EdgeLoops
            If edgeLoop.IsOuterEdgeLoop Then Continue For
            Dim tempWorkPoint As WorkPoint = sourcePartDef.WorkPoints.AddAtCentroid(edgeLoop.NativeObject, True)
            Dim holeCenterPoint As Point = tempWorkPoint.Point
            tempWorkPoint.Delete()
            holeCenterPoint.TransformBy(sourceOccurrence.Transformation)
            holeCenterPoint.TransformBy(targetTransformation)
            holeCenters.Add(holeCenterPoint)
        Next
    Loop While True

    'Create sketch with center points
    Dim sketch As PlanarSketch = targetPartDef.Sketches.Add(targetFace)

    For Each holeCenter As Point In holeCenters
        Dim holeCenter2d = sketch.ModelToSketchSpace(holeCenter)
        sketch.SketchPoints.Add(holeCenter2d, True)
    Next
End Sub

[ralfmja]

Hi @Michael.Navara ,

Thank you very much for your interest 🙂

In short, I'm an amateur 😉

I'm looking for existing rules, I'm changing them for my ideas due to the fact that I have no experience in programming 🙂

However, I have a lot of experience in designing and I know what I want to achieve 🙂

Coming back to your proposal, the effect is in line with my assumptions. However, I need an "action" that will be copied to the solid in which I want to create holes "surfaces" (so that I can enable/disable its adaptivity). Then from this "copied surface" I want to create a sketch and in it (possibly) measure the diameters of the projected circles and insert the appropriate holes 🙂

Why so?? because (in my opinion) the standard adaptability in inventor causes more problems than good in large assemblies 🙂

recreating this scheme in the "normal" Inventor operation, I would like to do it as in the video below (of course, I only need to copy surfaces with holes, not the entire solid):

To sum up - I want to copy surfaces (one or several which will be adaptive) and create a sketch in a part from it, and then create holes based on this sketch.

Can you help me achieve this?? 🙂