topic Re: Copying value from one attribute and pasting value to a different attribute in Visual LISP, AutoLISP and General Customization Forum

Copying value from one attribute and pasting value to a different attribute

spartan_vng — Sat, 13 Feb 2021 17:49:11 GMT

Hi all,

I’m looking to create a lisp routine to be able move the value of one attribute to another. It is basically for a title block where we would like to sort the list of revisions to always have the newest listed first in the list versus us just overwriting the oldest revision. If I could get the basic lisp I may be able to tweak it to fit my needs.

thanks

Re: Copying value from one attribute and pasting value to a different attribute

pbejse — Sat, 13 Feb 2021 18:03:18 GMT

@spartan_vng wrote:

Hi all,

I’m looking to create a lisp routine to be able move the value of one attribute to another. It is basically for a title block where we would like to sort the list of revisions to always have the newest listed first in the list versus us just overwriting the oldest revision. If I could get the basic lisp I may be able to tweak it to fit my needs.

thanks

Bumping the values basically.

- Collect and store current values to a list

- Trim/Do you thingy

- Return the value

Go and find a lisp similar to your task in this forum. You'll find a bunch of it here.

Re: Copying value from one attribute and pasting value to a different attribute

Moshe-A — Sat, 13 Feb 2021 20:04:57 GMT

@spartan_vng ,

here is a lisp command that let you select a source block and a target block than copies all match attributes values

enjoy

Moshe

(defun c:cpyatt (/ ss0 ss1 AcDbBlkRef0 AcDbBlkRef1 AcDbAttrib0 AcDbAttrib1 attributes0 attributes1) (if (and (not (prompt "\nPick source block...")) (setq ss0 (ssget ":s:e+." '((0 . "insert") (66 . 1)))) (not (prompt "\nPick target block...")) (setq ss1 (ssget ":s:e+." '((0 . "insert") (66 . 1)))) ) (progn ; allocating memory (setq AcDbBlkRef0 (vlax-ename->vla-object (ssname ss0 0))) (setq AcDbBlkRef1 (vlax-ename->vla-object (ssname ss1 0))) (foreach AcDbAttrib1 (setq attributes1 (vlax-invoke AcDbBlkRef1 'GetAttributes)) ; allocating memory (if (vl-some '(lambda (obj) (if (eq (strcase (vla-get-tagString obj)) (strcase (vla-get-tagString AcDbAttrib1))) (setq AcDbAttrib0 obj) ) ); lambda (setq attributes0 (vlax-invoke AcDbBlkRef0 'GetAttributes)) ; allocating memory ); vl-some ; copy attribute value (vla-put-textstring AcDbAttrib1 (vla-get-textString AcDbAttrib0)) ); if ; dispose memory (foreach obj attributes0 (vlax-release-object obj) ) ); foreach ; dispose memory (foreach obj attributes1 (vlax-release-object obj) ) ; dispose memory (vlax-release-object AcDbBlkRef1) (vlax-release-object AcDbBlkRef0) ); progn ); if (princ "\nDone.") (princ) )

Re: Copying value from one attribute and pasting value to a different attribute

john.uhden — Sun, 14 Feb 2021 00:35:23 GMT

Where I work now we have a separate revision block, you know ... #, DATE, DESCRIPTION, BY that we just copy up so that the oldest is at the bottom. There's not enough effort involved to require any custom programming, and presumably no two descriptions are exactly the same, but you could copyclip the value of one into another if your typing is challenged.

Re: Copying value from one attribute and pasting value to a different attribute

Sea-Haven — Tue, 16 Feb 2021 03:49:02 GMT

This has been asked before and pretty sure it was solved. If title block has all revisions in one block, you can make a list in order then replace 1 further down leaving current as is to change, Will try to find.

Pbe solved another recently very much like this where it took text and put in title block a good starting point of multi filling a title block. Solved: LISP that will put multiple texts into a block - Autodesk Community - AutoCAD Pbe link did not work in post above ?