;;=======================================================
;  플렌지(Flange) 그리기
;;-------------------------------------------------------
(defun c:Flange (/ e1 h d1 d2 d3 d4 pt1 pt2 pt3 rad os)
   (prompt "후렌지를 그립니다")(terpri)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq pt1 (getpoint "원중심점: "))
   (setq d2 (getreal "n내경 (inner diameter): "))
   (setq d2 (/ d2 2))
   (setq d3 (getreal "nPCD (diameter): "))
   (setq d3 (/ d3 2))
   (setq d1 (getreal "n외경 (outer diameter): "))
   (setq d1 (/ d1 2))
   (setq d4 (getreal "n구멍지름(hole diameter): "))
   (setq d4 (/ d4 2))
   (setq h (getstring "n구멍갯수(hole Quantity): "))
   (command "layer" "s" "0" "") ;외형선레이어
   (command "circle" pt1 d1)
   (command "circle" pt1 d2)
   (command "circle" pt1 d3)
   (command "change" "l" "" "p" "la" "22" "") ;;중심선 레이어
   (setq e1 (entget (car (entsel "select circle" ))))
   (setq pt2 (cdr (assoc 10 e1)))
   (setq rad (cdr (assoc 40 e1)))
   (setq pt3 (list (+ (car pt2) (* 1 rad)) (cadr pt2)))
   (command "circle" pt3 d4)
   (command "array" "l" "" "p" pt1 h "" "")
   (setvar "osmode" os)
)