Posts

Showing posts from 2018

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

New revit tools available!

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

Lubuntu 14.x RDP and accessing the home desktop aka Desktop:0

Installed tight VNC using this as a guide here:

AskUbuntu https://askubuntu.com/a/143113/824647

The piece I had been missing was the port. in a multi user environment the port also connects to the desktop. Desktop 0 (zero) is the default desktop. so I set my INI file accordingly to ask5900 so it will ask but prepopulate with the desktop zero which passes on port 5900.

RealVNC setup1. Uninstallation of the default Ubuntu VNC server (Vino): Go to: System --> Administration --> Synaptic Package Manager Search for the "Vino" package, Mark For Removal, Apply. 2. Installation of TightVNC and XRDP: While you are using Synaptic Package Manager, seacrh for "tightvnc" package (be careful, not "xtightvnc") and Mark For Installation. Likewise, search for the "xrdp" package and Mark also For Installation. Apply. PS: if you want, you may discard any other "vnc" package that you don't need! 3. Configuration of XRDP (Optional) Open a terminal …

Introducing Sourcelist: Promoting diversity in technology policy

Introducing Sourcelist: Promoting diversity in technology policy:



It is a good idea- I have a similar idea for a national database of all folks and their job histories, *proven capabilities*, recommendations, etc. A database not just for women but to hire people on *availability*, *capability* and *merit* regardless of any other label.

Justice is supposed to be blind- Why shouldn't hiring be based solely on capability with no other available data? Human beings will likely have one bias or another- until those are weeded out, there must be a system to provide equity.

These next words are painful; and I *do* believe in the idea of affirmative action- however, the current method and application of Affirmative has very mixed results. Forcing the break down of the walls of segregation and bigotry, discrimination and racism, etc. is itself a forced discrimination which I have seen many take advantage of to creating mediocrity through entitlement. There are those skating through on the…

Forge collaboration for fm

SPINALCOM, using Forge technology, is addressing EDF's challenge by providing the FM team with a BMS Supervisor (control center) that contextualizes the data in their BIM model and intelligently filters alarms to save time on each alert, regardless of the silo it comes from. http://labs.blogs.com/its_alive_in_the_lab/2018/05/spinalcom-is-enabling-collaborative-real-time-bim-level-3-applications-for-all-stages-of-a-facilitys.html

py.RegExp.py

importre##Import for re or Regular Expressions###INPUTS (Two Inputs- 0 and 1- ad inputs to python node to correspond with th [+] button)StrList=IN[0]##Simple list of items to matchregexExp=IN[1]##Regexp string to match ##see https://docs.python.org/3.3/howto/regex.html "Regular expressions in dynamo" and ##https://regex101.com for regular expressions 101 testing##OUTPUTOutlist=[]##Outlist TRUE if match is find for each item in list###Initialize RegexpRegex=re.compile(regexExp,re.IGNORECASE)###The actual RegExp compare for each item in the listforiteminStrList:## For each item in the list run a match Outlist.append(Regex.match(item)isnotNone)##If match is not NONE then it is a match (true) - else (false)- append that to the list for each itemOUT=Outlist##Set output to results

PY.RegExp.sub.py

importre##Import for re or Regular Expressions###INPUTS (Two Inputs- 0 and 1- ad inputs to python node to correspond with th [+] button)StrList=IN[0]##Simple list of items to matchregexExp=IN[1]##Regexp string to match ##see https://docs.python.org/3.3/howto/regex.html "Regular expressions in dynamo" and ##https://regex101.com for regular expressions 101 testingRegExpSub=IN[2]##Regexp substitution from IN[2]##OUTPUTOutlist=[]##Outlist TRUE if match is find for each item in list###Initialize Regexp###The actual RegExp compare for each item in the listforiteminStrList:## For each item in the list run a match result=re.sub(regexExp,RegExpSub,item,1)Outlist.append(result)##If match is not NONE then it is a match (true) - else (false)- append that to the list for each itemOUT=Outlist##Set output to results

REvit CAche parser for C4R files to ID Revit Files

PublicfsoAsNewFileSystemObjectPublicoUsrFolderAsFolderPublicoRvtFolderAsFolderPublicrversAsIntegerPublicifpAsStringPublicsfpPublicGUID_FILESAsArrayListSubLinkToJournalFiles()SetGUID_FILES=CreateObject("System.Collections.ArrayList")'array list to manage file path, file name & CSLID pairs Setfso=CreateObject("Scripting.FileSystemObject")''Current user (Or all users?) ForEachoUsrFolderInfso.GetFolder("C:\users").subfolders''Scan for versions of Revit ifp=oUsrFolder.Path&"\AppData\Local\Autodesk\revit"Iffso.FolderExists(ifp)ThenForEachoRvtFolderInfso.GetFolder(ifp).subfoldersSetsfp=regexp(oRvtFolder.Path,".*\\(Autodesk Revit .*)\\{0,1}")Ifsfp.count>0ThenParseRevitFolder(oRvtFolder)NextEndIfNextoUsrFolder''''''''''' ''GUID_FILES is a list of strings of filepath > GUID > and corresponding actual filename SubParseRevitFolder(RevitFolder)FilePath=RevitFol…