Convert aveva pdms 3. D model to DWG model or Other Formats. First of all i should say that this problem is solved by EXplant module of PDMS. When i wrote this script i hadnt access to this module. With this module you can directly export to dgn In that time our company design in Aveva PDMS and we in GIS division model all piping and other structures in Arc. GIS. Piping Discipline give us only some reports from PDMS and we should redesign them in Auto CAD then import Auto. CAD 3. D Models into Arc. GIS. We decide to automate this sequence. So I began to search. I searched the entire web and finally I find out Aveva has Explant I to do this. I couldnt find it in that time. At last I decide to write some code in Auto. CAD VBA to convert PDMS report to Auto. CAD objects and i did it. We build a DWG template that includes some piping elements as blocks including valves and other piping equipments and VBA application read the positions and type of them from PDMS report and then import them in right place in DWG template. Because of some modeling points in Arc. GIS, I categorized objects in layers with special names special line types and special color depend on pipe size. This code is fully customized for our problem. PdmsReport from PDMS be exactly same as this Excel file, this program surely works for you. You can download All of my works HERE. Nero 7 Windows 7 Full Version Key on this page. Files included. after extraction do following works open Excel file and leave it aside. This is the report from PDMS produced From Piping Disciplineopen dwg file Template file included all blocks and. IzLajUF8DoE/hqdefault.jpg' alt='Pdm Files' title='Pdm Files' />videossearchformatmktenusqpdmsconversiontoautocadsoftwareru2fsearch3fformat3d26mkt3denus26q3dpdms2bconversion2bto2bautocad2b2bsoftwareviewdetailmmscnvwrcmidFD4424665329C0CCBC60FD4424665329C0CCBC60FORMWVFSTD hIDSERP,5797. Watch video Plant 3D CONVERSION SOFTWARE PDSSP3DSmartPlant3DPDMSAutoPlantOpenPlantAutoCad. AutoCAD Forum Export files to PDMS. Just wish Aveva would do more to make their software compatable with. Check out this conversion tool for AutoCAD to PDMS. Import from PDMS to AutoCAD. LFM Software 51,908 views. AutoCAD to PDMS conversion. Auto. CAD. For example C Program FilesAuto. Cad. PathSupport folder load lsp dvb file from Auto. CAD menu Tools Load applicationtype pdms in command prompt in Auto. CAD to run application. Enter a Number that indicate how many line from Excel file you want to be Drawn in Autocad. Enter. and Please Wait. After all works done zoom extent to see what is drawn. Attention to blocks and poly lines color number, line type scale, Layers. Leaving Comments Make me happy. And this is my VBA code Option Explicit. PDMS_Macro_Bulk_Rectangular_Foundation-image.png' alt='Pdms Conversion To Autocad Software' title='Pdms Conversion To Autocad Software' />AutoCAD 3D to PDMS Pdms To Autocad Conversion PDMS RVM File format. Any solution for PDMS integration with PLM software ExplantI 1. Pdms Conversion To Autocad Software' title='Pdms Conversion To Autocad Software' />Private Row. C1 To 1. Row. BPrivate Current. Row As Long. Private Current. Pdm Software ComparisonDir As Variant. Private Max. Record As Integer. Private Work. Sheet As Excel. Work. Sheet. Private o. Excel As Excel. Application. Private poly. Obj As Acad. DPolyline. Private text. Obj As Acad. Text. Private Mean As Variant. Private War. N As Integer. Private Const pi 3. Public Sub main    War. N 0    Dim FMoment As Date    FMoment Now    Dim LMoment As Date    On Error Go. To errorhandler    Start Excel Application    Read Excel Sheet Till Row Max. Record    Max. Record 1. Max. Record This. Drawing. Utility. Get. IntegerEnter Max Number in Excel Sheet     Mean Start. App    Create. Report. Header    From STD of All pointsMean2,3Std. X,Std. Y Compute The direction of plant    Dim Entity As Acad. Entity    Dim Plnt. Dir As Double    Plnt. Dir 1    1 Means that Plant Elongs in X Direction    If Mean3 Mean2 Then Plnt. Dir 0    A Temporary Variable    Dim tmp. As Variant    Dim Point0 To 2 As Double    Dim Spoint As Double    Dim block. Ref. Obj As Acad. Block. Reference    Create The Gauge Layer    Dim Gauge. Layer. Name As String Gauge. Layer. Name 0. Gauges Check. Layer Gauge. Layer. Name    Create The Valve Layer    Dim Valve. Layer. Name As String Valve. Layer. Name 0. Valves Check. Layer Valve. Layer. Name    Create The Flange Layer    Dim Flange. Layer. Name As String Flange. Layer. Name 0. Flange Check. Layer Flange. Layer. Name    Create The Text Layer    Dim Text. Layer. Name As String Text. Layer. Name 0. Text Check. Layer Text. Layer. Name    Create The Reducer Layer    Dim Reducer. Layer. Name As String Reducer. Layer. Name 0. Reducer Check. Layer Reducer. Layer. Name    Current. Row 1    Read First Record Of Excel File    Dim I As Integer    For I 1 To 1. Row. CI Work. Sheet. CellsCurrent. Row, I    Next I    Declaring The First Record Layer 1. Branch 1. 2    Row. C1. 1 none Row. C1. Row. B Row. C    Initializing Max Value Of Progress. Bar    UF. PBar. Max 1    Read Next Record While 1. Begin    Do        Do            Read. New. Record        Loop While Current. Row lt Max. Record And Str. CompRow. C2, Empty 0        Outer Loop Ends When Following Condition Satisfiy        If Current. Row Max. Record Then            Clean Up Drawing From 0 Length 3. Dpoly            For Each Entity In This. Drawing. Model. Space                If Type. NameEntity IAcad. DPolyline Then                    If Entity. Length lt 0. 0. Then                        Entity. Delete                    End If                End If            Next Entity            Hide The Progress. Bar            UF. Hide            LMoment Now            Msg. Box Elapsed Time FormatCDblLMoment FMoment 3. Exit Sub        End If        If Current Layer Is Not Layer Name Of Current Record Row. C1. 1        Check For Existence Of LayerRowc1. Dim str. Layer. Name As String        str. Layer. Name Pipe Row. C1. 1        Check. Layer str. Layer. Name        Add The Text Of Point        Add. New. Text Text. Layer. Name        Select Case Row. C2            Case ELBO                Insert. Elbow                Go. To Begin            Case ATTA                If Object is Attach 1. Pressure Gauge and should insert its Block                If CIntRow. C5 1. 5 Then                    INSER GAUGE BLOCK                    Set block. Ref. Obj Insert. BlockPressure gauge 1p, Plnt. Dir                    block. Ref. Obj. Layer Gauge. Layer. Name                End If            Case VALV                Recognizing Valves For Substituting Proper Block. Refrence                Dim Descr As String                Dim Pipe. Dim As Double                Dim Rating As Integer                Diameter Of Pipe converted From mm to inch                Pipe. Dim FixCLngRow. C5 6. Split The DESCRIPTION Row to 6 Part 0 to 5 and Copy it Into Descr                Descr SplitRow. C3, 6, vb. Text. Compare                Trim and Convert to Upper. Case All Desc Fields                For I 0 To UBoundDescr                    DescrI UCaseTrimDescrI                Next I                Try To Extract Rating Distinguished With Sign From Text                Position Of Sign tmp. In. Str1, Row. C3, vb. Text. Compare                Position of All Signs                Dim pos0 To 9 As Integer                I 0                Find place of, Just Before the Sign posi 1                Do                    I I 1                    posI In. StrposI 1 1, Row. C3, vb. Text. Compare                Loop While posI lt tmp. Calulatin The Digits Of Rating and Extract it to Rating                Rating MidRow. C3, posI 1 1, tmp. I 1 1                Recognizing Differentt Type Of Valves                Select Case Descr1                        IF Valve IS ANY KIND OF GATE VALVE Then                     Case GATE                        Select Case Rating                            Case 1. Select Case Pipe. Dim                                    Case 0. Set block. Ref. Obj Insert. BlockGate Rating Rat Pipe. Products ISY Plant conversion. PDMS conversion. In many situations, a conversion is just a one time process. Buying or renting the needed conversion software, and acquiring the needed skills can be a challenge. Why not let our consultants do the work for you They know the pits and how to get around them and get the needed quality of the converted model. If you are working in one CAD format and needs to deliver in another format just let us now and we will give you a note on the preferred solution. Preparation of conversion. Are you heading for a project where conversion is needed, it can be good to let us now as early as possible. Maybe just small tweaks, another workflow, or other elements is enough to give you way higher quality on the delivered models. We have been involved in a lot of project worldwide both proof of concept projects and real projects. By doing a proof of concept, the quality and process will be ensured and you will be comfortable with the next steps. Advice for conversion. In large 3. D model conversions and other collaboration project it might be a good option to have special expertise available to ensure that the converted models are correct. To be involved on an early stage is always good. Before converting a model there can be many questions which needs to be addressed, for instance globallocal coordinate systemrequired metadata and mapping of thosewhich 3. D data to be convertedquality requirements of 3. D geometryhow the data should be used. Please dont hesitate to contact us if you have any questions regarding conversion, PDMS or CAD in general.