documentclass[16pt]{article}
usepackage{geometry}
geometry{a4paper, portrait, margin=15mm}
usepackage{skak}
usepackage{chessboard}
usepackage{polyglossia}
setdefaultlanguage[calendar=gregorian,locale=mashriq,numerals=arabic]{arabic}
setotherlanguage{english}
newfontfamilyarabicfont[Script=Arabic,Scale=1.0]{Amiri}

makeatletterletori@arabic@arabic
newcommandrestorearabic{let@arabicori@arabic}
begin{document}
لعب هذا الدور عام الف و تسعمائة و خمسة و سبعين بلا فائدة تذكر

selectlanguage{english}
begingroup
restorearabic
defmylist{Ke1, qe2, kf3}
setchessboard{setpieces=mylist}
defmylist{Ke1, ra1, ke3}
chessboard
endgroup

end{document}