Topic: STRUCTURE PROFILE LABEL

[JCK_Hack]

Does anyone have guidance on manipulating Structure or Pipe Profile Label locations?

Code - vb.net: [Select]

1.     Dim label As StructureProfileLabel = tr.GetObject(labelId, OpenMode.ForWrite)
2.     If labelId <> firstLabelId Then
3.         label.Pinned = False
4.         label.ResetLocation()
5.         'Totally lost
6.         label.GetGraphicsMarkersAtSubentityPathIntPtr(label.MoveGripPointsAtSubentityPaths()
7.         'Totally lost
8.     End If
9. [code=vbnet]
10.  
11.  

[JCK_Hack]

It makes me sad when I find examples--from almost a decade ago--which show people being way smarter and better at coding than I'll ever be!  And solving issues and problems I'm just now working on. 

It makes me even more sad when I find the example and can't get it to work...(I'm trying to understand and get running the AutoCAD2012NewAPIsSamples.DevDaysGripMenusSample app.)

I keep getting a fatal error when I run the below code. MsgBox("GripEx 1") works and then fatal error.

Even if I can fix this error, can someone please give me more insight into the Grips, Snaps, and GeomIds which the command .GetGripPoints request in more detail?  I'm just not getting the concepts.  My ultimate goal is to better understand StructureProfileLabels and PipeProfileLabels to adjust them according to the previous example above.  Any help or guidance would be appreciated. 

Code - vb.net: [Select]

1. 'Inherits GripOverrule
2. 'From AutoCAD2012NewAPIsSamples
3.         <CommandMethod("GripEx")>
4.         Public Sub GripExample()
5.             Dim doc As Document = Core.Application.DocumentManager.MdiActiveDocument
6.             Dim ed As Editor = doc.Editor
7.             Dim db As Database = doc.Database
8.             Dim dist As Double = Core.Application.GetSystemVariable("USERR3")
9.             Dim tv(0) As TypedValue
10.             tv.SetValue(New TypedValue(DxfCode.Start, "AECC_STRUCTURE_PROFILE_LABEL"), 0)
11.             Dim MyFilter As New SelectionFilter(tv)
12.             Dim Mygrips As Point3dCollection
13.             Dim Mysnaps As IntegerCollection
14.             Dim MygeomIds As IntegerCollection
15.             Try
16.                 ' Prompt the user to select the first label.
17.                 Dim STRLabelRes As PromptEntityResult = ed.GetEntity("Select the first surface label: " & vbCrLf)
18.                 If STRLabelRes.Status <> PromptStatus.OK Then
19.                     Return
20.                 End If
21.                 Dim STRLabelId As ObjectId = STRLabelRes.ObjectId
22.  
23.                 Using tr As Transaction = db.TransactionManager.StartTransaction()
24.                     Dim STRLabel As Autodesk.Civil.DatabaseServices.StructureProfileLabel = tr.GetObject(STRLabelId, OpenMode.ForWrite)
25.                     ' Initialize the collections
26.                     Mygrips = New Point3dCollection()
27.                     Mysnaps = New IntegerCollection()
28.                     MygeomIds = New IntegerCollection()
29.                   MsgBox("GripEx 1")
30.                     MyBase.GetGripPoints(STRLabel, Mygrips, Mysnaps, MygeomIds)
31.                   MsgBox("GripEx 2")
32.                     MyBase.MoveGripPointsAt(STRLabel, Mysnaps, New Vector3d(4, 4, 4))
33.                    MsgBox("GripEx 3")
34.                     tr.Commit()
35.                 End Using
36.             Catch
37.  
38.             End Try
39.         End Sub

[twdotson]

I also encountered a fatal error when I tried to use MoveGripPointsAt in an attempt to get around the lack of an API on FeatureLines.

https://forums.autodesk.com/t5/civil-3d-customization/civil3d-2016-net-api-comprehensive-featureline-functionality/m-p/5565183/highlight/true#M10178