;다듬질기호
(defun dtr (a) (* pi (/ a 180.0)))
(defun rtd (a) (/ (* a 180.0) pi))
(defun c:DDG(/ os bl cl ts skk num ag p0 p1 p2 p3 p4 p5 p6 tp e1)
   (setq os (getvar "osmode") cl (getvar "clayer")
         ts (getvar "dimscale") dtxt (getvar "dimtxt"))
   (setq txt (* dtxt 0.6) skk ( * dtxt ts))
   (princ " 다듬질 기호 그리기...아래 목록의 번호를 선택하세요")
   (setq num (getint "n[0=(~) 1=(▽) 2=(▽▽) 3=(▽▽▽) 4=(3+G) 5=(3+REAM) 6=(4+POLISH) 7=(4+LAPPING) 8=(4+HONING)] <3>: "))
   (if (= num nil) (setq num 3))
   (setvar "osmode" 546);mid,int,nea
   (setq p0 (getpoint "n 삽입점 선택 :"))
   (setq ag (getangle p0 " 회전각 입력<0> : "))
   (if (= ag nil) (setq ag 0) (setq ag (rtd ag)))
   (setvar "osmode" 0)  
      (setq p1 (polar p0  (dtr   60) skk))
       (setq p2 (polar p1  (dtr  -60) skk))
       (setq p3 (polar p2  (dtr   60) skk))
       (setq p4 (polar p0  (dtr  120) skk))
       (setq p5 (polar p4  (dtr -120) skk))
       (setq p6 (polar p5  (dtr  120) skk))   
       (setq p7 (polar p2  (dtr  0)   skk)) 
       (setq p8 (polar p7  (dtr   60) skk))
    (command "layer" "s" "88" "")    ;;;88 사용자 지정 레이어
   (cond
     ((= num 0);~
       (setq tp (polar p0 (dtr -90) (* ts 1.65)))
       (command "text" "j" "ce" tp (* dtxt 2) "0" "~") (setq e1 (entlast))
       (command "rotate" e1 "" p0 ag))
     ((= num 1);▽
       (command "pline" p0 p1 p4 "c")     (setq e1 (entlast))
       (command "rotate" e1 "" p0 ag))
     ((= num 2);▽▽
       (command "pline" p0 p1 p2 p3 p4 "c") (setq e1 (entlast))
       (command "rotate" e1 "" p0 ag))
     ((= num 3);▽▽▽
       (command "pline" p0 p1 p2 p3 p6 p5 p4 "c") (setq e1 (entlast))
       (command "rotate" e1 "" p0 ag))
     ((= num 4);▽▽▽(G)
       (command "pline" p0 p1 p2 p3 p6 p5 p4 "c") (setq e2 (entlast))   
       (setq tp (polar p0 (dtr 90) (+ (/ ts 2) skk)))
       (command "text" "j" "ce" tp txt "0" "(G)") (setq e1 (entlast))
       (command "rotate" e1 e2 "" p0 ag))   
     ((= num 5);▽▽▽(REAM)
       (command "pline" p0 p1 p2 p3 p6 p5 p4  "c") (setq e2 (entlast))
       (setq tp (polar p0 (dtr 90) (+ (/ ts 2) skk)))
       (command "text" "j" "ce" tp txt "0" "(REAM)") (setq e1 (entlast))
       (command "rotate" e1 e2 "" p0 ag))   
     ((= num 6);▽▽▽▽(POLISH)
  (command "pline" p0 p1 p2 p3 p7 p8 p6 p5 p4  "c") (setq e2 (entlast))
       (setq tp (polar p0 (dtr 90) (+ (/ ts 2) skk)))
   (command "text" "j" "ce" (polar tp (dtr 0) (/ skk 2)) txt "0" "(POLISH)") (setq e1 (entlast))
       (command "rotate" e1 e2 "" p0 ag))
 ((= num 7);▽▽▽▽(LAPPING)
  (command "pline" p0 p1 p2 p3 p7 p8 p6 p5 p4  "c") (setq e2 (entlast))
       (setq tp (polar p0 (dtr 90) (+ (/ ts 2) skk)))
       (command "text" "j" "ce" (polar tp (dtr 0) (/ skk 2)) txt "0" "(LAPPING)") (setq e1 (entlast))
       (command "rotate" e1 e2 "" p0 ag))
 ((= num 8);▽▽▽▽(HONING)
  (command "pline" p0 p1 p2 p3 p7 p8 p6 p5 p4  "c") (setq e2 (entlast))
       (setq tp (polar p0 (dtr 90) (+ (/ ts 2) skk)))
       (command "text" "j" "ce" (polar tp (dtr 0) (/ skk 2)) txt "0" "(HONING)") (setq e1 (entlast))
       (command "rotate" e1 e2 "" p0 ag))
   );cond
   (setvar "clayer" cl)
   (setvar "osmode" os)
(princ));end of defun