Kowal Posted February 2, 2020 Share Posted February 2, 2020 (edited) There are three types of alignment in Civil 3D: - Centerline - Offset - Curb return - Rail - Miscellaneous I'm using the code to get the properties. (vlax-dump-object (vlax-Ename->Vla-Object (car (entsel))) T) The alignment type is not listed. How to distinguish a alignment type using visual lisp? ; Property values: ; Application (RO) = #<VLA-OBJECT IAeccApplication 0000000040d5df70> ; Description = "" ; DesignSpeedBased = 0 ; DesignSpeeds (RO) = #<VLA-OBJECT IAeccDesignSpeeds 000000004ab7d060> ; DisplayName (RO) = "Alignment - (2)" ; Document (RO) = #<VLA-OBJECT IAeccDocument 0000000040d5dc70> ; EndingStation (RO) = 1915.56 ; Entities (RO) = #<VLA-OBJECT IAeccAlignmentEntities 0000000041132c70> ; EntityTransparency = "ByLayer" ; Handle (RO) = "63ED" ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000004ac1ced8> ; InstantaneousRadius (RO) = ...Indexed contents not shown... ; LabelGroups (RO) = #<VLA-OBJECT IAeccAlignmentLabelGroups 0000000041132810> ; Labels (RO) = #<VLA-OBJECT IAeccAlignmentLabels 00000000411323b0> ; LabelSet (RO) = #<VLA-OBJECT IAeccAlignmentLabelSet 0000000040d5d7f0> ; Layer = "C-ROAD" ; Length (RO) = 1915.56 ; Linetype = "ByLayer" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Material = "ByLayer" ; Name = "Alignment - (2)" ; ObjectID (RO) = 246 ; ObjectID32 (RO) = 246 ; ObjectName (RO) = "AeccDbAlignment" ; OwnerID (RO) = 45 ; OwnerID32 (RO) = 45 ; Parent (RO) = Civil 3D API: ; PlotStyleName = "ByLayer" ; Profiles (RO) = #<VLA-OBJECT IAeccProfiles 000000004ab7fb40> ; ProfileViews (RO) = #<VLA-OBJECT IAeccProfileViews 0000000040d5ddf8> ; ReferencePoint = (8735.16 2664.81 0.0) ; ReferencePointStation = 0.0 ; SampleLineGroups (RO) = #<VLA-OBJECT IAeccSampleLineGroups 0000000040d5deb8> ; ShowToolTip = -1 ; StartingStation (RO) = 0.0 ; StationEquations (RO) = #<VLA-OBJECT IAeccStationEquations 000000004ab7e720> ; StationIndexIncrement = 100.0 ; Style = #<VLA-OBJECT IAeccAlignmentStyle 00000000490b42f0> ; StyleName (RO) = "Proposed" ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000004ac1d110> ; UseDesignCheckSet = 0 ; UseDesignCriteriaFile = 0 ; Visible = -1 Edited February 2, 2020 by Kowal Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.