(DEFUN C:PEN()

;(ALERT "MERHABA INSAAT")
(SETQ P1(GETPOINT"\nSOL UST KOSE"))
(SETQ P3(GETCORNER P1 "\nSAG ALT KOSE"))
(SETQ P2(LIST (CAR P3) (CADR P1) ))
(SETQ P4(LIST (CAR P1) (CADR P3) ))
(COMMAND "LINE" P1 P2 P3 P4 "C")
(SETQ P5(LIST (+(CAR P1)(/(DISTANCE P1 P2)2) ) (CADR P1)     ))
(SETQ P6(LIST (+(CAR P1)(/(DISTANCE P1 P2)2) ) (CADR P3)     ))
(COMMAND "LINE" P5 P6 "")
(SETQ P7(LIST (CAR P1) (-(CADR P1)(/(DISTANCE P1 P4)2) )    ))
(SETQ P8(LIST (CAR P2) (-(CADR P1)(/(DISTANCE P1 P4)2) )    ))
(COMMAND "LINE" P7 P8 "")

)