Topic: Place prefix in front Layer name

[Fabricio28]

Hi guys,


That code is amazing, I've been using a lot ...

I'm using that code to add - as a prefix of my layers.

I'd like to make a little change at the code.
Remove - of all selected layers.


Thanks in advance

If I understood correctly and if the code passed your tests... (untested)

Code: [Select]

(defun c:foo ( / _ss->list f-MR e el l ll ss )
  (defun _ss->list ( ss / n out )
    (repeat (setq n (sslength ss)) (setq out (cons (ssname ss (setq n (1- n))) out)))
  )
  (defun f-MR ( d s / d1 dl k ss c pl z l )
    (while (and (setq d1 (substr d 1 1)) (/= d1 ""))
      (setq d (substr d 2))
      (setq dl (cons d1 dl))
    )
    (foreach d1 dl
      (setq k -1 ss s)
      (while (and (setq c (substr ss 1 1)) (/= c ""))
        (setq ss (substr ss 2))
        (setq k (1+ k))
        (if (= c d1)
          (setq pl (cons k pl))
        )
      )
    )
    (if pl
      (progn
        (setq pl (vl-sort pl '<))
        (foreach p pl
          (if (null z)
            (setq z 1)
          )
          (setq l (cons (substr s z (1+ (- p z))) l))
          (setq z (+ p 2))
        )
        (setq l (cons (substr s z) l))
        (vl-remove "" (reverse l))
      )
      s
    )
  )
  (if (setq ss (ssget))
    (foreach e (_ss->list ss)
      (setq l (cdr (assoc 8 (entget e))))
      (setq el (entget (tblobjname "layer" l)))
      (if (vl-string-search "-" l)
        (progn
          (setq ll (f-MR "-" l))
          (setq ll (apply 'strcat ll))
          (entmod (subst (cons 2 ll) (assoc 2 el) el))
        )
      )
    )
  )
  (princ)
)

Regards...

Thank you very much!!!

Worked perfect!!!

Regards

[Lee Mac]

This request inspired me to create this new program: Layer Prefix/Suffix

[Fabricio28]

This request inspired me to create this new program: Layer Prefix/Suffix

Hi my old friend Lee Mac

Your web site is amazing!!

I'm happy with my request had inspired you create a new code. 

Thank you very much!

[Lee Mac]

Thank you for your compliments for my site - I'm pleased that you like the new program. 

Lee

[M. Khateeb]

Hello,
Can this, please, be modified to have a dialogue box with a list of the suffixes for each layer I pick. and away to add or remove them.
I attached a dialogue box to explain what I mean. (was modified by photo editor to match the situation I am explaining)
For example.
I have a layer named C1650.
and the "codes" or suffixes to be added or removed, are always numbers with "_" before each number, but could be anything for general use.
In a certain situation, the layer is C1650_0
When I pick the layer, the "0" should appear in the list of suffixes in the dialogue box, I can remove it by pressing "Del" or add another code, like 1;
then the layer should be renamed to
C1650_0_1

I appreciate any help.
Lee's code for layer prefix/suffix is great, Thank you very much for your efforts.
But I need a friendly way to do this since I have a lot of such cases....
Thank you
M.

[roy_043]

suffixes to be added or removed, are always numbers with "_" before each number, but could be anything for general use.

If "anything" applies and the layername is "C1650_0" the list of suffixes must be:

Code: [Select]

1650_0
650_0
50_0
0_0
_0
0?

[M. Khateeb]

The layer name is constant, the list of suffixes is managed.
For instance:

C1650_0_1_2_3    (list of suffixes : 0 1 2 3 )

When you remove 3, the result is C1650_0_1_2  and the list now : 0 1 2

What I meant by "anything" is the suffix could be anything like : C1650_XX_YY_ZZ  and when you remove ZZ, you stay with C1650_XX_YY

Thanks for your concern.
       

[danallen]

M. Khateeb,

Sounds like this should be a new discussion topic since it is not adding prefixes.

Are you looking for renaming only one layer at a time? My pseudo code of my pseudo understanding of your request is:
run program
a) get layer name, or perhaps run on current layer
b) parse layer name into list of strings using "_" as a separator (see https://www.theswamp.org/index.php?topic=32845.0)
c) use dialog with check boxes, see image below, from doslib using the dos_checklist function. https://wiki.mcneel.com/doslib/home
d) recombine string based on selection, and rename layer

Dan

[GDF]

Nicely done LeeMac and Ronjonp

[ronjonp]

Nicely done LeeMac and Ronjonp

Thanks 

[M. Khateeb]

Sorry for putting it in the wrong thread, but I was led here while I was looking for prefix and suffix adding and removing.
The other thread is very nice. With a string parser, it would be perfect, combining all the work done and getting what I want.
Thanks a lot.

[Lee Mac]

Nicely done LeeMac and Ronjonp

Thanks Gary. 

[danallen]

No problem, feel free to start a new thread and post your code draft if you need input/help.

-Dan

Sorry for putting it in the wrong thread, but I was led here while I was looking for prefix and suffix adding and removing.
The other thread is very nice. With a string parser, it would be perfect, combining all the work done and getting what I want.
Thanks a lot.

[Grrr1337]

Hi Dan,
Just a quick question: where did you got that dialog from?
I mean I was about to ask in the DCL section is this thing possible: list_box with toggle buttons inside (just like the picture you uploaded).
Not sure if this is doable with pure DCL.

[danallen]

The dialog, specifically dos_checklist, is from doslib, https://wiki.mcneel.com/doslib/home, a free add-on that has been around for years, and hopefully many more. The pros here tend to create their own, I don't know if pure DCL can do it.