copy match text & text increment change

Hi

pls anyone can change this LISP for my convenient purpose.I have a LISP from cadtutor;this one good works.I need to change the color of destination object (color 240).

And I need another LISP number increment following below.

K3HB1-300X600

K3HB2-300X600

K3HB3-300X600

K3HB4-300X600

K3VB1-300X600

K3VB2-300X600

K3VB3-300X600

K3VB4-300X600

for preparing beam schedules

Advance Thanks

venki

COPYTEXT.lsp

To modify the color you may add this line into that code:

...
    ) ;_ if
  ) ;_ list
) ;_ vl-catch-all-apply
[color=magenta] (vlax-put-property x 'Color 240)
[/color])
;; unable to extract text, must not be able to edit it
(T
(and (vl-consp #TargetEnt)
     (alert "Cannot edit text within selected object!")
) ;_ and
...

Thank you very much of information and I need to help another LISP for doing beam schedule following below (increment number & change).

K3HB1-300X600

K3HB2-300X600

K3HB3-300X600

K3HB4-300X600

K3VB1-300X600

K3VB2-300X600

K3VB3-300X600

K3VB4-300X600

onceagain Thanks a lot!

venki

QUOTE=MSasu;478659]To modify the color you may add this line into that code:

...
    ) ;_ if
  ) ;_ list
) ;_ vl-catch-all-apply
[color=magenta](vlax-put-property x 'Color 240)[/color]
)
;; unable to extract text, must not be able to edit it
(T
(and (vl-consp #TargetEnt)
     (alert "Cannot edit text within selected object!")
) ;_ and
...

Maybe Lee Mac's numbering tool?

Thanks for information;then I will check Mr.lee program.

Venki