;Rectangle from center
;(C)2015 CAD Studio - www.cadstudio.cz  www.cadforum.cz

(defun C:CENRECT ( / pt1 ptc vec)

	(setq pt1 (getpoint "\nSpecify the center point: "))
	(setq ptc (getpoint pt1 "\nSpecify the corner point: "))
	(setq vec (mapcar '- ptc pt1))

	(entmake
		(list
			'(000 . "LWPOLYLINE")
			'(100 . "AcDbEntity")
			'(100 . "AcDbPolyline")
			'(090 . 4)
			'(070 . 1)
			(cons 010 (trans (mapcar '+ pt1 (list (-(car vec))(+(cadr vec))(caddr vec))) 1 0))
			(cons 010 (trans (mapcar '+ pt1 (list (+(car vec))(cadr vec)(caddr vec))) 1 0))
			(cons 010 (trans (mapcar '+ pt1 (list (+(car vec))(-(cadr vec))(caddr vec))) 1 0))
			(cons 010 (trans (mapcar '+ pt1 (list (-(car vec))(-(cadr vec))(caddr vec))) 1 0))
			(cons 210 (trans '(0.0 0.0 1.0) 1 0 T))
		)
	)

	(redraw)
	(princ)
)