Help changing a program

[cadd4la]

You are welcome anytime.

Please try the following and hope it would meet your needs.

(defun c:crtchglay (/ i l n s x c y r d e)
  ;; Tharwat - Date: 08.Mar.2018	;;
  (if
    (and (setq s (ssget "_:L" '((8 . "~*XXX-CHANGED0"))))
         (setq r
                (getstring
                  "\nSpeficy a number from [1-9] or [01-09] <enter to exit> :"
                )
         )
         (or (numberp (read r))
             (progn (princ "\nInvalid input!. Please try again.") nil)
         )
         (setq y (and (= (strlen r) 2) (wcmatch r "0*"))
               c (acad_colordlg 256)
         )
    )
     (repeat (setq i (sslength s))
       (setq x (ssname s (setq i (1- i)))
             e (entget x)
             l (assoc 8 e)
             n (strcat (cdr l) "_XXX-CHANGED" r)
             d (list '(290 . 1) (cons 62 c))
             r (1+ (atoi r))
             r (if (and y (< r 10))
                 (strcat "0" (itoa r))
                 (itoa r)
               )
       )
       (if (tblsearch "LAYER" n)
         (entmod (append (entget (tblobjname "LAYER" n)) d))
         (entmake (append (list '(0 . "LAYER")
                                '(100 . "AcDbSymbolTableRecord")
                                '(100 . "AcDbLayerTableRecord")
                                (cons 2 n)
                                '(70 . 0)
                          )
                          d
                  )
         )
       )
       (entmod (subst (cons 8 n) l e))
     )
  )
  (princ)
)

Tharwat,

This is great, thank you so much.

Cadd4la

[Tharwat]

Tharwat,

This is great, thank you so much.

Cadd4la

Excellent.

You are welcome.

[cadd4la]

You are welcome anytime.

Please try the following and hope it would meet your needs.

(defun c:crtchglay (/ i l n s x c y r d e)
  ;; Tharwat - Date: 08.Mar.2018	;;
  (if
    (and (setq s (ssget "_:L" '((8 . "~*XXX-CHANGED0"))))
         (setq r
                (getstring
                  "\nSpeficy a number from [1-9] or [01-09] <enter to exit> :"
                )
         )
         (or (numberp (read r))
             (progn (princ "\nInvalid input!. Please try again.") nil)
         )
         (setq y (and (= (strlen r) 2) (wcmatch r "0*"))
               c (acad_colordlg 256)
         )
    )
     (repeat (setq i (sslength s))
       (setq x (ssname s (setq i (1- i)))
             e (entget x)
             l (assoc 8 e)
             n (strcat (cdr l) "_XXX-CHANGED" r)
             d (list '(290 . 1) (cons 62 c))
             r (1+ (atoi r))
             r (if (and y (< r 10))
                 (strcat "0" (itoa r))
                 (itoa r)
               )
       )
       (if (tblsearch "LAYER" n)
         (entmod (append (entget (tblobjname "LAYER" n)) d))
         (entmake (append (list '(0 . "LAYER")
                                '(100 . "AcDbSymbolTableRecord")
                                '(100 . "AcDbLayerTableRecord")
                                (cons 2 n)
                                '(70 . 0)
                          )
                          d
                  )
         )
       )
       (entmod (subst (cons 8 n) l e))
     )
  )
  (princ)
)

After using the program I would like to ask for two changes.

1. If no color is selected can it use the same color as the layer picked and not "bylayer"
2. Can you please not have it have each item picked placed on a new layer and have that layer have a new number. I would like it to just add each items picked to be on the same layer and only increase the layer number if I repeat the command. If you can't do that can you not have it place each item on a new layer and add a new number?

Thanks again for getting it this far.

Cadd4la