topic Re: Copy Attribute to clipboard in Visual LISP, AutoLISP and General Customization Forum

Copy Attribute to clipboard

jason.lEZRWT — Wed, 27 Jul 2022 18:10:11 GMT

Hi All. First time poster.

I'm looking for something I feel should be pretty easy, but just not finding it. I need to get an Attribute value from one block and paste it into multiple different blocks (different TAG).

Currently routine is:

- Double Click Source Attribute

- Ctrl C

- Mouse over to Enhanced Att Editor

- Click OK to close

- Select all destination Blocks

- Find appropriate Att in the Propeties

- Ctrl V

At the very least I'd like to be able to:

- Select tool (or type command),

- Click on any visible Attribute and have its value copied to the clipboard

- Select all destination Blocks

- Find appropriate Att in the Propeties

- Ctrl V

I'm mostly just trying to eliminate the whole Enhanced Att Editor part, but if anyone has any better suggestions, I'm all ears. I have to do this a lot and any eliminated clicks, keys, or mice are helpful.

It would be super awesome to eliminate the Ctrl V at the end but I'm sure that would kick up the complexity a bit.

Re: Copy Attribute to clipboard

pbejse — Wed, 27 Jul 2022 18:34:36 GMT

@jason.lEZRWT wrote:

It would be super awesome to eliminate the Ctrl V at the end but I'm sure that would kick up the complexity a bit.

If the target blocks are on the same drawing, there would be no need to Ctrl C and Ctrl V at all. It couldn't be that hard to write a code that is suited to your requirements. But what do you think is missing here? If we could only see a sample drawing.... 🤔

A simple code could be like this

(defun c:tf (/ astc) (vl-load-com) (setq astc (vla-get-textstring (vlax-ename->vla-object (car (nentsel "\nSelect Text: ")))) ) (while (setq trgt (vlax-ename->vla-object (car (nentsel "\nText to change: ")))) (vlax-put-property trgt 'TEXTSTRING astc) ) )

HTH

Re: Copy Attribute to clipboard

Kent1Cooper — Wed, 27 Jul 2022 19:00:20 GMT

It doesn't eliminate the Ctrl+V part, but at least you can skip the Attribute-editor middle-man, this way:

(cdr (assoc 1 (entget (car (nentsel "\nSelect Attribute to get value from: ")))))

That will put the contents in the command line, whence you can Ctrl+C copy it for pasting in at the Properties palette. I'm sure there's a way to feed it to the clipboard for you instead of [or in addition to] the command line [so you don't need to do the Ctrl+C part] -- I'll let you Search for that.

EDIT: For brevity, at least, >this< looks promising as a way to do that.

Re: Copy Attribute to clipboard

jason.lEZRWT — Wed, 27 Jul 2022 18:56:00 GMT

Thank you so much for getting back. Here's the details and a sample drawing.

I'm working on Wiring Schematics. The wires need to be associated with the Source and Destination connectors. The connectors have attribute Ref_Des (shown in green). The wires have attributes SOURCE_REFDES and DEST_REFDES. The connector attribute needs to be copied to the wires SOURCE_REFDES or DEST_REFDES respectively.

As noted below, I'm currently copying the connector REF_DES via Enhanced Att Editor, selecting all applicable wires, and pasting the value via the properties window.

Re: Copy Attribute to clipboard

jason.lEZRWT — Wed, 27 Jul 2022 19:20:28 GMT

Current Routine. Didn't note before that there's some ESCs in there too.

Re: Copy Attribute to clipboard

ВeekeeCZ — Wed, 27 Jul 2022 20:05:05 GMT

Select the wires first, then pick a source and desc. Or just one of them, and RT click for the other....

(vl-load-com)

(defun c:WC ( / w s d i e)

  (princ "Select wires, ")
  (setq w (ssget '((0 . "INSERT"))))
  (and (setq s (car (nentsel "\nSource: ")))
       (setq s (cdr (assoc 1 (entget s)))))
  (and (setq d (car (nentsel "\nDestination: ")))
       (setq d (cdr (assoc 1 (entget d)))))

  (if (and w (or s d))
    (repeat (setq i (sslength w))
      (setq e (ssname w (setq i (1- i))))
      (and s (vl-catch-all-apply 'setpropertyvalue (list e "SOURCE_REFDES" s)))
      (and d (vl-catch-all-apply 'setpropertyvalue (list e "DEST_REFDES" d)))))
  (princ)
  )

Re: Copy Attribute to clipboard

jason.lEZRWT — Wed, 27 Jul 2022 20:02:45 GMT

Holy Smokes! That's absolutely perfect! Thank you so much!

Re: Copy Attribute to clipboard

ВeekeeCZ — Wed, 27 Jul 2022 20:14:39 GMT

FYI about your original workflow.

Hold CTRL when double-clicking on att to get contextual att editor... a bit faster.

Re: Copy Attribute to clipboard

jason.lEZRWT — Wed, 27 Jul 2022 20:44:08 GMT

Just learned that trick this morning. It's a good tip. I need to get in the habit of that one. Just incorporated you program. Works like a charm! Saves a ton of time.

Re: Copy Attribute to clipboard

Sea-Haven — Thu, 28 Jul 2022 03:40:18 GMT

Why not do this as 1 line no need for "and", the description could be more like this.

(setq s (cdr (assoc 1 (entget (car (nentsel "\nPick Source Attribute: "))))))

Re: Copy Attribute to clipboard

ВeekeeCZ — Thu, 28 Jul 2022 07:13:51 GMT

@Sea-Haven wrote:

Why not do this as 1 line no need for "and", the description could be more like this.

(setq s (cdr (assoc 1 (entget (car (nentsel "\nPick Source Attribute: "))))))

The AND prevents the ENTGET from failing when nothing was selected.

Yes, could be more descriptive but why?! It's a very specific tool for this job only.

Re: Copy Attribute to clipboard

Sea-Haven — Fri, 29 Jul 2022 04:31:53 GMT

I try to always be descriptive for picks after all the next time it gets ran could be months away and user forgot what to do. Also doing paid work I never know who is going to be using it, including the new kid that started yesterday. I had 8 staff and would occasionally get "how do I run it again"

Any one also reading code can follow the sequence pretty easy.

Re: Copy Attribute to clipboard

andkal — Sat, 30 Jul 2022 19:35:28 GMT

Maybe you will also find useful the routine I found >here<. It copies the text content between pointed objects.