LM:quickfield copy attributes of blocks

[ghost tester]

How do I copy attribute values from one block to the other, using the LM: quickfield function?

with text this works:

(defun c:tcopy ( ) (LM:quickfield "TextString" "" 1))

how to do with blocks attributes ???
 

QuickFieldV1-3.lsp example.dwg

[Lee Mac]

Try changing line 273 from:

              (list 'if '(setq ent (LM:quickfield:selectifhasprop prop entsel))

To:

              (list 'if '(setq ent (LM:quickfield:selectifhasprop prop nentsel))