Author Topic: I need a lisp that changes the first character of attributes (Read 7349 times)

antistar · « **on:** July 03, 2012, 08:45:44 AM »

I have many blocks of attributes with values as: F521, G622, D773...
I need a lisp that changes the first character of these attributes to the same value: A521, A622, A773...

Does anyone have a routine that does this?

Thanks in advance.

Lee Mac · « **Reply #1 on:** July 03, 2012, 09:07:44 AM »

Use the substr function to remove the first character, then the strcat function to add an 'A' to the front.

i.e.

Code - Auto/Visual Lisp: [Select]

(strcat "A" (substr <attribute value> 2))

Tharwat · « **Reply #2 on:** July 03, 2012, 09:13:09 AM »

This .... ?

Code - Auto/Visual Lisp: [Select]

(defun c:Test (/ s)
  (if (setq s (ssget "_:L" '((0 . "ATTDEF"))))
    ((lambda (i / n)
       (while (setq n (ssname s (setq i (1+ i))))
         (entmod
           (subst
             (cons 2
                   (strcat "A"
                           (substr (cdr (assoc 2 (entget n)))
                                   2
                                   (strlen (cdr (assoc 2 (entget n))))
                           )
                   )
             )
             (assoc 2 (entget n))
             (entget n)
           )
         )
       )
     )
      -1
    )
    (princ)
  )
  (princ)
)
 
 

antistar · « **Reply #3 on:** July 03, 2012, 09:27:59 AM »

Quote from: Tharwat on July 03, 2012, 09:13:09 AM

This .... ?
Code - Auto/Visual Lisp: [Select]
(defun c:Test (/ s)
(if (setq s (ssget "_:L" '((0 . "ATTDEF"))))
((lambda (i / n)
(while (setq n (ssname s (setq i (1+ i))))
(entmod
(subst
(cons 2
(strcat "A"
(substr (cdr (assoc 2 (entget n)))
2
(strlen (cdr (assoc 2 (entget n))))
)
)
)
(assoc 2 (entget n))
(entget n)
)
)
)
)
-1
)
(princ)
)
(princ)
)

Tharwat, thanks for your reply.
I need to select the blocks.
It would be like this?

...(setq s (ssget "_: L" '((0. "INSERT") (66. 1))))

Lee Mac · « **Reply #4 on:** July 03, 2012, 09:30:40 AM »

Quote from: antistar on July 03, 2012, 09:27:59 AM

It would be like this?

...(setq s (ssget "_: L" '((0. "INSERT") (66. 1))))

Select the blocks (ssget with filter list)

Iterate over the Selection Set (repeat / while, ssname)

For each block entity in the set, iterate over the attributes (entnext)

Retrieve the attribute values (cdr, assoc DXF group code 1)

Modify the value (as demonstrated above, substr, strcat)

Update the value (subst, entmod, entupd)

dong95 · « **Reply #5 on:** July 03, 2012, 11:01:15 AM »

Very clear instruction, Lee.
I learned a lot. Thanks.

CAB · « **Reply #6 on:** July 03, 2012, 11:30:23 AM »

Is there more than one attribute in the inserts?
If so how will that attribute be identified?

Lee Mac · « **Reply #7 on:** July 03, 2012, 11:54:47 AM »

Quote from: dong95 on July 03, 2012, 11:01:15 AM

Very clear instruction, Lee.
I learned a lot. Thanks.

I'm glad my post was beneficial to your learning dong95

Tharwat · « **Reply #8 on:** July 03, 2012, 12:48:49 PM »

Code - Auto/Visual Lisp: [Select]

(defun c:Test (/ selectionset integer selectionsetname v)
  (vl-load-com)
  ;;; Tharwat 03. July. 2012 ;;;
  (if (not acdoc)
        (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  )
  (if (setq selectionset (ssget "_:L" '((0 . "INSERT") (66 . 1))))
    (progn
      (vla-StartUndoMark acdoc)
      (repeat (setq integer (sslength selectionset))
        (setq selectionsetname  (ssname selectionset (setq integer (1- integer)) ) )
        (foreach x (vlax-invoke
                     (vlax-ename->vla-object selectionsetname)  'GetAttributes )
                          (vla-put-textstring x 
                                   (strcat "A" (substr (setq v (vla-get-textstring x)) 2 (strlen v)) )) )
                  )
      (vla-EndUndoMark acdoc)
    )
    (princ)
  )
  (princ)
)

antistar · « **Reply #9 on:** July 03, 2012, 01:06:33 PM »

Quote from: Tharwat on July 03, 2012, 12:48:49 PM

Code - Auto/Visual Lisp: [Select]
(defun c:Test (/ selectionset integer selectionsetname v)
(vl-load-com)
;;; Tharwat 03. July. 2012 ;;;
(cond (not acdoc)
(setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(if (setq selectionset (ssget "_:L" '((0 . "INSERT") (66 . 1))))
(progn
(vla-StartUndoMark acdoc)
(repeat (setq integer (sslength selectionset))
(setq selectionsetname (ssname selectionset (setq integer (1- integer)) ) )
(foreach x (vlax-invoke
(vlax-ename->vla-object selectionsetname) 'GetAttributes )
(vla-put-textstring x
(strcat "A" (substr (setq v (vla-get-textstring x)) 2 (strlen v)) )) )
)
(vla-EndUndoMark acdoc)
)
(princ)
)
(princ)
)

Tharwat, is not working.
Show this error:
ERROR: bad argument type: VLA-OBJECT nil

Tharwat · « **Reply #10 on:** July 03, 2012, 01:10:05 PM »

UPDATED :

antistar · « **Reply #11 on:** July 03, 2012, 01:32:36 PM »

Quote from: Lee Mac on July 03, 2012, 09:30:40 AM

Quote from: antistar on July 03, 2012, 09:27:59 AM
It would be like this?

...(setq s (ssget "_: L" '((0. "INSERT") (66. 1))))

Select the blocks (ssget with filter list)
Iterate over the Selection Set (repeat / while, ssname)
For each block entity in the set, iterate over the attributes (entnext)
Retrieve the attribute values (cdr, assoc DXF group code 1)
Modify the value (as demonstrated above, substr, strcat)
Update the value (subst, entmod, entupd)

Lee,
Thank you for your explanations.

antistar · « **Reply #12 on:** July 03, 2012, 01:35:56 PM »

Quote from: Tharwat on July 03, 2012, 01:10:05 PM

UPDATED :

Perfect, exactly what I need. It will be very useful to me.
Thank you for your attention and patience.

Regards.

Tharwat · « **Reply #13 on:** July 03, 2012, 01:37:29 PM »

Quote from: antistar on July 03, 2012, 01:35:56 PM

Quote from: Tharwat on July 03, 2012, 01:10:05 PM
UPDATED :

Perfect, exactly what I need. It will be very useful to me.
Thank you for your attention and patience.

Regards.

You're welcome anytime .

Lee Mac · « **Reply #14 on:** July 03, 2012, 01:41:32 PM »

Quote from: antistar on July 03, 2012, 01:32:36 PM

Lee,
Thank you for your explanations.

Evidently wasting my time since the code has been provided on a plate.

antistar · « **Reply #15 on:** July 03, 2012, 07:42:46 PM »

Quote from: Lee Mac on July 03, 2012, 01:41:32 PM

Quote from: antistar on July 03, 2012, 01:32:36 PM
Lee,
Thank you for your explanations.

Evidently wasting my time since the code has been provided on a plate.

And you, never provided any code on a plate? You've helped so many people.

pBe · « **Reply #16 on:** July 04, 2012, 01:26:26 AM »

Quote from: CAB on July 03, 2012, 11:30:23 AM

Is there more than one attribute in the inserts?
If so how will that attribute be identified?

I was thinking of the same thing, guess there's only one attribute on the block and then the OP wants to be prompted for selection , otherwise the code would be needing a conditional test.

Tried Tharwats code on a block with mulitple Attributes and each and every values now has an "A" prefix including blanks.
So if that is the case, something like this would be a good addition. <that is if "_X" selection method is prefered>

(if (wcmatch (vla-get-textstring x) "pattern*")
.....
)

CAB · « **Reply #17 on:** July 04, 2012, 08:06:51 AM »

Good idea.
Perhaps if the attribute had a unique TAG name it could be used for identification.

pBe · « **Reply #18 on:** July 04, 2012, 09:08:38 AM »

Quote from: CAB on July 04, 2012, 08:06:51 AM

Good idea.
Perhaps if the attribute had a unique TAG name it could be used for identification.

Better

ahsattarian · « **Reply #19 on:** December 07, 2016, 12:42:12 AM »

I can help u

Hello
if u r still needing that program i can help u.
Tell me to guide u.
Amir

roy_043 · « **Reply #20 on:** December 07, 2016, 04:47:12 AM »

Quote from: antistar on July 03, 2012, 01:35:56 PM

Perfect, exactly what I need.

@ahsattarian:
Reviving very old threads that have already been solved does not make much sense.
Why don't you try contributing to more recent threads?

News:

Author Topic: I need a lisp that changes the first character of attributes (Read 7349 times)

antistar

antistar

dong95

antistar

antistar

antistar

antistar