;;구석파기-Relief(Recess) Groove Draw
(defun bot_er (s)
(if (/= s "Function Cancelled")
(if (= s "quit / exit abort")
(princ) (princ (strcat " ERROR :" s)) ));if,if
(setvar "cmdecho" ocmde) (setvar "osmode" oosmo)(setvar "clayer" cla)
(setq *error* olderr) (princ))
(defun dtr (dtr1)(* pi (/ dtr1 180.00)))
(defun out_lay () (command "layer" "s" "0" "")) ;외형선레이어 0 ▶[사용자가 지정]
;--[Main]----------------------------------------------------------
(defun C:RELF (/ olderr ocmde osmode cla dsc bp) ;명령어 RELF
(setq olderr *error* *error* bot_er)
(setq ocmde (getvar "cmdecho") oosmo (getvar "osmode")
cla (getvar "clayer") dsc (getvar "dimscale") dtx (getvar "dimtxt") );setq
(setvar "cmdecho" 0) (setvar "osmode" 32)
(graphscr)
(initget 1)
(setq bp (getpoint " ≫≫ Pick the Base point : " ))
(initget 7)
(setq wd (getreal " ≫≫ Input the groove width (mm) : " ))
(setq hwd (/ wd 2.0) dg (* hwd (sqrt 2)))
(setq p1 (polar bp (dtr 90) dg) gp1(polar bp (dtr -45) (/ hwd 4))
p2 (polar gp1 (dtr 45) hwd) p3 (polar gp1 (dtr 225) hwd)
p4 (polar bp (dtr 180) dg) );setq
(setvar "osmode" 0)
(out_lay)
(command "pline" p1 p2 p3 p4 "" ) (setq e1 (entlast))
(command "rotate" e1 "" bp pause)
(setq tp1 (polar bp (dtr 45) (* dg 0.01)) tp2 (polar bp (dtr 225) (* dg 0.01))
);setq
(command "trim" e1 "" "f" tp1 tp2 "" "")
(setvar "clayer" cla) (setvar "cmdecho" ocmde)
(setvar "osmode" oosmo) (setq *error* olderr)
(princ) );end of defun
(defun bot_er (s)
(if (/= s "Function Cancelled")
(if (= s "quit / exit abort")
(princ) (princ (strcat " ERROR :" s)) ));if,if
(setvar "cmdecho" ocmde) (setvar "osmode" oosmo)(setvar "clayer" cla)
(setq *error* olderr) (princ))
(defun dtr (dtr1)(* pi (/ dtr1 180.00)))
(defun out_lay () (command "layer" "s" "0" "")) ;외형선레이어 0 ▶[사용자가 지정]
;--[Main]----------------------------------------------------------
(defun C:RELF (/ olderr ocmde osmode cla dsc bp) ;명령어 RELF
(setq olderr *error* *error* bot_er)
(setq ocmde (getvar "cmdecho") oosmo (getvar "osmode")
cla (getvar "clayer") dsc (getvar "dimscale") dtx (getvar "dimtxt") );setq
(setvar "cmdecho" 0) (setvar "osmode" 32)
(graphscr)
(initget 1)
(setq bp (getpoint " ≫≫ Pick the Base point : " ))
(initget 7)
(setq wd (getreal " ≫≫ Input the groove width (mm) : " ))
(setq hwd (/ wd 2.0) dg (* hwd (sqrt 2)))
(setq p1 (polar bp (dtr 90) dg) gp1(polar bp (dtr -45) (/ hwd 4))
p2 (polar gp1 (dtr 45) hwd) p3 (polar gp1 (dtr 225) hwd)
p4 (polar bp (dtr 180) dg) );setq
(setvar "osmode" 0)
(out_lay)
(command "pline" p1 p2 p3 p4 "" ) (setq e1 (entlast))
(command "rotate" e1 "" bp pause)
(setq tp1 (polar bp (dtr 45) (* dg 0.01)) tp2 (polar bp (dtr 225) (* dg 0.01))
);setq
(command "trim" e1 "" "f" tp1 tp2 "" "")
(setvar "clayer" cla) (setvar "cmdecho" ocmde)
(setvar "osmode" oosmo) (setq *error* olderr)
(princ) );end of defun