Attribute Extraction Program?

[Dadgad]

I heartily concur with your assessment.

 

Yes I am an acoustic finger style player 50 years and counting.

Although I am tempted to say not really, having just discovered Tony McManus on Youtube.

I am also inspired by Franco Morone, Craig D'Andrea.

Back in the early 60's just starting out was moved and influenced by Bert Jansch and John Renbourn.

You too I guess, if you recognize dadgad.

Look at the awesome Greenfield guitar Tony is playing with the fanned frets

in this video

[Britman]

Yes, amazing!!!! First time I have seen a fanned fret guitar. I guess they are also tuned to DADGAD? With having fanned frets, is it easier or harder to play? I have to admit I have only ever played using EADGBE. Always thought it would be harder to work out the chords using DADGAD?

[Britman]

P.S. I started playing in 1964, but after getting married in 1968 I didn't play again for 40 years: my first wife *****ed and moaned every time I picked up the guitar. I recently remarried, so I am trying to pick up again where I left off.

[Dadgad]

Yes, amazing!!!! First time I have seen a fanned fret guitar. I guess they are also tuned to DADGAD? With having fanned frets, is it easier or harder to play? I have to admit I have only ever played using EADGBE. Always thought it would be harder to work out the chords using DADGAD?

 

If you look closely you will notice that the bridge and saddle are wildly canted too, which allows for a very long bass side scale length, and each string has a unique scale length.

The longer string length is well suited to producing deeper bass notes, and over all great tonal balance. I've never played one, but I used to manage a guitar shop in Los Angeles

where we built guitars, and it really intrigues me.

Dadgad is very intuitive for melodic play, it seems to have a mind of its own, and guides one to new and interesting harmonic locales.

Don't stress about playing chord shapes right out of the gate, just go with the flow.

Good luck getting on with your life, loves and passions.

Edited June 21, 2012 by Dadgad

[Britman]

I have an old Spanish guitar somewhere. I think I'll break that out and try the DADGAD tuning? Should be interesting. I note a lot of British/Irish style folk music uses that tuning. I just love that kind of music, including Bert Jansch's and John Renbourn's amongst others.

[Voaraghamanthar]

Here's some VBA to do a similar thing. Just delete the lines with the info that's not required.

 

Sub Blocks(row, col)
   Dim BlocksSelSet As AcadSelectionSet
   Dim blockref As AcadBlockReference
   Dim AttRef As Variant
   Dim I As Integer
   Dim gpCode(0) As Integer
   Dim dataValue(0) As Variant
   Dim groupCode As Variant, dataCode As Variant
   Dim NumOfBlocks As Integer
   Dim mode
   Dim AttMode As Long
   Dim constant As String
   Dim currentmode As Integer
   Dim attrobject As AcadAttribute
   
   On Error Resume Next
   
   Set BlocksSelSet = ThisDrawing.SelectionSets.Add("All_Blocks")
'define type of selection set (crossing, window, etc, in this case, all)
   
   mode = acSelectionSetAll
'this is a selection set filter
   
   gpCode(0) = 0
   dataValue(0) = "Insert"

   
   groupCode = gpCode
   dataCode = dataValue
   'this collects all blocks into the seletion set
   BlocksSelSet.Select mode, , , groupCode, dataCode
  
   NumOfBlocks = BlocksSelSet.Count
   For x = 1 To NumOfBlocks
       Set blockref = BlocksSelSet(x)
       excelsheet.Cells(row, col).Value = blockref.Name
       excelsheet.Cells(row, col + 1).Value = blockref.layer
       excelsheet.Cells(row, col + 2).Value = Format(blockref.insertionPoint(0), "##,##0.00") & "," & Format(blockref.insertionPoint(1), "##,##0.00")
       row = row + 1
       AttRef = blockref.GetAttributes
       
           For I = LBound(AttRef) To UBound(AttRef)
           Set attrobject = AttRef(I)
               ' Do something with the attribute refs here.
               excelsheet.Cells(row, col).Value = AttRef(I).TagString
               excelsheet.Cells(row, col + 1).Value = AttRef(I).layer
               excelsheet.Cells(row, col + 3).Value = AttRef(I).TextString
               
               constant = Choose(attrobject.mode, "acAttributeModeInvisible", "acAttributeModeConstant", "", "acAttributeModeVerify", "", "", "", "acAttributeModePreset")
               
               
               row = row + 1
           Next
       
       
       
   Next
   row = row + 1
 'clean up
   BlocksSelSet.Clear
   BlocksSelSet.Delete
   rownum = row
End Sub

Dave

 

Ako,

I know this is an old thread, but that is a really useful tool you posted. Any idea why ' Set attrobject = AttRef(I) would throw an error code?