Add Centerlines through VBA
Use the CenterMarks.AddByWorkFeature to create the center marks from the work points, then call the Centerlines.Add to create a center line on the center marks.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
This is up to you to determine which center marks you want to use to create a centerline. For example, if you want to create a centerline bases on the left(or right) two center marks, which have their position the same X-coordinate value, then you can compare their coordinates(CenterMark.Position). Or if you have other criteria for determining the center marks, just apply it to them.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
The Centerlines.Add would accept the CenterEntities collection with GeometryIntent objects included. So you firstly should create the GeometryIntent object which reference the center marks you want to create centerline on. Below is a snippet of code modified with yours:
Set oCentermark = oSheet.Centermarks(8) Dim oCenterlinePt As GeometryIntent Set oCenterlinePt = oSheet.CreateGeometryIntent(oCentermark) oMarks.Add oCenterlinePt Set oCentermark = oSheet.Centermarks(9) Set oCenterlinePt = oSheet.CreateGeometryIntent(oCentermark) oMarks.Add oCenterlinePt Call oCenterlines.Add(oMarks) oMarks.Clear
Please try if it works for you.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
Hope you have got most questions solved, I was not available to look into your questions last two days. For this question that you want to choose a specific drawing curve, my suggestion is that you can use either of below ways to find it:
1. If you want to annotate a drawing curve which from a specific model edge, that you could find the cooresponding drawing curve with the DrawingView.DrawingCurves(ModelEdge), with passing in the ModelEdge object that it would return the cooresponding drawing curve that you require.
2. If you just select(highlight) a drawing curve on a drawing view, and want to check which index it is in the DrawingCurves collection, below is a sample code for getting the index for the selected drawing curve:
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
' say you have a drawing curve segment selected on the sheet
Dim oSelectedCurve As DrawingCurve
Set oSelectedCurve = oDoc.SelectSet.Item(1).Parent
Dim oDrawingView As DrawingView
Set oDrawingView = oSelectedCurve.Parent
Dim oCurve As DrawingCurve
Dim iIndex As Integer
iIndex = 1
For Each oCurve In oDrawingView.DrawingCurves
If oCurve Is oSelectedCurve Then
Debug.Print "The selected drawing curve is the " & iIndex & "th curve on the drawing view."
End If
iIndex = iIndex + 1
Next
3. This is similar with the first way, but you could use the drawing curve type and/or coordinates to determine which curve is you need. Say you want to find a specific circular drawing curve with a specified diameter, that you could iterate all the drawing curves and check whether the DrawingCurve.ProjectedCurveType = kCircularArcCurve2d, and then check the arc's radius and its center position with your requirement.
There maybe other ways that you can find if you have specific rules/requirement for it:). Hope this helps.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
Hi,My teacher Zhang .I have tried the second way to choose the special drawingcurves on thedrawingview .
Unfortunately ,I failed ,trying the code without any result .Maybe there is something lost.I have add several lines to the code ,but there is no change ,still without rusults.En,would you please help me out ?Haha,I'm sorry to bother you every day.
Dim oDoc As DrawingDocument
Set oDoc = oapp.ActiveDocument
Dim oActiveSheet As Sheet
Set oActiveSheet = oDoc.ActiveSheet
Dim oDrawingCurveSegment As DrawingCurveSegment
Set oDrawingCurveSegment = oDoc.SelectSet.Item(1)
' say you have a drawing curve segment selected on the sheet
Dim oSelectedCurve As DrawingCurve
Set oSelectedCurve = oDrawingCurveSegment.Parent
Dim oDrawingView As DrawingView
Set oDrawingView = oSelectedCurve.Parent
Dim oCurve As DrawingCurve
Dim iIndex As Integer
iIndex = 1
For Each oCurve In oDrawingView.DrawingCurves
If oCurve Is oSelectedCurve Then
Debug.Print "The selected drawing curve is the " & iIndex & "th curve on the drawing view."
End If
iIndex = iIndex + 1
Next
Glad to hear that you have pointed it out. As for create drawing weld symbol question I responsed to another post you created, please check it there.:)
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.