(defun c:DpinP (/ D1 pt0 PT1 PT2 PT3 PT4 PT1A PT2A PT3A PT4A r1 R2 os cla)   (setq os (getvar "osmode"))   (setq cla (getvar "clayer"))   (setq pt0 (getpoint "n≫ Pin의 중심점을 선택하세요 : "))   (setq d1 (getreal "n≫ Pin의 지름을 입력하세요 : "))   (setq r1 (/ d1 2))   (setq r2 (/ r1 2))   (setq pt1 (list (+ (car pt0) r2) (cadr pt0)))   (setq pt1a (list (+ (car pt0) (* r1 1.5)) (cadr pt0)))   (setq pt2 (list (- (car pt0) r2) (cadr pt0)))   (setq pt2a (list (- (car pt0) (* r1 1.5)) (cadr pt0)))   (setq pt3 (list (car pt0) (+ (cadr pt0) r2)))   (setq pt3a (list (car pt0) (+ (cadr pt0) (* r1 1.5))))   (setq pt4 (list (car pt0) (- (cadr pt0) r2)))   (setq pt4a (list (car pt0) (- (cadr pt0) (* r1 1.5))))   (setvar "osmode" 0)   (command "layer" "s" "22" "") ;; 사용자 변경 부분 -중심선 레이어 22   (command "line" pt1a pt2a "")   (command "line" pt3a pt4a "")   (command "layer" "s" "0" "")   (command "circle" pt0 r1) ;; 사용자 변경 부분 -외형선 레이어 0   (command "pline" pt1 "w" r1 "" "a" "a" 90 pt3 "")   (command "pline" pt2 "w" r1 "" "a" "a" 90 pt4 "")    (command "pline" pt2 "w" "0" "0" *consol*)   (setvar "osmode" os)   (setvar "clayer" cla) ); end of defun