RevitTricks

Option Explicit Const version = "v2015-02-25-01.0" ''Script takes a csv text based output report from Deltek and uses it to create folder structure on P. Const strFPt = "P:\" ''Target File PathDim FP Const vbqt = """" ''define VBQt for quotation mark ''Lots of globals on this one: Public strDataArr ''Readline of data from file Public strDiscID ''discipline ID Const RemapE = True ''Remap E will create the S/SZ folders if E is in the disciplines . Const ForReading = 1, ForWriting = 2, ForAppending = 8 '' ''FILE MANIPULATION OBJECTS AND REFERENCES'''''''''''''''''' Dim fso ''As New FileSystemObject for creating folders Dim objWSH ''As New WshShell for creating shortcuts Dim strKeyID() ''...

Revit nested family not hosting to "Pick primary host" option in "Stacked wall" condition- nested family floats out beyond wall to stacked wall width. The issue was resolved by hosting the nested family to a reference plan then aligning & locking the reference plane to the wall face's finish. reloading correctly shrunk up the gap between the nested family and the "Primary host"

AGA Cad's framing add-in- looks like it might be good for modular construction as well... I have a request in for price points and hopefully a trial : ) Framing Timber Walls in Revit® Model | Wood Framing Wall+ | AGACAD TOOLS4BIM : 'via Blog this'

Digital Construction and fabrication - very cool... What is DigiConSoo? - YouTube : 'via Blog this'

On the Road to VDC Integration~ Geeking out over Revit and MS Access data connections... Personal breakthrough- I finally got an great connection from Revit 2015 to MS Access through a plugin called DBConnect.  I had to install the ODBCx64 drivers downloaded from Microsoft as even whn I installed the x64 version of office to go with my x64bit everythign else it insisted on rverting to teh x32 ODBC drivers: http://www.microsoft.com/en-us/download/details.aspx?id=23734  i got from this very useful dude!~ Found this helpful Me Too 9 Answer Scottgem  replied on  January 22, 2010 MVP You can download the drivers here: http://www.microsoft.com/downloads/details.aspx?familyid=7554F536-8C28-4598-9B72-EF94E038C891&displaylang=e This file will add Access to the list of file types in the ODBC administrator. Not sure if its 32 or 64 bit. But it worked on a machine running 64bit Win 7 Hope this helps, Scott<> P.S. Pleas...

Sub GLOSSARY() ' ' GLOSSARY Macro ' ' Dim strMark As String Dim strDEf As String ''Dim newdoc As New Document 'Dim myrange As Range Dim I As Integer Dim Curdoc Set Curdoc = ActiveDocument ''trim up selection Do While Selection.Characters(Selection.Characters.Count) = " " And Selection.Characters.Count > 1    Selection.MoveEnd Unit:=wdCharacter, Count:=-1 Loop strMark = Selection.Text   If strMark = "" Then    MsgBox "Select some text to mark first", vbCritical, "Error"    Exit Sub End If    Selection.Font.Bold = True    Selection.Font.Italic = True      strDEf = InputBox("Definition for " & strMark, "Define Term", vbOK) ''get definition      strDEf = strMark & "-" & strDEf Dim x As Field Set x = Curdoc.TablesOfAuthorities.MarkCitation(Range:=Selection.Range, _       ShortCitation:=strDEf, LongCitation:= _       strDEf, Long...

Dim objIe ''As InternetExplorer                                                         ''ie subroutine operands Dim wscript As New objWSCRIPT_emulator Sub ViewInternetHeader ()     Dim olItem As Outlook.MailItem , olMsg As Outlook.MailItem     Dim strheader As String    InitIE "Starting View Header" , objIe     For Each olItem In Application.ActiveExplorer.Selection         strheader = GetInetHeaders ( olItem )          MsgIE strheader , objIe         'Set olMsg = Application.CreateItem(olMailItem)  ...

''Watch for wraps! Option Explicit ''135 CHARACTERS IN LANDSCAPE 3         4         5         6         7         8         9        10        11        12         13  13 '123456789112345678921234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789302345 '''GLOBALS============================================================================================================================== Dim blnFlag , strIETitle Dim objIe ''As InternetExplorer               ...