topic Re: lISP to edit survey figure style. in Civil 3D Customization Forum

lISP to edit survey figure style.

cody.faltin — Thu, 20 Apr 2023 15:09:29 GMT

I am hoping someone can provide me with assistance in developing a lisp or lisps that would edit survey figure styles.

What I am hoping to accomplish is to select one or more survey figures, and with a single command toggle their status between Flatten to 2D, at 0 elevation, and true 3 dimensional presentation.

I am not finding documentation on how to access the survey figure style through a lisp routine though.

I am not certain that this is even possible with lisp, I have found some documentation that leads me to believe that the portions of the api that reference survey figure styles have not been exposed to lisp, but I'm more a tinkerer with code than and experienced programmer, so I am not sure I am reading the documentation correctly.

I would also be willing to take a stab at it with C#, but my skills there are even more limited.

Thank you,

Re: lISP to edit survey figure style.

hosneyalaa — Thu, 20 Apr 2023 17:30:00 GMT

Have you picture explain your idea

Attached example drawing

Any way you need civil API com

Re: lISP to edit survey figure style.

cody.faltin — Thu, 20 Apr 2023 17:48:02 GMT

Hosneyalaa,

Essentially I would like to be able to switch the styles between these two states with quick command.

The inspiration for this was a lisp routine I found which will toggle on the display of triangles in a civil 3D surface. Which is the toggle triangles lisp I have attached. Using that as a template I am able to get to the point where I can use the code below to select as survey figure, then have it perform an action to change the style. At this point I am struggling with defining the action.

(vl-load-com) (defun c:SF2D () (c:SurveyFigure2D)) (defun c:SurveyFigure2D (/ *error* acDoc obj) (defun *error* (msg) (if ss (vla-delete ss) ) (if acDoc (vla-endundomark acDoc) ) (cond ((not msg)) ; Normal exit ((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit) ((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display it ) (princ) ) (if (ssget '((0 . "AECC_SVFIGURE*"))) ( ; need code to change survey figure style from 3D to 2D here. ) ; Original surface style change is commented out below. ;(progn ; (vla-startundomark ; (setq acDoc (vla-get-activedocument (vlax-get-acad-object))) ; ) ; (vlax-for x (setq ss (vla-get-activeselectionset acDoc)) ; (vlax-put ; (setq obj ; (vlax-get (vlax-get (vlax-get x 'style) 'trianglestyle) ; 'displaystyleplan ; ) ; ) ; 'visible ; (1- (abs (vlax-get obj 'visible))) ; ) ; ) ;) ) (*error* nil) )

Thank you again.

Re: lISP to edit survey figure style.

hosneyalaa — Thu, 20 Apr 2023 19:48:15 GMT

As far as I know Style cannot be affected through Lisp It must be through .net

May i make a try through Lisp

https://help.autodesk.com/view/CIV3D/2022/ENU/?guid=780a165a-d1e7-0c12-10e7-44803e78e973

Re: lISP to edit survey figure style.

cody.faltin — Thu, 20 Apr 2023 19:53:40 GMT

I had very much suspected that it may not be accessible through lisp. Looks like I am going to have to dive into C# to accomplish this. The reference you posted looks like it has a lot of the information I was missing.

Thank you,

I'm going to keep this open for a little bit, just in case anyone else has any good input, but thank you very very much. Now I just have to learn more about C#.

Re: lISP to edit survey figure style.

rl_jackson — Thu, 20 Apr 2023 20:51:22 GMT

My workflow has a process where I import 3D figures into a drawing for surface creation. Then I have another drawing that has the figures for 2D plan data. Here I generally convert the figures to 2d polylines to minimize file size, and the surface drawing is data referenced into the 2D file.

Re: lISP to edit survey figure style.

hosneyalaa — Thu, 20 Apr 2023 21:39:29 GMT

@cody.faltin

After you get an idea About C Sharp & CIVIL 3D API
CAN be used this CODE With some changes

/// https://forums.autodesk.com/t5/civil-3d-customization/how-to-change-style-of-parcel/m-p/10233647 var doc = Application.DocumentManager.CurrentDocument; var db = doc.Database; var ed = doc.Editor; var civdoc = CivilApplication.ActiveDocument; var styleId = civdoc.Styles.ParcelStyles["Lot"]; var entOpts = new PromptEntityOptions("\nSelect Parcel"); entOpts.SetRejectMessage("...not a parcel, try again!"); entOpts.AddAllowedClass(typeof(Parcel), true); var sel = ed.GetEntity(entOpts); if (sel.Status != PromptStatus.OK) return; using (Transaction tr = db.TransactionManager.StartTransaction()) { var parcel = (Parcel)tr.GetObject(sel.ObjectId, OpenMode.ForWrite); var style = (ParcelStyle)tr.GetObject(styleId, OpenMode.ForRead); dynamic oParcel = parcel.AcadObject; oParcel.Style = style.AcadObject; tr.Commit(); }

Re: lISP to edit survey figure style.

cody.faltin — Fri, 21 Apr 2023 18:18:07 GMT

Thank you so much, between this and a few other tutorials I have followed I feel like I may be able to pull this together. Once I have I will post the finished code.

Re: lISP to edit survey figure style.

cody.faltin — Sun, 23 Apr 2023 21:00:22 GMT

After a fair amount of trial and error and a great deal of searching I was able to put together the following.

At the moment the two methods only apply to the hard coded style of "Test", but I feel confident I can rework it to allow it to function based on a selection. You will note that several lines are commented as not being necessary, I have left them in place for now as I feel I may be able to use them as a basis for defining the styleID variable based on user selection. But based on my current understanding they are not actually passing any data to the database.

One thing I have not been able to determine would be how to specify the elevation that figure styles are flattened to. I have located the following reference, but I am unsure of how to implement the get set functionality.

https://help.autodesk.com/view/CIV3D/2022/ENU/?guid=f321bd87-e521-1e82-6471-326b9ed5a896

This post provided me with the breakthrough for assigning the Elevation display type.

https://forums.autodesk.com/t5/civil-3d-customization/create-survey-figure-style-c/td-p/4882108

Thank you everyone for your assistance.

Re: lISP to edit survey figure style.

Jeff_M — Mon, 24 Apr 2023 00:33:18 GMT

To flatten to 0 it should just be:

style.NetworkDisplayMode = SurveyElevationDisplayType.UseElevation; style.FlattenToElevationBy = 0.0;

Re: lISP to edit survey figure style.

cody.faltin — Mon, 24 Apr 2023 01:38:06 GMT

Jeff_M, thank you that was exactly what it needed.

Re: lISP to edit survey figure style.

cody.faltin — Tue, 25 Apr 2023 04:21:23 GMT

Functional code with a few refinements. Now loops through a selection set. Added another method to flatten to a specified elevation. Also added a regenall to the end of all the methods.

Thank you very much Hosneyalaa, and Jeff_M

using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Runtime; using Autodesk.Civil.ApplicationServices; using Autodesk.Civil.DatabaseServices.Styles; using Autodesk.Civil.DatabaseServices; using Autodesk.AutoCAD.ApplicationServices; namespace CDF.SFStyles { public class Commands { [CommandMethod("SF2D")] public void SurveyFigure2D() { var doc = Application.DocumentManager.CurrentDocument; var db = doc.Database; var ed = doc.Editor; var civdoc = CivilApplication.ActiveDocument; PromptSelectionResult result = SelectFigures(); if (result.Status == PromptStatus.OK) { foreach (var objectId in result.Value.GetObjectIds()) { using (Transaction tr = db.TransactionManager.StartTransaction()) { SurveyFigure figure = (SurveyFigure)tr.GetObject(objectId, OpenMode.ForRead); SurveyFigureStyle figureStyle = (SurveyFigureStyle)tr.GetObject(figure.StyleId, OpenMode.ForRead); dynamic oFigureStyle = figureStyle.AcadObject; var figureStyleName = oFigureStyle.Name; var styleId = civdoc.Styles.SurveyFigureStyles[$"{figureStyleName}"]; figureStyle.NetworkDisplayMode = SurveyElevationDisplayType.FlattenElevation; tr.Commit(); } doc.SendStringToExecute("REGENALL ", true, false, true); Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage($"Flattened to 0'"); } } } [CommandMethod("SF2Z")] public void SurveyFigure2Z() { var doc = Application.DocumentManager.CurrentDocument; var db = doc.Database; var ed = doc.Editor; var civdoc = CivilApplication.ActiveDocument; var targetZElevIn = ed.GetDouble("\nEnter the desired elevation for flattening survey figures: " ); var targetZElev = targetZElevIn.Value; PromptSelectionResult result = SelectFigures(); if (result.Status == PromptStatus.OK) { foreach (var objectId in result.Value.GetObjectIds()) { using (Transaction tr = db.TransactionManager.StartTransaction()) { SurveyFigure figure = (SurveyFigure)tr.GetObject(objectId, OpenMode.ForRead); SurveyFigureStyle figureStyle = (SurveyFigureStyle)tr.GetObject(figure.StyleId, OpenMode.ForRead); dynamic oFigureStyle = figureStyle.AcadObject; var figureStyleName = oFigureStyle.Name; var styleId = civdoc.Styles.SurveyFigureStyles[$"{figureStyleName}"]; figureStyle.NetworkDisplayMode = SurveyElevationDisplayType.FlattenElevation; figureStyle.FlattenToElevationBy = targetZElev; tr.Commit(); } doc.SendStringToExecute("REGENALL ", true, false, true); Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage($"Flattened to {targetZElev}'"); } } } [CommandMethod("SF3D")] public void SurveyFigure3D() { var doc = Application.DocumentManager.CurrentDocument; var db = doc.Database; var ed = doc.Editor; var civdoc = CivilApplication.ActiveDocument; PromptSelectionResult result = SelectFigures(); if (result.Status == PromptStatus.OK) { foreach (var objectId in result.Value.GetObjectIds()) { using (Transaction tr = db.TransactionManager.StartTransaction()) { SurveyFigure figure = (SurveyFigure)tr.GetObject(objectId, OpenMode.ForRead); SurveyFigureStyle figureStyle = (SurveyFigureStyle)tr.GetObject(figure.StyleId, OpenMode.ForRead); dynamic oFigureStyle = figureStyle.AcadObject; var figureStyleName = oFigureStyle.Name; var styleId = civdoc.Styles.SurveyFigureStyles[$"{figureStyleName}"]; figureStyle.NetworkDisplayMode = SurveyElevationDisplayType.UseElevation; tr.Commit(); } doc.SendStringToExecute("REGENALL ", true, false, true); Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage($"Using true elevations"); } } } private PromptSelectionResult SelectFigures() { var options = new PromptSelectionOptions(); options.MessageForAdding = "Add Survey Figures"; options.MessageForRemoval = "Remove Survey Figures"; var filter = new SelectionFilter(new TypedValue[] { new TypedValue((int)DxfCode.Start, "AECC_SVFIGURE") }); return Application.DocumentManager.MdiActiveDocument.Editor.GetSelection(options, filter); } } }