Community
Civil 3D Customization
Welcome to Autodesk’s AutoCAD Civil 3D Forums. Share your knowledge, ask questions, and explore popular AutoCAD Civil 3D Customization topics.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Property Sets

2 REPLIES 2
SOLVED
Back to Civil 3D Category
Back to Topic Listing
Reply
Message 1 of 3
mehsan
Advocate
694 Views, 2 Replies
‎03-23-2021 09:23 PM
‎03-23-2021 09:23 PM

Property Sets

Hi, Can any one help me by giving me any lisp program which can assign Property Sets to Pipes and Structures in Civil 3d Automatically.

Thanks

Report
0 Likes
Reply
2 REPLIES 2
Message 2 of 3
hosneyalaa
Advisor
in reply to: mehsan
‎03-23-2021 09:38 PM
‎03-23-2021 09:38 PM

 

hi

;;AeccXPipeLib__IAeccPipe.htm

http://docs.autodesk.com/CIV3D/2012/ENU/API_Reference_Guide/com/AeccXPipeLib__IAeccPipe.htm?_ga=2.12...

 

(defun c:PipeInverts ()
  (setq ss (ssget ":s" '(( 0 . "AECC_PIPE"))))
  (if ss
    (progn
      (setq pipeObj (vlax-ename->vla-object (ssname ss 0)))
      (setq sp (vlax-safearray->list (vlax-variant-value (vlax-get-property pipeObj 'PointAtParam 0))))
      (setq eC (vlax-safearray->list (vlax-variant-value (vlax-get-property pipeObj 'PointAtParam 0.5))))
      (setq ep (vlax-safearray->list (vlax-variant-value (vlax-get-property pipeObj 'PointAtParam 1))))
      (setq innerPipeDiameter (vlax-get-property pipeObj 'InnerDiameterOrWidth))
      (setq Alignment (vlax-get-property pipeObj 'Alignment))
      (setq Connectors (vlax-get-property pipeObj 'Connectors))
      (setq EGLDown (vlax-get-property pipeObj 'EGLDown))
      (setq EGLUp  (vlax-get-property pipeObj 'EGLUp ))
      (setq   (vlax-get-property pipeObj 'EGLUp ))
      (setq EndStructure  (vlax-get-property pipeObj 'EndStructure ))
        
      (setq FlowDirection  (vlax-get-property pipeObj 'FlowDirection ))
      (setq FlowDirectionMethod   (vlax-get-property pipeObj 'FlowDirectionMethod  ))
      (setq HGLDown   (vlax-get-property pipeObj 'HGLDown  ))
      (setq HGLUp   (vlax-get-property pipeObj 'HGLUp  ))
      (setq HoldOnResize   (vlax-get-property pipeObj 'HoldOnResize  ))
      (setq  InnerHeight   (vlax-get-property pipeObj 'InnerHeight  ))
      (setq Labels   (vlax-get-property pipeObj 'Labels  ))
      (setq Length2D   (vlax-get-property pipeObj 'Length2D  ))
      (setq Length3D   (vlax-get-property pipeObj 'Length3D  ))
      (setq MaximumCover   (vlax-get-property pipeObj 'MaximumCover  ))
      (setq MinimumCover   (vlax-get-property pipeObj 'MinimumCover  ))
      (setq OuterDiameterOrWidth   (vlax-get-property pipeObj 'OuterDiameterOrWidth  ))
      (setq  OuterHeight  (vlax-get-property pipeObj 'OuterHeight ))
      (setq  pdr    (vlax-get-property pipeObj 'PartDataRecord   ))
      (setq idx 0)
      (vlax-for rec pdr
	(princ (strcat "\nIndex: " (itoa idx) " - Context String: " (vlax-get-property rec 'ContextString) " | Value: " (vl-princ-to-string (vlax-variant-value (vlax-get-property rec 'Tag)))))
	(setq idx (+ idx 1))
	);end vlax-for
      
      (setq PartFamily   (vlax-get-property pipeObj 'PartFamily  ))
      (setq PartSizeName  (vlax-get-property pipeObj 'PartSizeName ));"600 mm Concrete Pipe"
      (setq PartType   (vlax-get-property pipeObj 'PartType  ))
      (setq ProfileNetworkParts   (vlax-get-property pipeObj 'ProfileNetworkParts  ))
      (setq Radius   (vlax-get-property pipeObj 'Radius  ))
      (setq Slope   (vlax-get-property pipeObj 'Slope  ))
      (setq StartPoint   (vlax-get-property pipeObj 'StartPoint  ))
      (setq StartStructure   (vlax-get-property pipeObj 'StartStructure  ))
      ;;(setq  STMPipeMetadata   (vlax-get-property pipeObj 'STMPipeMetadata  ))
      (setq Style   (vlax-get-property pipeObj 'Style  ))
      (setq SubEntityType   (vlax-get-property pipeObj 'SubEntityType  ))
      (setq Surface   (vlax-get-property pipeObj 'Surface  ))
      (setq  SweptShape   (vlax-get-property pipeObj ' SweptShape  ))
      (setq WallThickness   (vlax-get-property pipeObj 'WallThickness  ))
      )
    )
  )

 

 

 

See the link

https://forums.autodesk.com/t5/civil-3d-customization/get-point3d-values-in-property-set/m-p/9436843...

Report
0 Likes
Reply
Message 3 of 3
hosneyalaa
Advisor
in reply to: mehsan
‎03-23-2021 09:45 PM
‎03-23-2021 09:45 PM

 

;;AECC_STRUCTURE

(defun c:STRUCTUREInverts ()
  (setq ss (ssget ":s" '(( 0 . "AECC_STRUCTURE"))))
  (if ss
    (progn
      (setq pipeObj (vlax-ename->vla-object (ssname ss 0)))
      (setq Alignment (vlax-get-property pipeObj 'Alignment))
      (setq AutomaticRimSurfaceAdjustment  (vlax-get-property pipeObj 'AutomaticRimSurfaceAdjustment ))
      (setq BoundingShape   (vlax-get-property pipeObj 'BoundingShape  ))
      (setq ConnectedPipeNames    (vlax-get-property pipeObj 'ConnectedPipeNames   ))
      (setq Connectors     (vlax-get-property pipeObj 'Connectors    ))
      (setq ControlSumpBy      (vlax-get-property pipeObj 'ControlSumpBy     ))
      (setq Labels (vlax-get-property pipeObj 'Labels  ))
      (setq pdr      (vlax-get-property pipeObj 'PartDataRecord     ))
       (setq idx 0)
      (vlax-for rec pdr
	(princ (strcat "\nIndex: " (itoa idx) " - Context String: " (vlax-get-property rec 'ContextString) " | Value: " (vl-princ-to-string (vlax-variant-value (vlax-get-property rec 'Tag)))))
	(setq idx (+ idx 1))
	);end vlax-for
      

      
      (setq PartFamily      (vlax-get-property pipeObj 'PartFamily     ))
      (setq PartSizeName      (vlax-get-property pipeObj 'PartSizeName     ))
      (setq PartType      (vlax-get-property pipeObj 'PartType     ))
      (setq PipeLowestBottomDepth      (vlax-get-property pipeObj 'PipeLowestBottomDepth     ))
      (setq PipeUpperTopDepth      (vlax-get-property pipeObj 'PipeUpperTopDepth     ))
      (setq  ProfileNetworkParts     (vlax-get-property pipeObj ' ProfileNetworkParts    ))
       (setq RimElevation      (vlax-get-property pipeObj 'RimElevation     ))


      
      (setq  Rotation      (vlax-get-property pipeObj ' Rotation     ))
      
      (setq StructureDiameterOrWidth      (vlax-get-property pipeObj 'StructureDiameterOrWidth     ))
      (setq  StructureHeight     (vlax-get-property pipeObj ' StructureHeight    ))
      (setq  StructureInnerDiameterOrWidth      (vlax-get-property pipeObj ' StructureInnerDiameterOrWidth     ))
      (setq StructureInnerLength      (vlax-get-property pipeObj 'StructureInnerLength     ))
      (setq StructureLength      (vlax-get-property pipeObj 'StructureLength     ))
      (setq Style      (vlax-get-property pipeObj 'Style     ))
      (setq StyleNAME      (vlax-get-property Style 'NAME     ))
      (setq  SumpDepth      (vlax-get-property pipeObj ' SumpDepth     ))
      (setq SumpElevation      (vlax-get-property pipeObj 'SumpElevation     ))
      (setq Surface      (vlax-get-property pipeObj 'Surface     ))
      (setq SurfaceNAME      (vlax-get-property Surface 'NAME     ))
      (setq  SurfaceAdjustmentValue       (vlax-get-property pipeObj 'SurfaceAdjustmentValue      ))
    

   






    )  
     
    )
  (princ)
  )

 

Report
Reply
Reply

Forums Links

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Rail Community


 

Autodesk Design & Make Report

 
Report a website issue