;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 9/25/2015 ;;; Edited: 9/25/2015 ;;; (DEFUN c:adjustaeccpipenetworkobjects (/) ;aecc_structure_ent aecc_pipe_ent) (IF align_lst (PROGN (VL-LOAD-COM) (IF c3difodoc nil (LOAD "c3difodoc" "\nFile C3DIFODOC not loaded! ") ) ;_ end of IF (c3difodoc) (SETQ aeccdoc (VLAX-GET-PROPERTY aeccapp "ActiveDocument")) (SETQ aeccdb (VLAX-GET-PROPERTY aeccdoc "Database")) (SETQ this_structure_ss nil aecc_structure_ent nil aecc_pipe_ent nil structure_cnt 0 ) ;_ end of SETQ ;; (WHILE (NOT this_structure_ss) (FOREACH n align_lst (SETQ structure_insertion_point (NTH 9 n) structure_select_points (LIST (POLAR structure_insertion_point 0.0 6.0) (POLAR structure_insertion_point (+ (* PI 0.5) 0.0) 3.0) (POLAR structure_insertion_point (+ (* PI 1.0) 0.0) 3.0) (POLAR structure_insertion_point (+ (* PI 1.5) 0.0) 3.0) ) ;_ end of LIST structure_cnt (1+ structure_cnt) ) ;_ end of SETQ (SETQ this_structure_ss (SSGET "CP" structure_select_points '((0 . "AECC_STRUCTURE")))) (IF (AND this_structure_ss (EQ (SSLENGTH this_structure_ss) 1)) (PROGN (SETQ aecc_structure_ent (ENTGET (SSNAME this_structure_ss 0)) aecc_pipe_ent nil ) ;_ end of SETQ ) ;_ end of PROGN (PROGN (SETQ this_structure_ss nil)) ) ;_ end of IF ;;; ) ;_ end of WHILE (IF aecc_structure_ent (PROGN (SETQ thisaeccstructure (VLAX-ENAME->VLA-OBJECT (CDR (ASSOC -1 aecc_structure_ent))) structurealignment (VLAX-GET-PROPERTY thisaeccstructure "Alignment") structureautomaticrimsurfaceadjustment (VLAX-GET-PROPERTY thisaeccstructure "AutomaticRimSurfaceAdjustment" ) ;_ end of VLAX-GET-PROPERTY structureconnectedpipenames (VLAX-GET-PROPERTY thisaeccstructure "ConnectedPipeNames") ;set 1=True, set 0=False, if 1, get-property returns :vlax-true, if 0, get-property returns :vlax-false structurecontrolsumpby (VLAX-GET-PROPERTY thisaeccstructure "ControlSumpBy") ;0=Depth, 1=Elevation, get-property returns 1 or 0 structuredescription (VLAX-GET-PROPERTY thisaeccstructure "Description") structureentitytransparency (VLAX-GET-PROPERTY thisaeccstructure "EntityTransparency") structurelayer (VLAX-GET-PROPERTY thisaeccstructure "Layer") structurelinetype (VLAX-GET-PROPERTY thisaeccstructure "Linetype") structurelinetypescale (VLAX-GET-PROPERTY thisaeccstructure "LinetypeScale") structurename (VLAX-GET-PROPERTY thisaeccstructure "Name") structurerimelevation (VLAX-GET-PROPERTY thisaeccstructure "RimElevation") structurerotation (VLAX-GET-PROPERTY thisaeccstructure "Rotation") structurestyle (VLAX-GET-PROPERTY thisaeccstructure "Style") structuresumpdepth (VLAX-GET-PROPERTY thisaeccstructure "SumpDepth") structuresumpelevation (VLAX-GET-PROPERTY thisaeccstructure "SumpElevation") structuresurfaceadjustmentvalue (VLAX-GET-PROPERTY thisaeccstructure "SurfaceAdjustmentValue") ) ;_ end of SETQ ;;; ;;;THE FOLLOWING SECTION WORKS BUT THERE IS NO COM ACCESS TO THE PIPE INVERT VALUES SO INVERTS CANNOT BE SET, WHICH WAS THE INTENDED PURPOSE OF THE SECTION ;;; ;;; (IF (AND structureconnectedpipenames (/= structureconnectedpipenames "")) ;;; (PROGN (SETQ aecc_pipe_list nil ;;; this_pipe_ss ;;; (SSGET "CP" structure_select_points '((0 . "AECC_PIPE"))) ;;; ) ;_ end of SETQ ;;; (IF (AND this_pipe_ss (> (SSLENGTH this_pipe_ss) 0) (<= (SSLENGTH this_pipe_ss) 2)) ;;; (PROGN (SETQ pipe_cnt 0) ;;; (WHILE (< pipe_cnt (SSLENGTH this_pipe_ss)) ;;; (SETQ aecc_pipe_list (APPEND aecc_pipe_list ;;; (LIST (VLAX-ENAME->VLA-OBJECT (SSNAME this_pipe_ss pipe_cnt))) ;;; ) ;_ end of APPEND ;;; pipe_cnt (1+ pipe_cnt) ;;; ) ;_ end of SETQ ;;; ) ;_ end of WHILE ;;; (SETQ aecc_pipe_data_list nil) ;;; (IF aecc_pipe_list ;;; (PROGN (FOREACH o aecc_pipe_list ;;; (SETQ pipealignment ;;; (VLAX-GET-PROPERTY o "Alignment") ;;; pipedescription ;;; (VLAX-GET-PROPERTY o "Description") ;;; pipeegldown ;;; (VLAX-GET-PROPERTY o "EGLDown") ;;; pipeeglup (VLAX-GET-PROPERTY o "EGLUp") ;;; pipeentitytransparency ;;; (VLAX-GET-PROPERTY o "EntityTransparency") ;;; pipeflowdirectionmethod ;;; (VLAX-GET-PROPERTY o "FlowDirectionMethod") ;;; pipehgldown ;;; (VLAX-GET-PROPERTY o "HGLDown") ;;; pipehglup (VLAX-GET-PROPERTY o "HGLUp") ;;; pipeholdonresize ;;; (VLAX-GET-PROPERTY o "HoldOnResize") ;;; pipelayer (VLAX-GET-PROPERTY o "Layer") ;;; pipelinetype ;;; (VLAX-GET-PROPERTY o "Linetype") ;;; pipelinetypescale ;;; (VLAX-GET-PROPERTY o "LinetypeScale") ;;; pipename (VLAX-GET-PROPERTY o "Name") ;;; pipestyle (VLAX-GET-PROPERTY o "Style") ;;; pipestartstructure (VLAX-GET-PROPERTY o "StartStructure") ;;; pipestartpoint (VLAX-GET-PROPERTY o "StartPoint") ;;; pipeendstructure (VLAX-GET-PROPERTY o "EndStructure") ;;; pipeendpoint (VLAX-GET-PROPERTY o "EndPoint") ;;; ) ;_ end of SETQ ;;; (SETQ aecc_pipe_data_list ;;; (APPEND aecc_pipe_data_list ;;; (LIST ;;; (LIST o ;;; pipealignment ;;; pipedescription ;;; pipeegldown ;;; pipeeglup ;;; pipeentitytransparency ;;; pipeflowdirectionmethod ;;; pipehgldown ;;; pipehglup ;;; pipeholdonresize ;;; pipelayer ;;; pipelinetype ;;; pipelinetypescale ;;; pipename ;;; pipestyle ;;; pipestartstructure ;;; pipestartpoint ;;; pipeendstructure ;;; pipeendpoint ;;; ) ;;; ) ;;; ) ;;; ) ;;; ) ;_ end of FOREACH ;;; ) ;_ end of PROGN ;;; ) ;_ end of IF ;;; ) ;_ end of PROGN ;;; (PROGN (SETQ this_pipe_ss nil)) ;;; ) ;_ end of IF ;;; ) ;_ end of PROGN ;;; ) ;_ end of IF (IF (EQ structureautomaticrimsurfaceadjustment :VLAX-TRUE) (VLAX-PUT-PROPERTY thisaeccstructure 'automaticrimsurfaceadjustment 0) ) ;_ end of IF (VLAX-PUT-PROPERTY thisaeccstructure 'name (NTH 0 n)) (VLAX-PUT-PROPERTY thisaeccstructure 'controlsumpby 1) (VLAX-PUT-PROPERTY thisaeccstructure 'rimelevation (NTH 2 n)) (SETQ gpdgnsumpelevation (- (MIN (NTH 3 n) (+ (NTH 3 n) (NTH 4 n))) structuresumpdepth)) (VLAX-PUT-PROPERTY thisaeccstructure 'sumpelevation gpdgnsumpelevation ) ;_ end of VLAX-PUT-PROPERTY (VLAX-PUT-PROPERTY thisaeccstructure 'sumpdepth 0.0) ) ;_ end of PROGN ) ;_ end of IF ;;;**************************************************************************** ; IAeccStructure: Structure interface ; Property values: ; Alignment = # ; Application (RO) = # ;;; AutomaticRimSurfaceAdjustment = 1 ; BoundingShape (RO) = 1 ; ConnectedPipe (RO) = ...Indexed contents not shown... ; ConnectedPipeNames (RO) = "S-2(10)" ; ConnectedPipesCount (RO) = 1 ; Connectors (RO) = # ;;; ControlSumpBy = 0 ;;; Description = "Eccentric Cylindrical Structure" ; DisplayName (RO) = "19" ; Document (RO) = # ;;; EntityTransparency = "ByLayer" ; Handle (RO) = "24D" ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = # ; InnerDiameter (RO) = ...Indexed contents not shown... ; InnerLength (RO) = ...Indexed contents not shown... ; InnerWidth (RO) = ...Indexed contents not shown... ; Labels (RO) = # ;;; Layer = "C-SSWR-STRU-SS02" ;;; Linetype = "BYLAYER" ;;; LinetypeScale = 1.0 ; Lineweight = -1 ; Material = "ByLayer" ;;; Name = "19" ; ObjectID (RO) = 44 ; ObjectID32 (RO) = 44 ; ObjectName (RO) = "AeccDbStructure" ; OwnerID (RO) = 46 ; OwnerID32 (RO) = 46 ; ParamsBool (RO) = # ; ParamsDouble (RO) = # ; ParamsLong (RO) = # ; ParamsString (RO) = # ; PartDataRecord = # ; PartFamily (RO) = # ; PartSizeName (RO) = "Eccentric Structure 48 dia 24 frame 36 cone 6 wall 6 floor" ; PartType (RO) = 102 ; PipeCenterDepth (RO) = ...Indexed contents not shown... ; PipeInnerDiaOrWidth (RO) = ...Indexed contents not shown... ; PipeInvertDepth (RO) = ...Indexed contents not shown... ; PipeLowestBottomDepth (RO) = 10.6607 ; PipeOuterBottomDepth (RO) = ...Indexed contents not shown... ; PipeOuterTopDepth (RO) = ...Indexed contents not shown... ; PipeUpperTopDepth (RO) = 9.894 ; PipeWallThickness (RO) = ...Indexed contents not shown... ; PlotStyleName = "ByLayer" ; Position (RO) = # ; ProfileNetworkParts (RO) = # ;;; RimElevation = 382.311 ;;; Rotation = 0.020013 ; ShowToolTip = -1 ; StructureDiameterOrWidth (RO) = 5.0 ; StructureHeight (RO) = 11.3 ; StructureInnerDiameterOrWidth (RO) = 4.0 ; StructureInnerLength (RO) = 0.0 ; StructureLength (RO) = 0.0 ;;; Style = # ;;; SumpDepth = 0.0 ;;; SumpElevation = 371.511 ; Surface = # ;;; SurfaceAdjustmentValue = 0.0 ; TrueColor = # ; Visible = -1 ;;;**************************************************************************** ;;; (IF aecc_pipe_ent ;;; (SETQ thisaeccpipe ;;; (VLAX-ENAME->VLA-OBJECT (CAR aecc_pipe_ent)) ;;; pipealignment ;;; (VLAX-GET-PROPERTY thisaeccpipe "Alignment") ;;; pipedescription ;;; (VLAX-GET-PROPERTY thisaeccpipe "Description") ;;; pipeegldown ;;; (VLAX-GET-PROPERTY thisaeccpipe "EGLDown") ;;; pipeeglup (VLAX-GET-PROPERTY thisaeccpipe "EGLUp") ;;; pipeentitytransparency ;;; (VLAX-GET-PROPERTY thisaeccpipe "EntityTransparency") ;;; pipeflowdirectionmethod ;;; (VLAX-GET-PROPERTY thisaeccpipe "FlowDirectionMethod") ;;; pipehgldown ;;; (VLAX-GET-PROPERTY thisaeccpipe "HGLDown") ;;; pipehglup (VLAX-GET-PROPERTY thisaeccpipe "HGLUp") ;;; pipeholdonresize ;;; (VLAX-GET-PROPERTY thisaeccpipe "HoldOnResize") ;;; pipelayer (VLAX-GET-PROPERTY thisaeccpipe "Layer") ;;; pipelinetype ;;; (VLAX-GET-PROPERTY thisaeccpipe "Linetype") ;;; pipelinetypescale ;;; (VLAX-GET-PROPERTY thisaeccpipe "LinetypeScale") ;;; pipename (VLAX-GET-PROPERTY thisaeccpipe "Name") ;;; pipestyle (VLAX-GET-PROPERTY thisaeccpipe "Style") ;;; ) ;_ end of SETQ ;;; ) ;_ end of IF ;;;**************************************************************************** ; IAeccPipe: Pipe interface ; Property values: ; Alignment = # ; Application (RO) = # ; ClosestPointTo (RO) = ...Indexed contents not shown... ; Connectors (RO) = # ; Description = "8\" D.I.P." ; DisplayName (RO) = "S-2(10)" ; Document (RO) = # ; EGLDown = 0.0 ; EGLUp = 0.0 ; EndPoint (RO) = # ; EndStructure (RO) = # ; EntityTransparency = "ByLayer" ; FlowDirection (RO) = 1 ; FlowDirectionMethod = 1 ; Handle (RO) = "232" ; HasExtensionDictionary (RO) = 0 ; HGLDown = 0.0 ; HGLUp = 0.0 ; HoldOnResize = 0 ; Hyperlinks (RO) = # ; InnerDiameterOrWidth (RO) = 0.666667 ; InnerHeight (RO) = 0.666667 ; IsMaxCoverViolated (RO) = ...Indexed contents not shown... ; IsMinCoverViolated (RO) = ...Indexed contents not shown... ; Labels (RO) = # ; Layer = "C-SSWR-PIPE-SS02" ; Length2D (RO) = 182.86 ; Length3D (RO) = 182.868 ; Linetype = "BYLAYER" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Material = "Global" ; MaximumCover (RO) = 11.486 ; MinimumCover (RO) = 9.894 ; Name = "S-2(10)" ; ObjectID (RO) = 45 ; ObjectID32 (RO) = 45 ; ObjectName (RO) = "AeccDbPipe" ; OuterDiameterOrWidth (RO) = 0.766667 ; OuterHeight (RO) = 0.766667 ; OwnerID (RO) = 46 ; OwnerID32 (RO) = 46 ; ParamsBool (RO) = # ; ParamsDouble (RO) = # ; ParamsLong (RO) = # ; ParamsString (RO) = # ; PartDataRecord = # ; PartFamily (RO) = # ; PartSizeName (RO) = "8 inch Ductile Iron Pipe" ; PartType (RO) = 10 ; PlotStyleName = "ByLayer" ; PointAtParam (RO) = ...Indexed contents not shown... ; Position (RO) = # ; ProfileNetworkParts (RO) = # ; Radius (RO) = 0.0 ; ShowToolTip = -1 ; Slope (RO) = 0.00929674 ; StartPoint (RO) = # ; StartStructure (RO) = # ; STMPipeMetadata = unsupported result type: 65 ; Style = # ; SubEntityType (RO) = 0 ; Surface = # ; SweptShape (RO) = 2 ; TrueColor = # ; Visible = -1 ; WallThickness (RO) = 0.05 ;;;**************************************************************************** ) ;_ end of FOREACH (IF (AND structure_cnt (> structure_cnt 0)) (ALERT (STRCAT (ITOA structure_cnt) " Civil 3D pipe network structure" (IF (> structure_cnt 1) "s have " " has ") "been adjusted to match values in " aln_name ". Pipes must be adjusted manually!")) (ALERT (STRCAT "No Civil 3D pipe network structures or pipes have been adjusted to match values in " aln_name "!")) ) ) ;_ end of PROGN (PRINC "No GPDGN alignment is currently in memory! ") ) ;_ end of IF ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 1 nil nil nil nil T) ;*** DO NOT add text below the comment! ***|;