Rule to Set Origin indicator on Drawing View
Hi,
I've tried this rule and the origin symbol does not snap on the intersection.
2 different parts and drawings return the same, ratio of 0.375 along the first picked line.
Hi @Michael.Navara ,
I have question for this topic - maybe you can help me 🙂
I have a view where I want to add an origin indicator without pointing to anything. I think you need to approach it in the following way:
To find point A and B, we could use this rule,which finds the "left point" in the X and Y directions. (@JelteDeJong)
Could you show me the path and how to proceed to determine point C in ilogic ?
Thanks in advance,
Regards,
ralfmj
Hi @ralfmja. That might be nearly impossible in some situations. What if the view was of a round part (circle is outer edge of part)? No amount of checking the X & Y positions of CenterPoint, StartPoint, EndPoint type points on DrawingCurves will give you an accurate minimum X, and minimum Y value you need for that lower left point. The simplest, and quickest way (which is most likely also the least accurate) is to use the DrawingView.Left property to get the minumum X value. Then use (DrawingView.Top - DrawingView.Height) to get the minimum Y value of the view.
Wesley Crihfield
(Not an Autodesk Employee)
Hi @ralfmja. Here is an iLogic code example that should get the location for you (a Point2d), but there does not appear to be any good way to then create the GeometryIntent needed to create the origin indicator after that point. A GeometryIntent needs something stable as its basis, not just transient geometry (math only). And keep in mind that the coordinate values it writes to the iLogic Log window at the end are in 'database units', instead of 'document units', so you may need to convert them to whatever units you usually use.
Sub Main
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub
Dim oDDoc As DrawingDocument = ThisDoc.Document
Dim oSheet As Inventor.Sheet = oDDoc.ActiveSheet
Dim oView As DrawingView = Nothing
Try : oView = oSheet.DrawingViews.Item(1) : Catch : End Try
If oView Is Nothing Then Exit Sub
Dim oMinPoint As Point2d = GetViewMinPoint(oView)
If oMinPoint Is Nothing Then Exit Sub
Logger.Info("oMinPoint.X = " & oMinPoint.X & vbCrLf & "oMinPoint.Y = " & oMinPoint.Y)
'Dim oGI As GeometryIntent = oSheet.CreateGeometryIntent()
'oView.CreateOriginIndicator(oGI)
End Sub
Function GetViewMinPoint(oView As DrawingView) As Point2d
If oView Is Nothing Then Return Nothing
Dim oDCE As DrawingCurvesEnumerator = Nothing
Try : oDCE = oView.DrawingCurves : Catch : End Try
If oDCE Is Nothing OrElse oDCE.Count = 0 Then Return Nothing
Dim dMinPointX As Double = oView.Left + oView.Width
Dim dMinPointY As Double = oView.Top
For Each oDC As DrawingCurve In oDCE
Dim dMinParam, dMaxParam As Double
oDC.Evaluator2D.GetParamExtents(dMinParam, dMaxParam)
Dim oParams() As Double = {dMinParam, dMaxParam}
Dim oPointCoords() As Double = {}
oDC.Evaluator2D.GetPointAtParam(oParams, oPointCoords)
If oPointCoords(0) < dMinPointX Then dMinPointX = oPointCoords(0)
If oPointCoords(1) < dMinPointY Then dMinPointY = oPointCoords(1)
Next
Dim oMinPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(dMinPointX, dMinPointY)
Return oMinPoint
End FunctionIf this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield
(Not an Autodesk Employee)
After dealing with a lot of other projects, I decided to take another look at this challenge, just to see if it could be done any easier, or more efficiently. I realized that since we have the ability to specify OriginIndicator.RelativeX and OriginIndicator.RelativeY, then it really does not matter which GeometryIntent you associate the OriginIndicator with, because you can simply use the mathematical position difference between the two locations to offset it. With that fact in mind, I adapted my earlier code for finding the geometric lower left point of the views geometry, then simply used the 'first' GeometryIntent, from the 'first' DrawingCurve of the view to create the OriginIndicator on. Then applied the mathematical offsets to it, and it seems to work just fine for this task.
When getting the GeometryIntent of that first DrawingCurve, I specified the second input as being either its 'mid point', or its 'center point', because we need a point intent, and pretty much every type of DrawingCurve will have one or the other.
Here is the revised code, just for the extra reference, and another option.
Sub Main
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub
Dim oDDoc As DrawingDocument = ThisDoc.Document
Dim oSheet As Inventor.Sheet = oDDoc.ActiveSheet
If oSheet.DrawingViews.Count = 0 Then Exit Sub
Dim oView As DrawingView = oSheet.DrawingViews.Item(1)
Dim oMinPoint As Point2d = GetViewMinPoint(oView)
If oMinPoint Is Nothing Then Exit Sub
Logger.Info("oMinPoint.X = " & oMinPoint.X & vbCrLf & "oMinPoint.Y = " & oMinPoint.Y)
Dim oGI As GeometryIntent = Nothing
Try
oGI = oSheet.CreateGeometryIntent(oView.DrawingCurves.Item(1), PointIntentEnum.kMidPointIntent)
Catch
oGI = oSheet.CreateGeometryIntent(oView.DrawingCurves.Item(1), PointIntentEnum.kCenterPointIntent)
Catch
Logger.Debug("Could not get GeometryIntent from first DrawingCurve in view.")
End Try
If oGI Is Nothing Then Exit Sub
If oView.HasOriginIndicator Then
oView.OriginIndicator.Intent = oGI
Else
oView.CreateOriginIndicator(oGI)
End If
Dim dXOffset As Double = (oGI.PointOnSheet.X - oMinPoint.X) * (-1) / oView.Scale
Dim dYOffset As Double = (oGI.PointOnSheet.Y - oMinPoint.Y) * (-1) / oView.Scale
oView.OriginIndicator.RelativeX = dXOffset
oView.OriginIndicator.RelativeY = dYOffset
End Sub
Function GetViewMinPoint(oView As DrawingView) As Point2d
If oView Is Nothing Then Return Nothing
Dim oDCE As DrawingCurvesEnumerator = Nothing
Try : oDCE = oView.DrawingCurves : Catch : End Try
If oDCE Is Nothing OrElse oDCE.Count = 0 Then Return Nothing
Dim dMinPointX As Double = oView.Left + oView.Width
Dim dMinPointY As Double = oView.Top
For Each oDC As DrawingCurve In oDCE
Dim dMinParam, dMaxParam As Double
oDC.Evaluator2D.GetParamExtents(dMinParam, dMaxParam)
Dim oParams() As Double = {dMinParam, dMaxParam}
Dim oPointCoords() As Double = {}
oDC.Evaluator2D.GetPointAtParam(oParams, oPointCoords)
If oPointCoords(0) < dMinPointX Then dMinPointX = oPointCoords(0)
If oPointCoords(1) < dMinPointY Then dMinPointY = oPointCoords(1)
Next
Dim oMinPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(dMinPointX, dMinPointY)
Return oMinPoint
End FunctionIf this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield
(Not an Autodesk Employee)
Hi @WCrihfield, @Mac_W
The next topic related to this issue 🙂 I would like to dimension the holes using a ordinary dimension set, where 0 will be in the extreme left point of the sketch (as in the previous case).
I'm getting something like this:
I would like to achieve something like this:
I have a problem as shown in the video below, i.e., specifying the geometry intent by providing our origin indicator - I am unable to provide coordinates shifted by the offset vector value 🙂
Is there a possibility to change the coordinates of the origin indicator by the offset value and use it as the first object in the "CenterPointCollection" set??
Is there any other option that could achieve what I want??
My current code is below:
Sub Main()
Dim oView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select the drawing view")
Dim oSheet As Sheet = oView.Parent
Dim oDoc As DrawingDocument = oSheet.Parent
Dim oTO As TransientObjects = ThisApplication.TransientObjects
Dim oTG As TransientGeometry = ThisApplication.TransientGeometry
Dim oMinPoint As Point2d = GetViewMinPoint(oView)
Dim oGI As GeometryIntent = Nothing
Try
oGI = oSheet.CreateGeometryIntent(oView.DrawingCurves.Item(1), PointIntentEnum.kMidPointIntent)
Catch
oGI = oSheet.CreateGeometryIntent(oView.DrawingCurves.Item(1), PointIntentEnum.kCenterPointIntent)
Catch
Logger.Debug("Could not get GeometryIntent from first DrawingCurve in view.")
End Try
If oGI Is Nothing Then Exit Sub
If oView.HasOriginIndicator Then
oView.OriginIndicator.Intent = oGI
Else
oView.CreateOriginIndicator(oGI)
End If
Dim dXOffset As Double = (oGI.PointOnSheet.X - oMinPoint.X) * (-1) / oView.Scale
Dim dYOffset As Double = (oGI.PointOnSheet.Y - oMinPoint.Y) * (-1) / oView.Scale
oView.OriginIndicator.RelativeX = dXOffset
oView.OriginIndicator.RelativeY = dYOffset
Dim CenterPointCollection As ObjectCollection = oTO.CreateObjectCollection
CenterPointCollection.Add(oView.OriginIndicator.Intent)
'Iterate through every drawing curve in the view
For Each oCurve As DrawingCurve In oView.DrawingCurves()
'Check if curve is a circle
If oCurve.ProjectedCurveType = Curve2dTypeEnum.kCircleCurve2d Then
'Make geometry intent point at that point
Dim CenterPointIntent As GeometryIntent = oSheet.CreateGeometryIntent(oCurve, PointIntentEnum.kCenterPointIntent)
'Add the geometry intent point to the CenterPointCollection
CenterPointCollection.Add(CenterPointIntent)
End If
Next
'Point to place Dimensions
Dim TopofView As Point2d = oTG.CreatePoint2d(oView.Center.X, oView.Top + 3)
oSheet.DrawingDimensions.OrdinateDimensionSets.Add(CenterPointCollection, TopofView, DimensionTypeEnum.kHorizontalDimensionType)
End Sub
Function GetViewMinPoint(oView As DrawingView) As Point2d
If oView Is Nothing Then Return Nothing
Dim oDCE As DrawingCurvesEnumerator = Nothing
Try : oDCE = oView.DrawingCurves : Catch : End Try
If oDCE Is Nothing OrElse oDCE.Count = 0 Then Return Nothing
Dim dMinPointX As Double = oView.Left + oView.Width
Dim dMinPointY As Double = oView.Top
For Each oDC As DrawingCurve In oDCE
Dim dMinParam, dMaxParam As Double
oDC.Evaluator2D.GetParamExtents(dMinParam, dMaxParam)
Dim oParams() As Double = {dMinParam, dMaxParam}
Dim oPointCoords() As Double = {}
oDC.Evaluator2D.GetPointAtParam(oParams, oPointCoords)
If oPointCoords(0) < dMinPointX Then dMinPointX = oPointCoords(0)
If oPointCoords(1) < dMinPointY Then dMinPointY = oPointCoords(1)
Next
Dim oMinPoint As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(dMinPointX, dMinPointY)
Return oMinPoint
End Function
Thanks in advance,
ralfmja
Hi @ralfmja. Since this is now getting into dimensioning, it may be getting to the point where it may need its own forum post. If your OrdinateDimensionSet is not recognizing the 'shifted' location of the OriginIndicator, that means that you will need to place your OriginIndicator directly on the left most GeometryIntent of your view's geometry, and not shift its position, and use that as the origin of your dimension set. Unfortunately, as you have already observed, the left most point of a view's geometry may not always be the lowest (down in Y direction) point of a view's geometry. You will simply have to plan ahead for that situation when designing stuff that you know will need to be dimensioned that way on a drawing later. Below is another variation of code, which is mostly using the same strategies as @Mac_W's codes above. It gets a List of GeometryIntent objects from the view that are on view geometry, then finds the one who's PointOnSheet is the farthest left (min X), and uses that for the view's OriginIndicator. I have not tested it yet though. And I probably should not have included center point in the intent types to process, but I left it in there anyways.
Sub Main
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub
Dim oDDoc As DrawingDocument = ThisDoc.Document
Dim oView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select a Drawing View.")
If oView Is Nothing Then Exit Sub
Dim oViewIntents As List(Of Inventor.GeometryIntent) = GetViewIntentsOnGeometry(oView)
If oViewIntents IsNot Nothing AndAlso oViewIntents.Count > 0 Then
'determine which Intent point is furthest left (min x)
Dim oLeftIntent As GeometryIntent = Nothing
Dim dX As Double = oView.Left + oView.Width
For Each oVI In oViewIntents
If oVI.PointOnSheet.X < dX Then
dX = oVI.PointOnSheet.X
oLeftIntent = oVI
End If
Next
If oView.HasOriginIndicator Then
oView.OriginIndicator.Intent = oLeftIntent
Else
oView.CreateOriginIndicator(oLeftIntent)
End If
End If
oView.Parent.Update
oDDoc.Update2(True)
End Sub
Function GetViewIntentsOnGeometry(oView As DrawingView) As List(Of Inventor.GeometryIntent)
If oView Is Nothing Then Return Nothing
Dim oDCs As DrawingCurvesEnumerator = Nothing
Try : oDCs = oView.DrawingCurves : Catch : End Try
If oDCs Is Nothing OrElse oDCs.Count = 0 Then Return Nothing
Dim oGIs As New List(Of Inventor.GeometryIntent)
Dim oSheet As Inventor.Sheet = oView.Parent
Dim oPIs() As PointIntentEnum = {PointIntentEnum.kCenterPointIntent, PointIntentEnum.kCircularBottomPointIntent,
PointIntentEnum.kCircularLeftPointIntent, PointIntentEnum.kCircularRightPointIntent, PointIntentEnum.kCircularTopPointIntent,
PointIntentEnum.kEndPointIntent, PointIntentEnum.kMidPointIntent, PointIntentEnum.kStartPointIntent}
For Each oDC As DrawingCurve In oDCs
For Each oPI In oPIs
Dim oGI As GeometryIntent = Nothing
Try : oGI = oSheet.CreateGeometryIntent(oDC, oPI) : Catch : End Try
If oGI IsNot Nothing Then 'check if Intent point is on oDC
Dim oPOS As Point2d = oGI.PointOnSheet
If oPOS Is Nothing Then Continue For
Dim oPoints() As Double = {oPOS.X, oPOS.Y }
Dim oGuessParams() As Double = {}
Dim oMaxDeviations() As Double = {}
Dim oParams() As Double = {}
Dim oSolTypes() As SolutionNatureEnum = {}
Try
oDC.Evaluator2D.GetParamAtPoint(oPoints, oGuessParams, oMaxDeviations, oParams, oSolTypes)
Catch : Continue For : End Try
If oSolTypes(1) = SolutionNatureEnum.kNoSolution Then
Else : oGIs.Add(oGI) : End If
End If
Next 'oPI
Next 'oDC
End FunctionWesley Crihfield
(Not an Autodesk Employee)
Hi @WCrihfield ,
Currently, I have an error as shown in the screenshot :
In english it will be :"Index was outside the bounds of the array"
I think the position of the origin indicator is not important in the Y direction for horizontal dimensions :)I even think that it would be desirable to hide the origin indicator on the dimensioned view after placing it (we only need it to anchor the 0).
Of course, the rule would also need to do the same for vertical dimensions, but then we would have a situation where we are not concerned about the X direction (only minimum Y). So, if it was possible to achieve this for what I've shown, the same approach could be used to achieve dimensions in Y.
Thanks for your time,
Regards,
ralfmja
My mistake. Change oSolTypes(1) to oSolTypes(0), or oSolTypes.First . I temporarily forgot that Array's are zero based, so their first entry is at zero, not 1.
Wesley Crihfield
(Not an Autodesk Employee)
