화면에서...
  - 라인을 선택하면 라인명령이 실행되고
  - 원을 선택하면 원 그리기 명령이 실행되는...
  - Line / Circle / Text / Point  / Solid / 치수 / 폴리라인 / 인서트

;화면의 객체를 선택해서.. 객체 그리기 명령을 대신함.
;Drawing Command modify

(defun c:C()
        (setvar "cmdecho" 0)
        (setq ent (entsel)) (terpri)
        (if (/= ent nil)
                (progn
                        (setq ent1 (entget (car ent)))
                        (setq comm (cdr (assoc 0 ent1)))
                        (setq lay (cdr (assoc 8 ent1)))
                )
        )
        (command "layer" "s" lay "")
        (cond
           ((= comm "ARC")       (princ "ARC")    (command "Arc"))
           ((= comm "CIRCLE")    (princ "CIRCLE") (command "Circle"))
           ((= comm "TEXT")      (princ "DTEXT")  (command "Dtext"))
           ((= comm "LINE") (princ "LINE") (command "Line" "\" "\" "" ))
           ((= comm "POINT")     (princ "POINT")  (command "Point"))
           ((= comm "SOLID")     (princ "SOLID")  (command "Solid"))
           ((= comm "DIMENSION")
                        (progn
                                (setq h10 (car (cdr (assoc 10 ent1))))
                                (setq h14 (car (cdr (assoc 14 ent1))))
                                (if (= h10 h14) (command "dim" "hor"))
                        )
                        (progn
                                (setq v10 (cadr (cdr (assoc 10 ent1))))
                                (setq v14 (cadr (cdr (assoc 14 ent1))))
                                (if (= v10 v14) (command "dim" "ver"))
                        )
                        (progn
                                (setq h10 (car (cdr (assoc 10 ent1))))
                                (setq h14 (car (cdr (assoc 14 ent1))))
                                (setq v10 (cadr (cdr (assoc 10 ent1))))
                                (setq v14 (cadr (cdr (assoc 14 ent1))))
                                (if (and (/= v10 v14) (/= h10 h14))
                                    (command "dim" "ali"))
                        )
                )
                ((= comm "POLYLINE")
                        (progn
                                (setq p70 (cdr (assoc 70 ent1)))
                                (setq p75 (cdr (assoc 75 ent1)))
                                (if (= p70 1) (progn (princ "ELLIPSE")
                                   (command "ellipse")))
                                (if (= p70 0) (progn (princ "PLINE")
                                   (command "pline")))
                        )
                )
                ((= comm "INSERT")
                        (progn
                                (setq ins2 (cdr (assoc 2 ent1)))
                                (setq nam (substr ins2 1 1))
                                (if (= nam "*")
                                        (progn
                                                (princ "BHATCH")
                                                (command "bhatch")
                                        )
                                        (progn
                                                (princ "DDINSERT")
                                                (command "ddinsert")
                                        )
                                )
                        )
                )
        )
) (princ "n Command : C")(princ)