Wednesday, November 5, 2014

Someone please remind me to create a quick show-me with a Revit model and Unity Player.

I found some cool texture-baking tools that would allow lighting to be baked into a model, which means anyone could login over the web and connect to a model we have and walk through it… realistic materials, rendering, etc… with very limited capabilities.

This is a jumping-off point for augmented reality as well (the cool glasses you put on that overlay a virtual image in the real world… Imagine seeing a house on a lot, when the house hasn't even begun being built yet…)


RFOBenchmark

RFOBenchmark:



'via Blog this'

Thursday, October 23, 2014

Outlook - setting billing information

OK - this very basic routine sets billing information fields of all selected messages... 

If the BillInfo variable to a form that pulls the local user's project's lists and lookups up the senders project list and compares, shazam! you can start auto-tagging potential emails with project/billing information. 

_____________________________________________

Sub Set_ACTIVE_MESSAGES_BillingInformation()
    Dim objsel As Selection
    Dim i As Integer
    
    BillInfo = UCase(InputBox("", "Enter default billing INFO", "00000.000"))

    Set objsel = Outlook.ActiveExplorer.Selection
    
    On Error Resume Next
    
    For i = 1 To objsel.Count
        Set Object = objsel.Item(i)
        Select Case Object.Class
            Case olReport, olMail, olContact            ''these all behave the same way
                Object.BillingInformation = BillInfo
                Object.Save
            ''case ol other outlook items....
        End Select
   
        Set Object = Nothing
    Next i
   
End Sub

Thursday, October 16, 2014

Source code beautifier / syntax highlighter – convert code snippets to HTML « hilite.me

This is helpful for beautifying code : )

http://hilite.me/

DFSR Backlog Checker - via WMI (Thnx stichl.at) - added IE to make interface cleaner.

strComputer = "localhost"
bConnectForeign = False
'''http://stichl.at/2012/11/quick-dfsr-backlog-count-with-vbscript/
Dim objIE, objShell, k, strIETitle, blnFlag

' Set IE display box title. Dashes ("-") are to move the Microsoft title
' appended to the title we specify out of view.
' blnFlag is set to False when the user closes the IE display box.
strIETitle = "Backlog" & String(40, "-")
blnFlag = True

Set objShell = CreateObject("WScript.Shell")

dim StrMsg
call Main

sub Main()

' Initialize display box with initial message
InitIE "Program Initializing"

    Set oWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDFS")
    Set colRGroups = oWMIService.ExecQuery("SELECT * FROM DfsrReplicationGroupConfig")
    For Each oGroup in colRGroups
        AddMsg( "Replication Group: " & oGroup.ReplicationGroupName)
        Set colRGFolders = oWMIService.ExecQuery("SELECT * FROM DfsrReplicatedFolderConfig WHERE ReplicationGroupGUID='" & oGroup.ReplicationGroupGUID & "'")
        For Each oFolder in colRGFolders
            AddMsg( "  Folder: " & oFolder.ReplicatedFolderName)
            Set colRGConnections = oWMIService.ExecQuery("SELECT * FROM DfsrConnectionConfig WHERE ReplicationGroupGUID='" & oGroup.ReplicationGroupGUID & "'")
            For Each oConnection in colRGConnections
                If oConnection.Enabled = True Then
                    If oConnection.Inbound = True Then
                        if bConnectForeign then
                            numBackLog = getBackLogCount(oConnection.PartnerName, oConnection.ConnectionGUID)
                        else
                            numBackLog = getBackLogCount(strComputer, oConnection.ConnectionGUID)
                        end if
                        AddMsg( "    " & strComputer & " <-- span=""> & oConnection.PartnerName & " :: " & numBackLog   )                  
       Else                         
        numBackLog = getBackLogCount(strComputer, oConnection.ConnectionGUID)                         
        AddMsg( "    " & strComputer & " --> " & oConnection.PartnerName & " :: " & numBackLog)
                    End If
                End If
            Next
        Next
    Next
  MsgIE StrMsg
end Sub

Function getBackLogCount(strComputer, ConnectionGUID)
    Set oWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDFS")
    Set oDfsIUI = oWMIService.ExecQuery("SELECT * FROM DfsrIdUpdateInfo WHERE ConnectionGuid = '" & ConnectionGUID & "'")
    numBacklog=0
    for each eDfsIUI in oDfsIUI
        numBackLog=numBackLog+1
    next
    getBackLogCount = numBackLog
End Function

Sub AddMsg(Message)
 strMsg=Strmsg & Message & VBCR
end sub

Sub MsgIE(ByVal strMsg)
    ' Subroutine to display message in IE box and detect when the
    ' box is closed by the program or the user.
    On Error Resume Next
    If (strMsg = "IE_Quit") Then
        blnFlag = False
        objIE.Quit
    Else
        objIE.Document.Body.InnerText = strMsg
        If (Err.Number <> 0) Then
            Err.Clear
            blnFlag = False
            Exit Sub
        End If
        objShell.AppActivate strIETitle
    End If
End Sub

Sub InitIE(ByVal strMsg)
    ' Subroutine to initialize the IE display box.
    Dim intWidth, intHeight, intWidthW, intHeightW
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.ToolBar = False
    objIE.StatusBar = False
    objIE.Resizable = False
    objIE.Navigate("about:blank")
    Do Until objIE.readyState = 4
        Wscript.Sleep 100
    Loop
    'intWidth = 400 ''objIE.document.ParentWindow.Screen.AvailWidth
    'intHeight = 600 ''objIE.document.ParentWindow.Screen.AvailHeight
    'intWidthW = objIE.document.ParentWindow.Screen.AvailWidth * .40
    'intHeightW = objIE.document.ParentWindow.Screen.AvailHeight * .05
    objIE.document.ParentWindow.resizeto 400, 600
    objIE.document.ParentWindow.moveto (intWidth - intWidthW)/2, (intHeight - intHeightW)/2
    objIE.document.Write " " & strMsg & " 
" 'objIE.document.ParentWindow.document.body.style.backgroundcolor = "LightBlue" 'objIE.document.ParentWindow.document.body.scroll="no" 'objIE.document.ParentWindow.document.body.style.Font = "10pt 'Courier New'" 'objIE.document.ParentWindow.document.body.style.borderStyle = "outset" 'objIE.document.ParentWindow.document.body.style.borderWidth = "4px" objIE.document.Title = strIETitle objIE.Visible = True Wscript.Sleep 100 objShell.AppActivate strIETitle End Sub

Monday, October 6, 2014

Nemetschek Acquires Bluebeam Software - D'ough Autodesk!



Firms Combine Their Efforts to Make Project Collaboration Accessible to Everyone






Nemetschek owns Archicad and all plan... Wishful thinking auto desk would but BlueBeam from Nemetschek .. I hope they will continue to provide the same great non-platform specific support they always have - only time will tell.

Bluebeam's award-winning PDF solutions are used by the world’s top architectural, engineering and construction firms, oil and gas companies, manufacturers, government agencies and municipalities to reduce paper usage by more than 85% and to increase productivity by over 60%.
http://www.nemetschek.com/en/home.html

Nemetschek AG: Home
Nemetschek AG includes detailed information about the company: company history, Investor Relations, press material, corporate brands, business units and much more."



'via Blog this'

Tuesday, September 9, 2014

Ding dong the DWF is dead... and playing DWF is likely going to lead to some fire drills when we begin to see issues... Bluebeam Anyone?!!

Is Design Review discontinued? - Page 4 - Autodesk Community: "Re: Is Design Review discontinued?
Options
09-19-2013 05:25 AM in reply to: O.Maille
Thank you for the question. I am not here to delude anyone. If you want an electronic review process, given the current state of Autodesk 360, Autodesk Design Review is still the way to go. But the original question was is Design Review being discontinued, and the answer is yes, it will eventually be replaced by Autodesk 360. Until that time, the 2013 version is available for download from the Autodesk site and works with the 2014 product line since the DWF format did not change.


Scott Sheppard
Program Manager
Autodesk Labs
Autodesk, Inc."



'via Blog this'



So the long answer backed up on multiple sites now from a conversation with a co-worker:















...what is bloating the PDF?  (Hint it is the DWF to PDF translation)


From Autodesk's lack of action over the past few years and now they are
abandoning 
further development of DESIGN REVIEW for the desktop in favor of
the cloud. DWF to us is dead. DWF itself I suspect will disappear.




from:


http://labs.blogs.com/its_alive_in_the_lab/2014/02/vpipg-cto-brian-mathews-was-on-our-team-when-he-invented-the-dwf-format-our-first-foray-into-sharing-design-data-via-the.html 

·       
ADDITION 2: Although private cloud support is a ways off, we
do have (Autodesk Remote) today. You can host our applications on your
own servers today and access them via your local area network — no internet
connectivity required.
Collaboration
is alive in the lab. - Scott sheppard
And...



·       
http://forums.autodesk.com/t5/Design-Review/Is-Design-Review-discontinued/m-p/4419091 
Options
09-11-2013 01:08 PM in reply to: jeffreybm
Autodesk
Design Review 2013 will continue to be available for download from our
website, but 
Autodesk is focusing on delivering enhanced cloud and mobile
workflows
(emphasis RA/mine) that integrate with desktop collaboration.
  Enhancements to the desktop viewing experience will most likely come
from that work, and not a desktop-only solution like Design Review. The DWF
file format did not change as part of the 2014 releases, so Autodesk Design
Review 2013 works perfectly with the 2014 product line.




Scott Sheppard

Program Manager

Autodesk Labs

Autodesk, Inc.
 






The second site on AD Forums:






Re: Is Design Review discontinued?Re: Is Design Review discontinued?
09-11-2013 01:08 PM in reply to: jeffreybm
Autodesk Design Review 2013 will continue to
be available for download from our website, but Autodesk is focusing on
delivering enhanced cloud and mobile workflows that integrate with desktop
collaboration.  Enhancements to the desktop viewing experience will most
likely come from that work, and not a desktop-only solution like Design
Review. The DWF file format did not change as part of the 2014 releases, so
Autodesk Design Review 2013 works perfectly with the 2014 product line.




Scott Sheppard

Program Manager

Autodesk Labs

Autodesk, Inc.

 We are in 2015 - and about every 3 years the autodesk file format changes- so AutoDESK 2016 I suspect we will see DWG 2016 format file save option...(emphasis RA/mine) 






Then on page 4:






Re: Is Design Review discontinued?Re: Is Design Review discontinued?
09-19-2013 05:25 AM in reply to: O.Maille
Thank you for the question. I am not here to
delude anyone. If you want an electronic review process, given the current
state of Autodesk 360, Autodesk Design Review is still the way to go. But the
original question was is Design Review being discontinued, and the answer is
yes, it will eventually be replaced by Autodesk 360. Until that time, the
2013 version is available for download from the Autodesk site and works with
the 2014 product line since the DWF format did not change. 




Scott Sheppard

Program Manager

Autodesk Labs

Autodesk, Inc.






 If you want an electronic review process,
given the current state of Autodesk 360, Autodesk Design Review is still the
way to go. But the original question was is Design Review being discontinued,
and the answer is yes, it will eventually be replaced by Autodesk 360. Until
that time, the 2013 version is available for download from the Autodesk site
and works with the 2014 product line since the DWF format did not
change. 






So ADR desktop is dead... unless you want to do everything in
AutoDESK's cloud. This is controverts the objective for server to be able to
a stand-alone.






Autodesk no longer supports it... so the next file version
change that comes out expect issues. We've been on 2013 and are still on file
format version 2013 in AutoCAD 2015... but about every 3 ACAD versions the
file format updates.






: )