topic Re: Creating profile from file in Civil 3D Customization Forum

Creating profile from file

Anonymous — Wed, 08 Aug 2018 23:21:43 GMT

Is there any way to call this command without the dialog box. it would be nice to get away from the file selection box by passing it as an argument to a lisp function. Even better if the following box Create Profile - Draw New could be bypassed? Any thoughts ideas? I know LISP, so would prefer a LISP solution. I have no .net experience. But am willing to experiment if anyone can push me to a specific method available in the API? Thanks in advance.

Re: Creating profile from file

Ranjit_Singh — Thu, 09 Aug 2018 18:59:07 GMT

AFAIK, activeX does not provide any method for this. Not sure about .net

Re: Creating profile from file

lu_an_jie — Fri, 10 Aug 2018 21:02:05 GMT

This is .net (c#) sample for creating a profile, based on two points.

        public static void CreateProfileNoSurface(Alignment oAlignment)
        {
            CivilDocument civDoc = CivilApplication.ActiveDocument;

            using (Transaction ts = Application.DocumentManager.MdiActiveDocument.Database.TransactionManager.StartTransaction())
            {

                // use the same layer as the alignment
                ObjectId layerId = oAlignment.LayerId;

                // get the standard style and label set 
                // these calls will fail on templates without a style named "Standard"
                ObjectId styleId = civDoc.Styles.ProfileStyles["Standard"];
                ObjectId labelSetId = civDoc.Styles.LabelSetStyles.ProfileLabelSetStyles["Standard"];

                // create a new empty profile
                ObjectId oProfileId = Profile.CreateByLayout("MyProfile", oAlignment.Id, layerId, styleId, labelSetId);

                // Now add the entities that define the profile.
                Profile oProfile = ts.GetObject(oProfileId, OpenMode.ForRead) as Profile;

                Point2d startPoint = new Point2d(oAlignment.StartingStation, 40);
                Point2d endPoint = new Point2d(oAlignment.EndingStation, -70);
                ProfileTangent oTangent1 = oProfile.Entities.AddFixedTangent(startPoint, endPoint);

                ts.Commit();
            }
        }

You can enclose this in a while loop, reading and parsing the text file line and adding entity. You can find plenty of sample of reading and parsing text files in the AutoCAD development forum.

https://forums.autodesk.com/t5/net/reading-data-from-a-txt-file-using-c/td-p/6005943

Re: Creating profile from file

lu_an_jie — Sun, 12 Aug 2018 16:32:15 GMT

Do you have a sample file, so I can test some code.

Re: Creating profile from file

Jeff_M — Tue, 14 Aug 2018 00:53:54 GMT

Here's some code that shows how this can be done using lisp. You can take this as a starting point to create the function which accepts the file name, profile name, and profile style name. Hope it helps!

(vl-load-com)
(if (setq ss (ssget ":S" '((0 . "AECC_ALIGNMENT"))))
  (progn
    (setq alignment (vlax-ename->vla-object (ssname ss 0)))
    (setq profile (vlax-invoke (vlax-get alignment 'profiles) 'Add "NewProfileFromFile" 2 "Basic")) ;;the 2 is for a FinishGrade profile
    (setq pvis (vlax-get profile 'PVIs))
    (setq f (open "C:\\TestFiles\\Profiledata.txt" "r"));;this file must be in the format defined by C3D for profiles from a file
    (while (setq ln (read-line f))
      (setq data (str2list ln " "))
      (if (= 2 (length data))
	(setq pvi (vlax-invoke pvis 'add (atof (nth 0 data)) (atof (nth 1 data)) 1 nil nil));;the 1 tells C3D this a Tangent PVI
	(setq pvi (vlax-invoke pvis 'add (atof (nth 0 data)) (atof (nth 1 data)) 3 (atof (nth 2 data)) nil));;the 3 tells C3D it is a parabolic VC
	)
      )
    (close f)
    )
  )

;;;str2list by John Uhden, as posted to the adesk customization newsgroup a long time ago
(defun Str2List (str pat / i j n lst)
  (cond
    ((/= (type str)(type pat) 'STR))
    ((= str pat)'(""))
    (T
      (setq i 0 n (strlen pat))
      (while (setq j (vl-string-search pat str i))
        (setq lst (cons (substr str (1+ i)(- j i)) lst)
              i (+ j n)
        )
      )
      (reverse (cons (substr str (1+ i)) lst))
    )
  )
)

Re: Creating profile from file

Anonymous — Tue, 14 Aug 2018 15:56:08 GMT

Awesome! This definitely gives me everything I need. Thanks!!

Re: Creating profile from file

treforfjones — Mon, 10 Sep 2018 08:46:50 GMT

Hi Jeff

I came across your Lisp code with some surprise believing such manipulation of the civil

3d database wasn't possible, a bitter sweet moment, spent last six months learning vb.net.

First question should this still work in Civil 3d 2018 and if so why does my lisp fall over at this ?

(setq profile (vlax-invoke (vlax-get alignment 'profiles) 'Add "NewProfileFromFile" 2 "Basic"))

; error: Civil 3D API: The parameter is incorrect.

I presume it similar to the C# code

ObjectId oProfileId = Profile.CreateByLayout("MyProfile", oAlignment.Id, layerId, styleId, labelSetId);

Any assistance will be greatly appreciated

Kind Regards

Trefor

Re: Creating profile from file

Jeff_M — Mon, 10 Sep 2018 12:58:28 GMT

Yes, Trefor, this should still be fine in C3D2018. Does your drawing have the profile style named Basic?

Re: Creating profile from file

treforfjones — Tue, 11 Sep 2018 09:28:45 GMT

Hi Jeff

Thanks for the prompt reply

I've enclosed a jpeg of the profile label sets in use ?

cheers

Trefor

Re: Creating profile from file

Ranjit_Singh — Tue, 11 Sep 2018 15:43:17 GMT

The "Basic" in @Jeff_Ms' code is referring to profile style and not label sets. Change the drop-down list above the tree view to either Active Drawing Settings View or Master View, and then look under Profile for the available styles and use one of those styles

Re: Creating profile from file

Jeff_M — Tue, 11 Sep 2018 15:54:55 GMT

@treforfjones,

The COM API arguments are as follows (from the help file): Profiles.Add(name, profile type, profile style), which is much different than the .NET API counterpart.

Re: Creating profile from file

treforfjones — Thu, 13 Sep 2018 08:20:43 GMT

Hi Jeff

Thanks that code is now working

Have you any similar lisp snippets that convert polylines to alignments

I've spent the last six months learning vb.net. Given your lisp experience

do you think C# is a better bet, long term to learn or

can I achieve a lot more with lisp ?

cheers

Trefor

Re: Creating profile from file

Jeff_M — Thu, 13 Sep 2018 18:57:04 GMT

@treforfjones, lisp is limited for use with C3D. All of the API work since C3D 2012 has been for the .NET API. The COM API was last updated/added to in C3D 2012. I much prefer to use c# for .NET development...VB is something I decided to leave back in VBA.

I do still use lisp for small, quick, things, but anything that I want to be fast and powerful I use c#.

Re: Creating profile from file

lu_an_jie — Fri, 14 Sep 2018 15:03:26 GMT

It doesn't matter which programming language as long it is a .NET language (VB.NET, C# OR F# i.e.). You can even mix and match and creating different libraries in different languages in the same project as long you are targeting the same .NET framework.

In the Autodesk developer's documentation you can find all the sample code in VB.NET AS WELL AS IN C#.

Start with whichever language you feel more comfortable personally. The “language part” is something you can learn or re-learn in a matter of 1-3 days. What you are really learning here is the .NET: collections, interfaces, anonymous functions LINQ, MVC, XAML, WPF, Entity Framework and so on and so forth.

Here is the C# version for creating a polyline from a single alignment.


Here is same sample code, cha// (C) Copyright 2018 by Andreas Luka


using System;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.Civil.ApplicationServices;
using Autodesk.Civil.DatabaseServices;

// This line is not mandatory, but improves loading performances
[assembly: CommandClass(typeof(LX_PolyLine.MyCommands))]

namespace LX_PolyLine
{

    public class MyCommands
    {

        // Modal Command with pickfirst selection
        [CommandMethod("MyGroup", "LX-Polyline", CommandFlags.Modal)]
        public void AlignToPoly() 
        {
            // Getting the autodesk database (needed for transaction)
            Database db = Application.DocumentManager.MdiActiveDocument.Database;

            // Getting the editor object (needed for error messaging)
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;

            // Getting the civil document object (need for check of alignments presence)
            CivilDocument cd = CivilApplication.ActiveDocument;

            // Getting the list of all alignments in an collection of the ids
            ObjectIdCollection alignIds = cd.GetAlignmentIds();

            // Getting out if there are no alignments in drawing
            if (alignIds.Count == 0)
            {
                ed.WriteMessage("\nNo alignments in drawing.");
                return;
            }

            // Calling function to select a single alignment
            ObjectId alignId = SelectAlignment();

            // Getting out if the selection failes
            if (alignId == ObjectId.Null) return;

            // Getting the alignment from his id and creating the polyline
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                try
                {
                    Alignment align = (Alignment)alignId.GetObject(OpenMode.ForRead);
                    ObjectId plId = align.GetPolyline();
                }
                catch { }
                tr.Commit();
            }
        }


        // This function select an Alignment and returns his ObjectId or Null in case of Cancelation or Error
        public static ObjectId SelectAlignment()
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;

            // Setting ObjectId to Null 
            ObjectId result = ObjectId.Null;

            // Creating the promt option for a single entity prompt
            PromptEntityOptions prOptions = new PromptEntityOptions("\nSelect alignment: ");
            prOptions.SetRejectMessage("...not an Alignment, try again!:");
            prOptions.AddAllowedClass(typeof(Alignment), true);
            
            // Getting the selected element from the editor
            PromptEntityResult prResult = ed.GetEntity(prOptions);

            // Returning the selected alignment's id
            if (prResult.Status == PromptStatus.OK) result = prResult.ObjectId;
            return result;
        }
    }
}

Re: Creating profile from file

hosneyalaa — Sat, 22 Aug 2020 06:21:18 GMT

HI @Jeff_M

God willing, your health is good

A question ...

I have a road profile

As it is in the picture or drawing

And I wrote in a file notebook
The STATION AND LEVEL

The STATION AND LEVEL AND LENGTH

0 10.406 55 11 21.50 80 9.62 2.38 98.0 9.62

In order to draw it through
Creating profile from file ... Imported and profile drawn

But
When I use the code there is a problem
Could you please
What is the reason? Is writing notepad a mistake

Thank you in advance

http://www.mediafire.com/file/6qd5vtzgmobmlos/PROFILE+_++CIVIL+2021.dwg/file

Re: Creating profile from file

Jeff_M — Sat, 22 Aug 2020 15:52:37 GMT

@hosneyalaa What problem are you seeing?

Re: Creating profile from file

hosneyalaa — Sat, 22 Aug 2020 17:20:17 GMT

@Jeff_M

Command: TEST Select objects: ; error: AutoCAD.Application: Invalid input Command:

(defun c:test ( / ALIGNMENT DATA F LN PROFILE PVI PVIS SS) (vl-load-com) (if (setq ss (ssget ":S" '((0 . "AECC_ALIGNMENT")))) (progn (setq alignment (vlax-ename->vla-object (ssname ss 0))) (setq profile (vlax-invoke (vlax-get alignment 'profiles) 'Add "NewProfileFromFile" 2 "Basic")) ;;the 2 is for a FinishGrade profile (setq pvis (vlax-get profile 'PVIs)) (setq FilePath (getfiled "Select TEXT file to read :" (getvar "dwgprefix") "txt" 4 ) ) (setq f (open FilePath "r"));;this file must be in the format defined by C3D for profiles from a file (while (setq ln (read-line f)) (setq data (str2list ln " ")) (if (= 2 (length data)) (setq pvi (vlax-invoke pvis 'add (atof (nth 0 data)) (atof (nth 1 data)) 1 nil nil));;the 1 tells C3D this a Tangent PVI (setq pvi (vlax-invoke pvis 'add (atof (nth 0 data)) (atof (nth 1 data)) 3 (atof (nth 2 data)) nil));;the 3 tells C3D it is a parabolic VC ) ) (close f) ) ) ) ;;;str2list by John Uhden, as posted to the adesk customization newsgroup a long time ago (defun Str2List (str pat / i j n lst) (cond ((/= (type str)(type pat) 'STR)) ((= str pat)'("")) (T (setq i 0 n (strlen pat)) (while (setq j (vl-string-search pat str i)) (setq lst (cons (substr str (1+ i)(- j i)) lst) i (+ j n) ) ) (reverse (cons (substr str (1+ i)) lst)) ) ) )

0 10.406 55 11 21.50 80 9.62 2.38 98.0 9.62

Re: Creating profile from file

Jeff_M — Sat, 22 Aug 2020 18:32:08 GMT

@hosneyalaa Yes, there was an issue due to the vertical curves. You cannot have a VC without 2 tangents, which I did not account for. To solve this, I changed the code so it creates the first and last PVIs before adding the internal PVIs.

(defun c:test (/ ALIGNMENT F DATA LN PROFILE PVI PVIS SS) (vl-load-com) (if (setq ss (ssget ":S" '((0 . "AECC_ALIGNMENT")))) (progn (setq FilePath (getfiled "Select TEXT file to read :" (getvar "dwgprefix") "txt" 4 ) ) (if filepath (progn (setq f (open FilePath "r")) (setq alignment (vlax-ename->vla-object (ssname ss 0))) (setq profile (vlax-invoke (vlax-get alignment 'profiles) 'Add "NewProfileFromFile" 2 "Basic")) ;;the 2 is for a FinishGrade profile (setq pvis (vlax-get profile 'PVIs)) ;;this file must be in the format defined by C3D for profiles from a file (while (setq ln (read-line f)) (setq data (cons (str2list ln " ") data)) ) (close f) (setq data (reverse data)) ;;create the first and last PVIs before adding the internal PVIs (vlax-invoke pvis 'add (atof (nth 0 (car data))) (atof (nth 1 (car data))) 1 nil nil) (vlax-invoke pvis 'add (atof (nth 0 (last data))) (atof (nth 1 (last data))) 1 nil nil) (setq i 0) (while (< (setq i (1+ i)) (- (length data) 1)) (setq d (nth i data)) (if (= 2 (length d)) (vlax-invoke pvis 'add (atof (nth 0 d)) (atof (nth 1 d)) 1 nil nil) ;;the 1 tells C3D this a Tangent PVI (vlax-invoke pvis 'add (atof (nth 0 d)) (atof (nth 1 d)) 3 (atof (nth 2 d)) nil) ;;the 3 tells C3D it is a parabolic VC ) ) ) ) ) ) ) ;;;str2list by John Uhden, as posted to the adesk customization newsgroup a long time ago (defun Str2List (str pat / i j n lst) (cond ((/= (type str) (type pat) 'STR)) ((= str pat) '("")) (T (setq i 0 n (strlen pat) ) (while (setq j (vl-string-search pat str i)) (setq lst (cons (substr str (1+ i) (- j i)) lst) i (+ j n) ) ) (reverse (cons (substr str (1+ i)) lst)) ) ) )

Re: Creating profile from file

hosneyalaa — Sat, 22 Aug 2020 19:19:07 GMT

My teacher mister @Jeff_M
I am unable to thank you
You are a great person for this problem solving group
Thank you so much

Thank you so much

Re: Creating profile from file

azhar_abbas9104ZVUC — Tue, 25 Jun 2024 08:28:07 GMT

VERTICAL FALL TOP AND BOTTOM ELEVATION ISSU