Posts

Showing posts from August, 2016

Simplifying Point Clouds - Autodesk Community

Simplifying Point Clouds - Autodesk Community : 'via Blog this'

White Paper - The Future of MEP Layout | Trimble MEP

White Paper - The Future of MEP Layout | Trimble MEP : 'via Blog this'

Drone Company Snags $20 Million to Make Better Maps

Drone Company Snags $20 Million to Make Better Maps : "by  Barb Darrow @gigabarb AUGUST 24, 2016, 9:09 AM EDT" 'via Blog this'
REM DISSEMINATES REVIT OOTB DRAG AND DROPPED FOLDER TO CLIENT-SPECIFIC NAMED FOLDERS @ echo REM file-folder path for drag and drop Set source = %~1 echo %source% rem set source=C:\ProgramData\Autodesk\RVT 2015 echo REM NAMING PREFIXES FOR MAIN FOLDERS     REM VERSION SUFFIX set Version = 2015     REM DESTINATION PATH set NewPath = C:\temp\libtest     REM CLIENT PREFIX set Client = OOTB\ootb_ echo set USImperial = %newpath% \ %Client% I(US)- %Version% set USMetric = %newpath% \ %Client% M(US)- %Version% set CANMetric = %newpath% \ %Client% M(CAN)- %Version% Set RoboPrefs = /e /Z /DCOPY:T /MT:8 /XO /IT /XJ /FFT /DST /XJD /XJF /R:0 /TBD /LOG + : %newpath% \RVT_ %version% _SPLIT.txt rem  Set RoboPrefs=/e /Z /DCOPY:T /MT:8 /XO /IT /XJ /FFT /DST /XJD /XJF /R:0 /TBD /LOG+:%newpath%\RVT_%version%_SPLIT.txt /TEE REM --SET COPY  English Templates (US) set Src = %source% \Family Templates\English_I\ set Dest = %USImperial% \000-TEMPL
''ORACLE FORMATS TO TEXT- Missing is an ISO LIST in EXCEL of the COUNTRY/STATE codes. Attribute VB_Name = "tEXTtOOLS" Option Explicit Function CleanString ( strString As String ) Dim result , re    Set re = New RegExp    With re     . Global = True     . IgnoreCase = True     ''' http://www.regular-expressions.info/vbscriptexample.html     '''regex   =      *.  9999    .  RFA or RVT or RTE     ''.Pattern = ".*?(\.)(\d{4})(\.)(rfa|rvt|rte)"     . Pattern = "[^A-Z,0-9,a-z]"     CleanString = . Replace ( strString , "_" )    End With Set re = Nothing End Function Function SplitOracle ( strOracle As String , Optional retval As Integer ) ''United States/CA/San Diego/US - San Diego, CA - 401 West A Street retval = retval - 1 Dim result , re , objRow Dim ISO As ListObject Set ISO = shtISO3166.ListObjects ( "IS