Posts

Excel keynoting editor:

This is a super basic keynote editor in Excel.https://drive.google.com/file/d/0B3kxZYz7z9XSNWVnVDQ1S0FZSUk/view?usp=sharing
Unlimited Open license provided with no guarantees made, use at your own risk and provided:Post back suggestions, adaptations, comments and changes here with attributions to Ron.Allen Apsis0215 at gmail dot com so we can learn together and make it better!
The macros are exposed : ) and it is the base revit keynotes file with headers for a lot of disciplines user notes.The column on the right must be a value from a column on the left for nesting.Insert or delete entire rows at will.The button generates 3 files in the same folder. Watch for prompts to overwrite and resave.
The Text file which Revit uses.An XLS file (Without MAcros) for end users to copy locally to assist in looking up and filtering results in RevitAnd finally it Saves itself  back to the XLSM file you are editing- overwriting the file.


Outlook VBA add reminder to message code

AttributeVB_Name="Reminders"OptionExplicitConstolTaskDateNone="4501-01-01"PublicSubAddReminder(objMsgAsObject,OptionaldateTimeAsDate,OptionalTaskDueInDaysAsDouble)' Dim objMsg As Object ' GetCurrent Item function is athttp://slipstick.me/e8mio'Set objMsg = GetCurrentItem() IfIsMissing(dateTime)ThendateTime=Int(Now)+16/24WithobjMsg' due this week flag .MarkAsTaskolMarkThisWeek''.TaskStartDate = olTaskDateNone .TaskDueDate=olTaskDateNone' sets a specific due date IfTaskDueInDays>0Then.TaskDueInDays=Now+TaskDueInDays.TaskDueDate=TaskDueInDays+Int(Now).FlagRequest="REMINDER FOR: "&objMsg.SenderNameEndIf.ReminderSet=True.ReminderTime=dateTime.SaveEndWithSetobjMsg=NothingEndSubPublicSubREM_NEXT_1200p(itemAsOutlook.MailItem)DimremindAsDateDimleadAsDatelead=Round(Now*24+1)/24''1 hour min lead time remind=Int(Now)+12/24Ifremind<leadThenremind=remind+1''push to next day AddReminderitem,remindEndSubPublicSubREM_N…

Event Registration

Event Recording: "Building World-Class Cloud Solutions"



'via Blog this'

Set Assembly Code file - Dynamo

Set Assembly Code file - Dynamo:

# Default importsimportclrclr.AddReference("RevitAPI")clr.AddReference("RevitNodes")fromAutodesk.Revit.DBimport*#################################importRevit#################################clr.ImportExtensions(Revit.GeometryConversion)#################################clr.ImportExtensions(Revit.Elements)################################## Import DocumentManager and TransactionManager##################################clr.AddReference('RevitServices')#################################importRevitServices#################################fromRevitServices.PersistenceimportDocumentManager#########################fromRevitServices.TransactionsimportTransactionManager#####################doc=DocumentManager.Instance.CurrentDBDocument#############################elements=IN[0]##Elements in the model ##EXPECTS STRINGS FROM EXCEL TO STARTheaders=IN[1]##Headers for referencedata=IN[2]##Data###Initializeout=[]outMain=[]outSub=[]found=0##Fin…

Python Script node for Notepad.exe. Possible? - Developers - Dynamo

Python Script node for Notepad.exe. Possible? - Developers - Dynamo:




importclrclr.AddReference("RevitAPIUI")fromAutodesk.Revit.UIimportTaskDialog##Import task dialog##from datetime import datetime ##Formatting date time strings for filesimporttime##Time as in NOW or tiem string format functionsimportsys##Validate thie is here and avaiable#########sys.path.append(r'C:\Program Files (x86)\IronPython 2.7\Lib')importsubprocess##Launching asynchronus processess like notepadimportos##Operating system - CASE SENSITIVEmsg=IN[0]##DAta in 0##msgbox=TaskDialog ##Task Dialogastr=""##STR for formattingforiinmsg:##BIG MESSAGE LISTsstr=""##SUB STRINGforjini:forkinj:sstr=sstr+str(k)+"\t"##ADD TAB SEPARATORSsstr=sstr+"\n"##ADD CARRIAGE RETURN to substringastr=astr+sstr+"\n"##ADD substring to main and spacer carriage return##Set file name using date-time in C:\TEMP####fn="C:\\temp\\DynamoError-&…

TOF Cameras

So I have been thinking for a while- if I had a motion picture or multiple pictures and a special light and a special FILM or CMOS to capture that light- I could measure the reflection of the special light to get an approximation of depth.



Thinking about LIDAR and  fixed sensors - I realized this could be taken a step further- capturing the TOF (Time of flight) of light at different intervals using a MOSFET or similar super-fast action capture device.



Apparently there are similar items on the web called TOF Cameras...



https://www.baslerweb.com/en/support/



Support | Basler:



'via Blog this'

RSMEANS Python REGEXP extractions

Attribute VB_Name ="RSUnits" OptionExplicit ''Constants for reference of unit types in RSMEANS '' Floor, concrete, slab form, open web bar joist @ 2' OC, on W beam and wall, 30'x30' bay, 29" deep, 65 PSF superimposed load, 110 PSF total load, for columns add PublicConst VBQT =""""
''these use named regexp returns based in python ''Public Const Regex_BAY+PYTHON = "(?:(?P\d{1,})((?P\'|\" & VBQT & "|ft|in))\W{0,}x\W{0,}(?P\d{1,})(?P\'|\" & VBQT & "|ft|in)\W{0,}bay)" PublicConst Regex_BAY ="(?:([\d\.]{1,})((\'|\"& VBQT &"|ft|in))\W{0,}x\W{0,}(\d{1,})(\'|\"& VBQT &"|ft|in)\W{0,}bay)" PublicConst Regex_Addon ="(?:for\W{0,}(?P\b.+\b)\W{0,}add)\W{0,}" ''Public Const Regex_SPACE+python = "(?:.+,(?P.+?)(\@\W{0,}(?P\d{1,})((?P\'|\" & VBQT & "|ft|in)\W{0,}oc)))" PublicConst…