copy match text & text increment change

[cadamrao]

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

[MSasu]

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
...

[cadamrao]

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
...

[MSasu]

Maybe Lee Mac's numbering tool?

[cadamrao]

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

 

Venki