Copy field to clipboard

[msarqui]

Hi guys,

I am trying to adapt  gpcattaneo code but I am having no lucky.

I am trying to copy the field within a Text to the clipboard, to paste it latter in another text without losing the data.

(defun c:CopyFieldToClipboard ()
(vlax-invoke
(vlax-get (vlax-get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipBoardData)
'setData
"TEXT"
;(getvar 'dwgname);this was the original code
(entsel "\nSelect Text with Field: ");this is what I tried
)
);defun

 ; error: unsupported argument type: <Entity name: 7f69d7bf720>

Thanks for any help!

[gpcattaneo · Accepted solution]

Try this:

(cdr (assoc 1 (entget (car (entsel "\nSelect Text with Field:")))))

[msarqui]

Hi gpcattaneo 

Thanks for the answer!

It works but this made me reconsider... could be a way to keep the field (not just its value) when I paste it in the second text?

Like if I use DDEDIT to open the text editor, Ctrl+c to copy the field and then paste it. Like that, the link will be still there.

[msarqui]

Nevermind... I  found a way.

Thanks!

[gpcattaneo · Accepted solution]

---

@msarqui wrote:

...I  found a way.

---

This?

(vla-fieldcode (vlax-ename->vla-object (car (entsel))))

  

[msarqui]

Exactly! Thanks for your help. 🙂