RevitTricks

     main Sub main () Dim objExcel ''As Object Dim FOUND , FP Dim objShell Dim strPath Set objShell = CreateObject ( "Wscript.Shell" ) FP = objShell.SpecialFolders.Item ( "MyDocuments" ) & "\TimeLogs\" ''get MyDocuments folder & TimeLogs ''msgbox fp ''Debug FP Set objExcel = GetObject ( "S:\Users\ron.Allen\Documents\TimeLogs\CURRENT.xlsm" ). Application If Err Then MsgBox "Excel not open- opening" Set objExcel = CreateObject ( "Excel.Application" ) 'Create excel object Else For Each objWorkbook In objExcel.Workbooks If LCase ( objWorkbook.Name ) = LCase ( "CURRENT.XLSM" ) Then ''MsgBox objWorkbook.Name ''objExcel.Application.WindowState = -4143 objWorkbook.Activate 'Activate it FOUND = ...

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

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

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 setup 1. 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 (Optio...

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 throug...

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

import re ##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 match regexExp = 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 ##OUTPUT Outlist = [] ##Outlist TRUE if match is find for each item in list ###Initialize Regexp Regex = re . compile ( regexExp , re . IGNORECASE ) ###The actual RegExp compare for each item in the list for item in StrList : ## For each item in the list run a match Outlist . append ( Regex . match ( item ) is not None ) ##If match is not NONE then it is a match (true) - else (false)- append that to the list for each item OUT = Outlist ##Set output to results

import re ##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 match regexExp = 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 RegExpSub = IN [ 2 ] ##Regexp substitution from IN[2] ##OUTPUT Outlist = [] ##Outlist TRUE if match is find for each item in list ###Initialize Regexp ###The actual RegExp compare for each item in the list for item in StrList : ## 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 item OUT = Outlist ##Set output to r...

Public fso As New FileSystemObject Public oUsrFolder As Folder Public oRvtFolder As Folder Public rvers As Integer Public ifp As String Public sfp Public GUID_FILES As ArrayList Sub LinkToJournalFiles () Set GUID_FILES = CreateObject ( "System.Collections.ArrayList" ) 'array list to manage file path, file name & CSLID pairs Set fso = CreateObject ( "Scripting.FileSystemObject" ) ''Current user (Or all users?) For Each oUsrFolder In fso.GetFolder ( "C:\users" ). subfolders ''Scan for versions of Revit ifp = oUsrFolder.Path & "\AppData\Local\Autodesk\revit" If fso.FolderExists ( ifp ) Then For Each oRvtFolder In fso.GetFolder ( ifp ). subfolders Set sfp = regexp ( oRvtFolder.Path , ".*\\(Autodesk Revit .*)\\{0,1}" ) If sfp.co...

Purge Printers from Windows 7 VBS ''''''''''Execute subs CheckArgs CleanupPrinters dim SleepTime ''globals for sleep time in Milliseconds dim quiet ''globals for no dialog dim Msg ''Message string '''''''''''----------------------------------------------------- sub CheckArgs () ''push args into array ReDim args ( WScript.Arguments.Count - 1 ) For i = 0 To WScript.Arguments.Count - 1 args ( i ) = WScript.Arguments ( i ) & "" Next For argCt = 0 to ubound ( args ) if lcase ( trim ( args ( argCt ))) = "\sleep" then argCt = argCt + 1 SleepTime = int ( args ( argCt )) msg = msg & vbCr & "\sleep=" & int ( SleepTime ) end if if lcase ( trim ( args ( ...

If we create dated front loaded link names for web pages and Google search we can use those links as received by the server in a request to forward the links to correct pages. A more complex process would snapshot pages with a GUID and their links and manage the connectivity for redirects to the corrected content or archive of the pages.

import clr clr . AddReference ( 'ProtoGeometry' ) from Autodesk . DesignScript . Geometry import * #The inputs to this node will be stored as a list in the IN variables. Worksets_all = IN [ 0 ] Elements = IN [ 1 ] ##Regex to get the worksets matching the assembly criteria ## https://stackoverflow.com/questions/7014674/in-python-how-do-i-remove-from-a-list-any-element-containing-certain-kinds-of-c import re ##NOTE This is REgular EXpressions - a powerful pattern matching language regex = re . compile ( r"([abcdefglABCDEFGL]\d{2})|([Ww]orkset 1)" , re . IGNORECASE ) ## ABCD follow by 2 numbers #L added for airport special ##Iteration over list i[0] is NAME to comare #Worksets = filter(lambda i: regex.search(i[0]), Worksets_all) ##Also works Worksets = [ i for i in Worksets_all if regex . search ( i [ 0 ])] ##Each list item [0] soud be name stdout = list () for element in Elements : ##Iterate element list for w...

https://www.linkedin.com/jobs/blog/linkedin-workforce-report-february-2018-denver-co

https://youtu.be/4loraLRwRP8

Walabot DIY Smart Stud Finder Sees 4 Inches Into Your Walls | Walabot : 'via Blog this'

Login : Sound Design Strategies for Architectural Acoustic Design Webinar Available On-Demand 'via Blog this'

Re: browsing model files in the cloud (A360 C4R) - Autodesk Community : "/ get cloud document/model and project name string docName = CollaborateUtils.DocumentFileName(e.Document); string modelName = null; string projectName = null; var docNameSplit = docName.Split(new char[1] { '/' }, StringSplitOptions.RemoveEmptyEntries); modelName = docNameSplit.Last(); projectName = docNameSplit[1]; // find the current project and model id var cloudProjects = CollaborateUtils.GetCloudProjects(e.Document); var currProject = cloudProjects.FirstOrDefault(cp => String.Equals(cp.Name, projectName, StringComparison.CurrentCultureIgnoreCase)); var models = SynchronousManagementClientAccess.GetModels(currProject.Id); var currModel = models.FirstOrDefault(m => String.Equals(m.Name, modelName, StringComparison.CurrentCultureIgnoreCase)); // publish to BIM360 cloud VersioningClientFactory versioningClientFac = new VersioningClientFactory(); IVersioningClient versioningClient ...

Revit import to Infraworks Navis 3D View in Revit: https://youtu.be/Y-vdLl5NREo?t=957 Revit Materials: 3D view for exporting standard textures (Customized textures don't export in this tutorial): https://youtu.be/Y-vdLl5NREo?t=1912    Navisworks to manage export settings to translate Revit files: https://youtu.be/Y-vdLl5NREo?t=2028 Alternates FBX and Colada (Maintaining rotation and location) https://youtu.be/Y-vdLl5NREo?t=2091  revit not on roadmap!? FBCX or IFC acceptable. Lat Long in Infraworks Point Of Interest POI: https://youtu.be/Y-vdLl5NREo?t=2151 Script for exporting POI Lat Long from infraworks: https://youtu.be/Y-vdLl5NREo?t=2223  FBX (No basepoints user origin point)  https://youtu.be/Y-vdLl5NREo?t=2328 Transmuting coordinates in Revit to Infraworks for FBX https://youtu.be/Y-vdLl5NREo?t=2627 'Does Infraworks use NWC files'? https://youtu.be/Y-vdLl5NREo?t=2748 Fro...

###Export Excel - intended to replace malfunctioning excel node ### Ron.Allen@AECOM.com import clr import System clr . AddReferenceByName ( 'Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c' ) ##AddReferenceGUID("{00020813-0000-0000-C000-000000000046}") ''Excel C:\Program Files\Microsoft Office\Office15\EXCEL.EXE ##Need to Verify interop for version 2015 is 15 and node attachemnt for it. from Microsoft . Office . Interop import * ##Excel ################################Initialize FP and Sheet ID ##Same functionality as the excel node strFileName = IN [ 0 ] ##Filename sheetName = IN [ 1 ] ##Sheet RowOffset = IN [ 2 ] ##RowOffset ColOffset = IN [ 3 ] ##COL OFfset Data = IN [ 4 ] ##Data Overwrite = IN [ 5 ] ##Check for auto-overwtite XLVisible = F...