topic Re: projecting points to multiple profile views in Civil 3D Customization Forum

projecting points to multiple profile views

David_Prontnicki — Tue, 19 Mar 2019 02:25:43 GMT

Has anyone had any luck projecting cogo points to multiple profile views?

I have say 1000’ of an alignment with cogo points all along. I have say 10 profile views of the alignment broken up by station ranges.

I would like to select ALL the cogo points along the alignment and project them to ALL the multiple profile views at once. Currently I have to select the cogo points within the station range and project them to that specific profile view and then repeat for the points in the next station range and profile view. In this case I would have to do this 10 times.

Objective:

I would like to select all the cogo points for the full length of the alignment and then select all the profile views and correct points appear on the correct profile views.

I hope that makes sense, does anyone know if this is even possible?

Re: projecting points to multiple profile views

David_Prontnicki — Tue, 19 Mar 2019 19:13:40 GMT

So here is what I have so far. Code below. What I cant seem to find is any information on projecting. I have seen two VBA examples but nothing that explains what is going with them. Does anyone know how to project or have a sample of projecting that I can try to see how it's done. Thank you.

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.Civil.DatabaseServices

Public Class Main

    <CommandMethod("mcmptmpvpr")>
    Public Sub CogoPointProfileProjection()

        Dim curDb As Database = Active.Database
        Dim docEd As Editor = Active.Editor

        Try

            Dim acTypValCp(0) As TypedValue
            acTypValCp.SetValue(New TypedValue(DxfCode.Start, "AECC_COGO_POINT"), 0)

            Dim acSelFtrCp As New SelectionFilter(acTypValCp)

            Dim CogoPointPromptSelectionOptions As New PromptSelectionOptions
            CogoPointPromptSelectionOptions.MessageForAdding = (vbLf & "Select COGO Point(s) to project: ")
            CogoPointPromptSelectionOptions.MessageForRemoval = (vbLf & "Select COGO Point(s) to remove from selection: ")

            Dim cogoPointPromptSelectionResult = docEd.GetSelection(CogoPointPromptSelectionOptions, acSelFtrCp)

            Dim cogoPointSelectionSet As SelectionSet = cogoPointPromptSelectionResult.Value

            If cogoPointPromptSelectionResult.Status = PromptStatus.OK Then

                Dim acTypValPv(0) As TypedValue
                acTypValPv.SetValue(New TypedValue(DxfCode.Start, "AECC_PROFILE_VIEW"), 0)

                Dim acSelFtrPv As New SelectionFilter(acTypValPv)

                Dim ProfileViewPromptSelectionOptions As New PromptSelectionOptions
                ProfileViewPromptSelectionOptions.MessageForAdding = (vbLf & "Select Profile View(s) to project points to: ")
                ProfileViewPromptSelectionOptions.MessageForRemoval = (vbLf & "Select Profile View(s) to remove from selection: ")

                Dim profileViewsPromptSelectionResult = docEd.GetSelection(ProfileViewPromptSelectionOptions, acSelFtrPv)

                Dim profileViewsSelectionSet As SelectionSet = profileViewsPromptSelectionResult.Value

                If profileViewsPromptSelectionResult.Status = PromptStatus.OK Then

                    Using trans As Transaction = curDb.TransactionManager.StartTransaction()

                        For Each cogoPointId As ObjectId In cogoPointSelectionSet.GetObjectIds()

                            Dim cogoPoint As CogoPoint = CType(cogoPointId.GetObject(OpenMode.ForRead), CogoPoint)


                        Next

                    End Using

                End If

            End If

        Catch ex As Exception

        End Try

    End Sub

End Class

Re: projecting points to multiple profile views

Jeff_M — Tue, 19 Mar 2019 20:35:00 GMT

Unfortunately, the ProfileProjection class does not have any Create() methods in the API's. You may be able to pass the objects to the _AeccProjectObjectsToProf command, but this is not something I have tried.

Re: projecting points to multiple profile views

David_Prontnicki — Tue, 19 Mar 2019 20:41:17 GMT

Thank you Jeff,

I saw a post on this and have been trying to play with it. I just cant seem to figure out the correct syntax.

I think first I need to create a list/array/object collection of each selected point and for each selected profile view, and then somehow pass those list/array/object collection(s) to that command. Am I thinking about this correctly?

Thank you again,

Re: projecting points to multiple profile views

Jeff_M — Tue, 19 Mar 2019 22:09:56 GMT

Yes, that sounds pretty much how I would first attempt it.

Re: projecting points to multiple profile views

David_Prontnicki — Wed, 20 Mar 2019 14:20:16 GMT

OK, so below is what I have now. The issue I am having is when it is run I get an error that "Value does not fall within the expected range". While debugging I see that the cogo points being added to the collection as well as the profile views, but when it comes to the command to project is when I get the error.

I think the issue is the syntax for the project command but for the life of me i can not figure out the proper syntax.

Any help would be greatly appreciated.

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime

Public Class Main

    <CommandMethod("mcmptmpvpr")>
    Public Sub CogoPointProfileProjection()

        Dim curDb As Database = Active.Database
        Dim docEd As Editor = Active.Editor

        Dim cogoPointObjectIdCollection = New ObjectIdCollection()
        Dim profileViewObjectIdCollection = New ObjectIdCollection()

        Try

            Dim acTypValCp(0) As TypedValue
            acTypValCp.SetValue(New TypedValue(DxfCode.Start, "AECC_COGO_POINT"), 0)

            Dim acSelFtrCp As New SelectionFilter(acTypValCp)

            Dim CogoPointPromptSelectionOptions As New PromptSelectionOptions
            CogoPointPromptSelectionOptions.MessageForAdding = (vbLf & "Select COGO Point(s) to project: ")
            CogoPointPromptSelectionOptions.MessageForRemoval = (vbLf & "Select COGO Point(s) to remove from selection: ")

            Dim cogoPointPromptSelectionResult = docEd.GetSelection(CogoPointPromptSelectionOptions, acSelFtrCp)

            Dim cogoPointSelectionSet As SelectionSet = cogoPointPromptSelectionResult.Value

            If cogoPointPromptSelectionResult.Status = PromptStatus.OK Then

                cogoPointSelectionSet = cogoPointPromptSelectionResult.Value

                cogoPointObjectIdCollection = New ObjectIdCollection(cogoPointSelectionSet.GetObjectIds())

            End If

        Catch ex As Exception

        End Try

        Try

            Dim acTypValPv(0) As TypedValue
            acTypValPv.SetValue(New TypedValue(DxfCode.Start, "AECC_PROFILE_VIEW"), 0)

            Dim acSelFtrPv As New SelectionFilter(acTypValPv)

            Dim ProfileViewPromptSelectionOptions As New PromptSelectionOptions
            ProfileViewPromptSelectionOptions.MessageForAdding = (vbLf & "Select Profile View(s) to project points to: ")
            ProfileViewPromptSelectionOptions.MessageForRemoval = (vbLf & "Select Profile View(s) to remove from selection: ")

            Dim profileViewsPromptSelectionResult = docEd.GetSelection(ProfileViewPromptSelectionOptions, acSelFtrPv)

            Dim profileViewsSelectionSet As SelectionSet = profileViewsPromptSelectionResult.Value

            If profileViewsPromptSelectionResult.Status = PromptStatus.OK Then

                profileViewsSelectionSet = profileViewsPromptSelectionResult.Value

                profileViewObjectIdCollection = New ObjectIdCollection(profileViewsSelectionSet.GetObjectIds())

            End If

        Catch ex As Exception

        End Try

        Try

            Using trans As Transaction = curDb.TransactionManager.StartTransaction()

                docEd.Command("_AECCPROJECTOBJECTSTOPROF", cogoPointObjectIdCollection, profileViewObjectIdCollection)

                trans.Commit()

            End Using

        Catch ex As Exception

        End Try

    End Sub

End Class

Re: projecting points to multiple profile views

Jeff_M — Wed, 20 Mar 2019 17:02:04 GMT

OK, I just tried this (using c#, sorry) and it was successful. The differences between what you tried and mine are:

1. I used GetEntity to select the ProfileView, as the command is not looking for a selection set.

2. I set the ImpliedSelection (pick first) to the selected cogopoints, this way I didn't have to pass the selection set to the command (it may work doing so, I just didn't try it).

This still brings up the dialog for the styles to use, but I see no way around that at this time.

        [CommandMethod("ProjectPointsTest")]
        public void projectpointstopv()
        {
            var doc = Application.DocumentManager.MdiActiveDocument;
            var db = doc.Database;
            var ed = doc.Editor;
            var selOpts = new PromptSelectionOptions();
            selOpts.MessageForAdding = "\nSelect CogoPoints: ";
            selOpts.AllowDuplicates = false;
            var tv = new TypedValue[1];
            tv[0] = new TypedValue(0, "AECC_COGO_POINT");
            var filter = new SelectionFilter(tv);
            var selRes = ed.GetSelection(selOpts, filter);
            if (selRes.Status != PromptStatus.OK)
                return;
            var entOpts = new PromptEntityOptions("\nSelect ProfileView: ");
            entOpts.SetRejectMessage("...not a ProfileView, try again.");
            entOpts.AddAllowedClass(typeof(ProfileView),true);
            var entSel = ed.GetEntity(entOpts);
            if (entSel.Status != PromptStatus.OK)
                return;
            try
            {
                ed.SetImpliedSelection(selRes.Value.GetObjectIds());
                ed.Command("_AECCPROJECTOBJECTSTOPROF", entSel.ObjectId);
            }
            catch (SystemException ex)
            {
                ed.WriteMessage("Error: {0} ", ex.Message);
            }
        }

Re: projecting points to multiple profile views

David_Prontnicki — Wed, 20 Mar 2019 17:21:45 GMT

Jeff,

No apologies needed. Thank you very. This works great. I don't mind the dialog appearing after profile selection (is there a way to send the "enter key" after?), but I am still forced to do only one profile view at a time. I'm wondering if I could go back to to a selection set for the profile views and use a For Each each statement on each profile view. Or do you know a better way?

The idea behind this is we have really long alignments that get get split up into about 10-20 profile views. I was asked if they could select all the points and project them to ALL the profile views at once. But I'm starting think that this might not be possible.

I feel a lot of other people could benefit from this if I could get it to work. Seems like a common request. I would love to post this here for everyone.

Re: projecting points to multiple profile views

David_Prontnicki — Wed, 20 Mar 2019 18:10:45 GMT

Jeff,

Here is an update; so setting the profile view selection back to a selection set and adding a for each loop works great. Now if we could only bypass the dialog.

As always, thank you so much Jeff. I will be finalizing it and will post here for others.

For Each profileView In profileViewsSelectionSet

                docEd.SetImpliedSelection(selRes.Value.GetObjectIds())
                docEd.Command("_AECCPROJECTOBJECTSTOPROF", profileView.ObjectId)

            Next

Re: projecting points to multiple profile views

Anonymous — Sun, 12 Apr 2020 09:09:30 GMT

Dear Sir

Found this post when looking for answers for same question.

Excited very much knowing there is solution.

Since I have no programming experience could you please upload some kind of installer.

Really appreciate your time and knowledge.

Regards

Chamara

Re: projecting points to multiple profile views

Anonymous — Tue, 14 Apr 2020 06:39:41 GMT

Dear Sir

Could you pls share final c# programme here. Confused about where to add your selection set section to " "Jeff" programme.

Re: projecting points to multiple profile views

David_Prontnicki — Wed, 29 Apr 2020 20:05:49 GMT

Sorry for the delay, I did not see this right a way. Here is the final code:

Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Runtime Imports Autodesk.Civil.DatabaseServices Public Class Main <CommandMethod("command name here")> Public Sub CogoPointProfileProjection() Dim curDb As Database = Active.Database Dim docEd As Editor = Active.Editor Dim acTypValCp(0) As TypedValue acTypValCp.SetValue(New TypedValue(DxfCode.Start, "AECC_COGO_POINT"), 0) Dim acSelFtrCp As New SelectionFilter(acTypValCp) Dim CogoPointPromptSelectionOptions As New PromptSelectionOptions CogoPointPromptSelectionOptions.MessageForAdding = (vbLf & "Select COGO Point(s) to project: ") CogoPointPromptSelectionOptions.MessageForRemoval = (vbLf & "Select COGO Point(s) to remove from selection: ") Dim cogoPointPromptSelectionResult = docEd.GetSelection(CogoPointPromptSelectionOptions, acSelFtrCp) Dim cogoPointSelectionSet As SelectionSet = cogoPointPromptSelectionResult.Value If cogoPointPromptSelectionResult.Status <> PromptStatus.OK Then Return Dim acTypValPv(0) As TypedValue acTypValPv.SetValue(New TypedValue(DxfCode.Start, "AECC_PROFILE_VIEW"), 0) Dim acSelFtrPv As New SelectionFilter(acTypValPv) Dim ProfileViewPromptSelectionOptions As New PromptSelectionOptions ProfileViewPromptSelectionOptions.MessageForAdding = (vbLf & "Select Profile View(s) to project points to: ") ProfileViewPromptSelectionOptions.MessageForRemoval = (vbLf & "Select Profile View(s) to remove from selection: ") Dim profileViewsPromptSelectionResult = docEd.GetSelection(ProfileViewPromptSelectionOptions, acSelFtrPv) Dim profileViewsSelectionSet As SelectionSet = profileViewsPromptSelectionResult.Value If profileViewsPromptSelectionResult.Status <> PromptStatus.OK Then Return Try For Each profileView In profileViewsSelectionSet docEd.SetImpliedSelection(cogoPointPromptSelectionResult.Value.GetObjectIds()) docEd.Command("_AECCPROJECTOBJECTSTOPROF", profileView.ObjectId) Next Catch ex As SystemException End Try End Sub End Class

You will have to set up your own exception catch...

You will note that I declare database and editor as Active. This is a "trick/shortcut" I learned. I create a separate class called Active and declare all the Active Document core values. It makes for calling and setup a little quicker and cleaner. I do this for ALL the programs I write for AutoCAD Applications. Add the below class to your project.

You will need to change the command name also.

Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.Civil.ApplicationServices Public Class Active Public Shared Function Editor() As Editor Return Document.Editor End Function Public Shared Function Database() As Database Return Document.Database End Function Public Shared Function Document() As Document Return Application.DocumentManager.MdiActiveDocument End Function Public Shared Function CivilDocument() As CivilDocument Return CivilApplication.ActiveDocument End Function End Class

Re: projecting points to multiple profile views

ngehr — Fri, 07 Jan 2022 19:28:54 GMT

Do you have a file to share for this or is this your current method. Just ran into this post and would like to reproduce your results.

Re: projecting points to multiple profile views

pceglia9CRMF — Thu, 20 Apr 2023 18:32:42 GMT

BUMP BUMP BUMP...

this is a big deal, is this considered a lisp? I have hundreds of points and many views I would like to project to, this will save me time so I can go eat lunch like a gentleman.

is there anyone out there??

Re: projecting points to multiple profile views

novice101 — Wed, 07 Jan 2026 22:19:11 GMT

Find the marker style block table record and manually recreate it in the PV, use the PV method

pv.FindXYAtStationAndElevation( p.Station, p.Elevation, ref x, ref y);

p is a custom object I created to hold the Station and Elevation. x and y are double 0.0 going into the method.