Assign Double Click action to dimensions

[cadkiller]

Group;

I recently added a double click action for my dimensions. I now can double click my dimensions and the edit text command is enabled.

1-Go to CUI double click actions and add a new one.
2-Put dimension in the general name and advanced object name.
3-Then drag the edit text command from the lower left hand corner to the new double click action.

[Ed Jobe]

I have a vba solution if anyone doesn't have cui (pre 2006).

[cadkiller]

I would like to see it even though I already set mine up.
I have a friend that is on 2004 that would be interested in your VBA solution.

[Ed Jobe]

Add this to a class that is initialized "With Events". Load the class at startup. Set its Doc property to ThisDrawing.

Public WithEvents Doc As AcadDocument

Private Sub Doc_BeginDoubleClick(ByVal PickPoint As Variant)
    'If item being clicked on is a dimention,
    'then open the Mtext editor instead of the properties dialog.
    Dim s1 As AcadSelectionSet
    Dim oEnt As AcadEntity
    
    Set s1 = ThisDrawing.PickfirstSelectionSet
    If s1.Count > 0 Then
        For Each oEnt In s1
            Select Case oEnt.ObjectName
                Case Is = "AcDbAlignedDimension"
                    ThisDrawing.SendCommand "ddedit "
                Case Is = "AcDb2LineAngularDimension"
                    ThisDrawing.SendCommand "ddedit "
                Case Is = "AcDb3PointAngularDimension"
                    ThisDrawing.SendCommand "ddedit "
                Case Is = "AcDbDiametricDimension"
                    ThisDrawing.SendCommand "ddedit "
                Case Is = "AcDbOrdinateDimension"
                    ThisDrawing.SendCommand "ddedit "
                Case Is = "AcDbRadialDimension"
                    ThisDrawing.SendCommand "ddedit "
                Case Is = "AcDbRotatedDimension"
                    ThisDrawing.SendCommand "ddedit "
            End Select
        Next oEnt
    Else
    
    End If
End Sub

[jim.dozorec]

Hi, All

Maybe I'm a little daft, but I can't find out what CUI means. Can someone enlighten me?

Thanks, Jim

[cadkiller]

Customize User Interface

Type CUI at the command prompt and see if your version has one.

[Rico]

Group;

I recently added a double click action for my dimensions. I now can double click my dimensions and the edit text command is enabled.

1-Go to CUI double click actions and add a new one.
2-Put dimension in the general name and advanced object name.
3-Then drag the edit text command from the lower left hand corner to the new double click action.

From my understanding of CUI, it's only possible to do this if you are using 2007 ....

Is there a similar solution if you are using 2006?

[Rico]

Ummmmmmm. update to 2007!!!

Well ... I DO have 2007. I just wanted to know if there was a 2006 workaround ....

[Ed Jobe]

Well ... I DO have 2007. I just wanted to know if there was a 2006 workaround ....

Not through the CUI or menus, but vba. See my post on the first page of this thread.

[Rico]

Not through the CUI or menus, but vba. See my post on the first page of this thread.

vba is foreign language to me .... never used it before .... not consciously anyway ....

I'll add it to my 2007 customizations, though. Good tip!