Posts

Batch or CMD file naming for log files

::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

Cheap hack to find revit file version based on text in file

Exported from Notepad++AttributeVB_Name="REVIT_CHECK_FILE_VERSION"OptionExplicitConstVBQT=""""PrivateSubTEST_Revit_File_Version_From_File()''Function Revit_File_Version_From_File(FN As String) As String DimoDicAsDictionary''dictionary of elements SetoDic=CreateObject("Scripting.Dictionary")''Create the dictionary for scripting DimKey'2018 works' SetoDic=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") ForEachKeyInoDic.KeysDebug.PrintLeft(Key&String(80," "),80)&oDic.Item(Key)NextKeyEndSubFunctionRevit_File_Version_From_File(FNAsString)A…

Excel Shape Repalce with X and Shape Delete All

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

Install link or copy to SendTo folder VBS

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, Tru…

Temp map dropped folder to x VBS

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, "Err…

RIB QTO And Cost estiamting software integrating with BSD for model extractons

Image
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 supported. For Autodesk Revit, in addition, real-time integration is also available.

REvit Shared Params export wit more controls v2.0

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.Worksh…

Learning Management System | AI Learning Platform | Best Cloud LMS

Revit export shared parameters from Excel

So load your parameters file into excel but the export needs to remove null tabs at the ends.


Attribute VB_Name = "REVIT_EXPORT_Library" Option Explicit Const VBQT = """" Sub REVIT_EXPORT_CATALOG_1st_row_params() 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 strLine As String Dim strFmt As String If MsgBox("This exports the entire catalog from the 'EXPORT' tab using the first row as parameters. Continue?", vbInformation + vbYesNo) <> vbYes Then MsgBox "Exititng", vbExclamation Exit Sub End If Dim FSO As FileSystemObject Set FSO = CreateObject("Scripting.FileSystemObject") Set ws = ActiveWorkbook.Worksheets("EXPORT") ' RowMax = Cells.Find("*", [a1], xlFormulas, , xlByRows, xlPrevious).row ColMax = Cells.Find(&q…

Exporting revit family txt file to csv using excel

Excel VBA to export Excel to Revit family TXT file- note the 1st row export function for skipping 2nd row of (linked) data and pasting in Revit exported TXT library headers for parameters in family


Attribute VB_Name = "REVIT_EXPORT_Library" Option Explicit Const VBQT = """" Sub REVIT_EXPORT_CATALOG_1st_row_params() 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 strLine As String Dim strFmt As String If MsgBox("This exports the entire catalog from the 'EXPORT' tab using the first row as parameters. Continue?", vbInformation + vbYesNo) <> vbYes Then MsgBox "Exititng", vbExclamation Exit Sub End If Dim FSO As FileSystemObject Set FSO = CreateObject("Scripting.FileSystemObject") Set ws = ActiveWorkbook.Worksheets("EXPORT") ' Row…

Elon Musk's StarLink internet

Elon musk is brilliant... Like $50Billion a year while providing true global access to information brilliant! The 2,600 small satellite StarLink constellation being deployed 350 miles up will cross cross in the vacuum of space and use frickin lasers to communicate data around the globe. Because they are in a vacuum they transmit about 2.5x faster than fiber optic that is slowed by the glass that carries the signals... And the cross cross orbits and 3tierd 3 orbit level approach for later launches will provide near global access and coverage.. cheers mate, Mind BLOWN!https://lnkd.in/eTme9Zy

Revit CSV file manager for families and re-exporting to a CSV file

Process:
Export a Revit library file - maintains the same name as the family (This is critical)Create an EXCEL file same-name XLSM macro enabledCreate a Worksheet "EXPORT"Create other tabs to build data sheetsCreate a sheet and use DATA LINK to bring in the exported libraryCopy the important 1st row IDs for the Variable names and types over.All of them are not necessary - only the ones with dataLibrary export ONLY exports parameters that have data in them somewhereOrder doesn't matter.Paste the code below into a moduleRun it to export the "EXPORT" tabExcel saves-as the [excel filename.TXT]Excel saves as the [excel filename.XMSM]Refresh the data source for updatesSAVE OFTEN! Version 2.0- The Textfile in VBA has issues - keeps trying to write in Unicode and Kanji instead of basic ASCII.

Also Revit format for families is noting in cell 1,1 and all Line Feeds (Not CRLFS or CRs ) at the end of lines.


Attribute VB_Name = "REVIT_EXPORT_Library" Option Explicit…