RevitTricks

http://www.brettzamoredesign.com/#home-bottom

::Log Filename & Folder ::::::::::::::::::::::::::::::::::::::::::::::::::::Set FP to current Directory Path of executable '0' and file Name and append _LOGS set fp = %~dp0%~n0_Logs \                             ::::::::::::::::::::::::::::::::::::::::::::::::::::Make the file path - will complain and skip if exists @ mkdir %fp% ::::::::::::::::::::::::::::::::::::::::::::::::::::Set variable to be the log file name and use that SET LOG_FNAME = %fp%%USERNAME% @ %COMPUTERNAME% .log   

Exported from Notepad++ Attribute VB_Name = "REVIT_CHECK_FILE_VERSION" Option Explicit Const VBQT = """" Private Sub TEST_Revit_File_Version_From_File () ''Function Revit_File_Version_From_File(FN As String) As String Dim oDic As Dictionary ''dictionary of elements Set oDic = CreateObject ( "Scripting.Dictionary" ) ''Create the dictionary for scripting Dim Key '2018 works' Set oDic = Revit_File_Version_From_File ( "C:\_LIB\AUTODESK\REVIT\ootb_I(US)-2019\Annotations\Electrical\Abort Switch Annotation.rfa" ) '2018 works 'Set oDic = Revit_File_Version_From_File("C:\Users\ron.allen\Documents\REVIT\test-Finish Material.rfa") ''Set oDic = Revit_File_Version_From_File("C:\ProgramData\Autodesk\RVT 2019\Family Templates\English_I\Annotations\Callout Head.rft") For Each Key In oDic.Keys D...

Attribute VB_Name = "Excel_Shapes" Sub Shape_Replace_x() Dim wshp As Shape For Each wshp In ActiveSheet.Shapes If (wshp.Type = 13) Then wshp.Select wshp.AlternativeText = "X" If wshp.TopLeftCell.Cells(1, 1).Value = "" Then wshp.TopLeftCell = "x" wshp.Delete End If Next wshp End Sub Sub Shapes_Delete_all() For Each shp In ActiveSheet.Shapes shp.Delete Next shp End Sub

main Sub Main() Dim answer answer = MsgBox("YES To copy target, NO to Create link, or cancel to stop.", vbYesNoCancel, "YES=Copy, No=Shortcut, Cancel=Cancel") If answer = 6 Then CopyToSendTo elseIf answer = 7 Then InstallShortcutSendTo else MsgBox "Nothing done - exiting" end if End Sub Sub CopyToSendTo() Dim WSH 'As WshShell Dim strSendTo ''send to file path Dim FSO 'As FileSystemObject Dim oFile ''As File 'fp = wscript.Arguments.Item(0) fp = "C:\Users\ron.allen\Documents\CODING\VBS\TempMapFolderDrive\TempMapThisFolderToX.vbs" Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.GetFile(fp) Set WSH = CreateObject("WScript.Shell") strSendTo = WSH.SpecialFolders("SendTo") oFile.Copy strSendTo & "\" & oFile.Name, True...

Option Explicit Main Sub Main() Const TempDrive = "Z:" Dim fp ''file path of target folder Dim UNC_FP ''Expanded UNC FP Dim FSO ''As FileSystemObject Dim oFolderInfo ''As Folder Dim objNetwork ''As WSHNetwork Dim WSH ''UNKNOWN WSH EXEC Dim oDrive ''DRIVE ENUMERATOR Set WSH = CreateObject("Shell.Application") Set objNetwork = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") ''fp = "k:\Denver\Projects\2019\190566 5490 W. Center Ave. Lakewood\Record Sets" fp = wscript.Arguments.Item(0) Set oFolderInfo = FSO.GetFolder(fp) If oFolderInfo.Drive.DriveType = 2 Then MsgBox "Cannot map fixed drive " & oFolderInfo.Drive.DriveLetter, vbCritical, "Erro...

https://www.rib-software.com/en/home/ VIRTUAL INTO PHYSICAL: BIM BECOMES BIM 5D Building Information Modeling (BIM) generally stands for cost-efficient  design  and construction processes. But CAD-based BIM models are  designed  for planning and only support the handling of sub-processes. The worldwide construction industry is united in agreement that BIM should cover the entire process flow: A 5D approach bringing together, alongside 3D geometrical data, all the work specifications required for the execution of the construction, as well as costs and time/process components.  The Industry sees the future here:  BIM becomes BIM 5D. MORE SOLUTIONS SOLUTION  5D MODELLING SOLUTION  CAD BUILDING CONSTRUCTION SOLUTION  CAD CIVIL ENGINEERING MODEL INTEGRATION IN STRUCTURAL ENGINEERING Model integration in structural engineering is very flexible in iTWO 5D. Here both CPIXML and IFC formats are suppor...

Attribute VB_Name = "REVIT_EXPORT_Library" Option Explicit Const VBQT = """" Sub REVIT_Shared_Params_EXPORT() Dim ws As Worksheet Dim objTxtFile As TextStream ''As Integer Dim FilePath As String Dim strN As String Dim nRow As Integer Dim ncol As Integer Dim RowMax As Integer Dim ColMax As Integer Dim RColmax As Integer Dim strLine As String Dim strFmt As String Dim obj Dim CheckGroup As Range Dim GroupID_START As Integer Dim GroupID_END As Integer Dim FSO As FileSystemObject If MsgBox("This exports the ''PARAMS' worksheet, or ACTIVE worksheet in shared parameters format, in the same folder as the EXCEL file." & vbCr & vbCr & "Continue?", vbInformation + vbYesNo) <> vbYes Then MsgBox "Exititng", vbExclamation Exit Sub End If Set FSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set ws = ActiveWorkbook....

Learning Management System | AI Learning Platform | Best Cloud LMS

So load your parameters file into excel but the export needs to remove null tabs at the ends. Attribute VB_Name = "REVIT_EXPORT_PARAM_LIB" ''©2021 Ron E. Allen- Shared with KTGY2018-2019 - All rights reserved ''©2023 Ron E. Allen- Shared with WareMalcomb2019-2023 - All rights reserved Option Explicit Const VBQT = """" Sub REVIT_Shared_Params_EXPORT () Dim ws As Worksheet Dim objTxtFile As TextStream ''As Integer Dim filepath As String Dim strN As String Dim nRow As Integer Dim ncol As Integer Dim RowMax As Integer Dim ColMax As Integer Dim RColmax As Integer Dim strLine As String Dim strFmt As String Dim obj Dim CheckGroup As Range Dim GroupID_START As Integer Dim GroupID_END As Integer Dim FSO As FileSystemObject Dim objFile As File Dim curDate As Date Dim newDate As Date Dim boolParams As Boolean If MsgBox ( "This exports the...