Posts

Revit Disseminator for OOTB Content to geographic folders

@ECHO off rem ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REM DISSEMINATES REVIT OOTB DRAG AND DROPPED FOLDER TO CLIENT-SPECIFIC NAMED FOLDERS REM file-folder path for drag and drop REM ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REM DESTINATION PATH and DEFAULTS::::::::::::::::::::::::::::::::::::::::::: set NewPath=L:\AUTODESK\L-REVIT set Version=2019 set Client=ootb_ REM ::: if no source prompts will help find content @set source=%~1 REM SET Fopt TO ALL BY DEFAULT set Fopt= /e *.* rem ======================================================= call :GetPrefixData : CLS REM prefix subroutine REM ROBOCOPY PREFS DO NOT SPECIFY FILE *.* ! set RoboPrefs= /TEE /NJH /NFL /NDL /NC /Z /DCOPY:T /MT:8 /XO /IT /XJ /FFT /DST /XJD /XJF /R:0 /W:0 /REG /TBD /LOG+:%newpath%\RVT_%version%_SPLIT.txt rem ===set values========================================= @ECHO ================================================= @ECHO =USImperial, USMetric, CANMetric========…

Web point cloud viewers

point cloud software pointerra, college web and jet streamhttps://www.google.com/search?num=30&client=ms-android-hms-tmobile-us&ei=v843W932Goy6vwSD-bMw&q=point+cloud+viewers+pointerra%2C+college+web+and+jet+stream&oq=point+cloud+viewers+pointerra%2C+college+web+and+jet+stream&gs_l=mobile-gws-wiz-serp.3...93812.101009..101492...2....129.2704.13j13......0....1.........30i10.NWhGVboCwDc%3D

Excel CSI Keynote editor

Attribute VB_Name = "SaveAsTextRevitKeynotes" Function KeyFormatOK(Key As String, Optional NotStrict As Boolean) As Boolean Dim Re As RegExp Set Re = VBA.CreateObject("VBScript.RegExp") With Re If NotStrict Then .Pattern = "^(\d{2,5}[\-_\s]){0,1}((?:\d{2}[\-_\s\.]{0,1}){1,3}(?:\d{1,}){0,}){0,1}(.+)$" Else .Pattern = "^((?:\d{2}[\s]\d{2}[\s]\d{2}))(.+)$" ''Matches 00 00 00 * End If .IgnoreCase = True .MultiLine = True .Global = False End With Set Match = Re.Execute(Key) KeyFormatOK = Re.Test(Key) End Function ''reset revaliadtion in theis notebook and refresh pivot Sub ResetRevalidate() Dim NotesLastrow As Integer ''last row of notes Dim HeaderListAddr As String ''last used row NotesLastrow = SHTKeynotes.Cells(Rows.Count, 1).End(xlUp).row ''refresh headers With SHTHdrPivot.Pivot…

Disburse REVIT OOTB(Out of the box content) into content specific packages by region(US/CAN) and units (I/M)

Exported from Notepad++@echo off rem ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REM DISSEMINATES REVIT OOTB DRAG AND DROPPED FOLDER TO CLIENT-SPECIFIC NAMED FOLDERS REM file-folder path for drag and drop REM ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REM DESTINATION PATH and DEFAULTS::::::::::::::::::::::::::::::::::::::::::: set NewPath=L:\AUTODESK\L-REVIT set Version=2019 set Client=ootb_ REM ::: if no source prompts will help find content @set source=%~1if [%source%] == [] set source=C:\ProgramData\Autodesk\RVT %version%Echo Source Data::: %source%REM SET Fopt TO ALL BY DEFAULT set Fopt= /e *.*rem ======================================================= call :GetPrefixData : CLS REM prefix subroutine REM ROBOCOPY PREFS DO NOT SPECIFY FILE *.* ! set RoboPrefs= /TEE /NJH /NFL /NDL /NC /Z /DCOPY:T /MT:8 /XO /IT /XJ /FFT /DST /XJD /XJF /R:0 /W:0 /REG /TBD /LOG+:%newpath%\RVT_%version%_SPLIT.txt rem ===set values==============================…

Cleaning up targeted ads in Google targeted ads for stuff you already bought

Just found you can go to Google chrome or Android Google and enter this:
http://Adsettings.google.com while logged into your account and edit categories out that were edited from your searches!

To find excel and open it and find a workbook and run a macro from VBS

main
Submain()DimobjExcel''As Object DimFOUND,FPDimobjShellDimstrPathSetobjShell=CreateObject("Wscript.Shell")FP=objShell.SpecialFolders.Item("MyDocuments")&"\TimeLogs\"''get MyDocuments folder & TimeLogs ''msgbox fp ''Debug FP SetobjExcel=GetObject("S:\Users\ron.Allen\Documents\TimeLogs\CURRENT.xlsm").ApplicationIfErrThenMsgBox"Excel not open- opening"SetobjExcel=CreateObject("Excel.Application")'Create excel object ElseForEachobjWorkbookInobjExcel.WorkbooksIfLCase(objWorkbook.Name)=LCase("CURRENT.XLSM")Then''MsgBox objWorkbook.Name ''objExcel.Application.WindowState = -4143 objWorkbook.Activate'Activate it FOUND=TrueExitForEndIfNext''objWorkbook EndIf'''''''''''''''''''''''''''''''''Open the file if excel was o…

New revit snooper for 2019 available!

http://thebuildingcoder.typepad.com/blog/2018/04/revitlookup-2019-and-new-sdk-samples.html