Posts

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…

CVBA Code for stripping format codes from MTEXT to regular MTEXT

''https://forums.autodesk.com/t5/visual-basic-customization/mtext-format-codes/m-p/8725449#M102647
AttributeVB_Name="ACAD_TEXT"''AutoCAD VBA 2010 ''Routine to strip formatting in ALL Autocad MTEXT (Translating Revit ''"text" to autocad drawings dumps as MTEXT with some odd formatting ''issues) try this: OptionExplicitSubMake_Mtext_StyleDependant()DimoAcadObjAsAcadObjectDimObjBlockAsAcadBlockDimObjBlocksAsAcadBlockReferenceDimObjTxtAsAcadMTextDimObjAcadAsAcadObjectDimxDimreAsNewRegExpSetre=CreateObject("VBScript.RegExp")ForEachObjBlockInThisDrawing.BlocksIfInStr(1,LCase(ObjBlock.Name),"seal")<1Then''don't mess with the seals! ForEachObjAcadInObjBlockIfInStr(1,LCase(ObjAcad.ObjectName),"mtext")>0ThenSetObjTxt=ObjAcadx=UnformatMtext(ObjTxt.TextString)ObjTxt.TextString=xEndIfNextObjAcadEndIfNextObjBlockEndSubFunctionReReplace(strAsString,patAsString,replAsString)AsStringDimreAsNewReg…

Gather message addresses in VBA for MS Outlook

AttributeVB_Name="GatherMessageAddrs"OptionExplicit'--------------------------------------- '2014-02-06-added support for missed conversations PublicConstVERSION="2018.05.10.01.58"'======================================= ConstVBQT=""""PrivateDebugTimeAsDatePublicStartTimeAsDate'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''--REFERENCE CODE TO CALL FROM OUTLOOK MACROS---------------------------------------…
Image
For finding the Public Tokens for Python or other code that requires inclusion of assemblies- thread on finding those and an more basic excel python connector from my version in previous and later posts- is included here  for reference.



Refer to the C:\Windows\assembly folder- the public token Key is listed there!

---
https://forum.dynamobim.com/t/read-excel-file-node-opens-excel-file/7813

Hello All,
Whenever I try to run the “Read.Excel” node in dynamo it opens the excel file along with it. Is there a way to stop opening the excel file?

 Solved by Atkins14 in post #6
i have put together a bit of python code which closes the active workbook, you should be able to copy and paste the below code in. It uses an if statement as a trigger. Its a bit messy as you need to use this everytime a spreadsheet is opened. Ideally, would want this to run right at the end and clo…