(defun ssv (/)
   (setvar "cmdecho" 0)
   (command "_.undo" "group")
)
(defun rsv (/)
   (command "_.undo" "e")
   (setvar "cmdecho" 1)
   (prin1)
)
;;; Tek bir kere kullanılacak hiç bir bölümü altyordam işlevi
;;; (subroutine function) olarak tanımlamayınız.
;;; Kodları aldığınız kaynakta çok sayıda işlev tanımında kullanıldığı için
;;; Öyle yazılmıştır.

(defun C:mml (/ e)
;;; başka işlevlerde kullanılmayacak tüm değişkenler,
;;; yerel değişken (local variable) olarak tanımlanmalıdır.
;;; burada hiç kullanılmamış e isimli değişkenin
;;; yerel değişken olarak tanımlanması yanlıştır.
;;; farketmiyor, yazmasamda çalışıyor yaklaşımı yanlıştır.
;;; eninde sonunda hata olarak size dönecektir.
   (ssv)

   (setq robj (entsel "\nLayer'ı değiştirilecek objeyi seçiniz : "))
;;; Nesne seçerken tıklanan nokta koordinatlarına ihtiyacımız olmadığı için,
;;; daha seçerken (car (entsel kullanılmalı
   (setq lrobj (cdr (assoc 8 (entget (car robj)))))

   (setq robj2 (entsel "\nLayer'ı Alınacak objeyi seçiniz : "))
   (setq lrobj2 (cdr (assoc 8 (entget (car robj2)))))
;;; birbirini izleyen (setq direktiflerini ayrı ayrı yazmak kodlamayı uzatır,
;;; karışık bir görüntüye sebep olur. Tek bir setq direktifiyle yazılmalıdır.

   (print "Tüm çizimi seçin : ")
   (setq ss (ssget))
;;; "tüm çizimi seçin" mesajından sonra (ssget) kullanmak yerine
;;; doğrudan (ssget "x") kullanılması daha doğrudur.
;;; Ki; buna gerek var mı?

   (setq say (sslength ss))
   (setq c 0)
;;; Hiç ihtiyacımız olmayan 2 değişken tutulması
;;; 2 ayrı setq kullanılarak yazılması yanlış olmuş.

   (while (< c say)
     (setq tek (ssname ss c))
     (setq ltek (cdr (assoc 8 (entget tek))))
     (if (= lrobj ltek)
       (command "_.chprop" tek "" "LA" lrobj2 "")
       (progn)
     )
     (setq c (+ c 1))
;;; Konuyla ilgisiz not: Döngü sayaçlarını (loop counter)
;;; Döngünün sonunda artırmak, hem fazladan bir satır yazmak demektir,
;;; hem de kolaylıkla hataya sebep olabilecek acemice bir biçimdir.
   )
;;; Önce tüm çizim nesnelerinin seçilmesi,
;;; sonra while döngüsü içinde layer'larının kontrol edilerek
;;; işleme alınmalarına gerek yok.

   (rsv)
)

(defun C:mmL (/ LRObj LRObj2 ChObj)
   (setvar "cmdecho" 0) (command "_.undo" "group")
;;; yazdığımız açıklamalar ışığında
;;;  (setq robj (car (entsel "\nLayer'ı değiştirilecek objeyi seçiniz : "))
;;;        lrobj (cdr (assoc 8 (entget robj)))
;;;        robj2 (car (entsel "\nLayer'ı Alınacak objeyi seçiniz : "))
;;;        lrobj2 (cdr (assoc 8 (entget robj2))))
;;; şeklinde yazılabilecek bu bölümün doğru yazılışı;
  (setq LRObj (assoc 8 (entget (car (entsel ....))))
        LRObj2 (cdr (assoc 8 (entget (car (entsel ....)))))
;;; şeklinde olur böylece kullanmayacağımız 2 değişken tutmamış oluruz.
        ChObj (ssget "x" (list LRObj)))
  (command "_.ChProp" ChObj "" "La" LRObj2 "")
  (command "_.undo" "e") (setvar "cmdecho" 1) (princ))

(defun C:mmL  (/)
  (command "._ChProp"
    (ssget "x" (list (assoc 8 (entget (car (entsel
                          "\nLayer'ı değiştirilecek objeyi seçiniz : ")))))) ""
    (cdr (assoc 8 (entget (car (entsel
                          "\nLayer'ı Alınacak objeyi seçiniz : "))))) ""))

.
(setq SecimSeti (ssget)
      n (sslength SecimSeti))
(while (> (setq n (1- n)) -1)
  (redraw (ssname SecimSeti n) 3))
.

(entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2))