\documentclass{minimal}
\makeatletter
\def\hidehrule#1#2{\kern-#1\hrule height#1 depth#2 \kern-#2 }
\def\hidevrule#1#2{\kern-#1{\dimen0=#1
    \advance\dimen0 by#2\vrule width\dimen0}\kern-#2 }
% \makeblankbox puts rules at the edges of a blank box
% whose dimensions are those of \box0 (assuming nonnegative wd,ht,dp)
% #1 is rule thickness outside, #2 is rule thickness inside
\def\makeblankbox#1#2{\hbox{\lower\dp0\vbox{\hidehrule{#1}{#2}%
    \kern-#1% overlap the rules at the corners
    \hbox to\wd0{\hidevrule{#1}{#2}%
      \raise\ht0\vbox to #1{}% set the vrule height
      \lower\dp0\vtop to #1{}% set the vrule depth
      \hfil\hidevrule{#2}{#1}}%
    \kern-#1\hidehrule{#2}{#1}}}}
\def\maketypebox{\makeblankbox{0pt}{1pt}}
\def\makelightbox{\makeblankbox{.2pt}{.2pt}}

% \box\bigdot is a null box with a bullet at its reference point
\newbox\bigdot \newbox\smalldot
\setbox0=\hbox{$\vcenter{}$} % \ht0 is the axis height
\setbox1=\hbox to\z@{$\hss\bullet\hss$} % bullet is centered on the axis
\setbox\bigdot=\vbox to\z@{\kern-\ht1 \kern\ht0 \box1 \vss}
\setbox1=\hbox to\z@{$\hss\cdot\hss$} % cdot is centered on the axis
\setbox\smalldot=\vbox to\z@{\kern-\ht1 \kern\ht0 \box1 \vss}



% \samplebox makes the outline of a box, with big dot at reference point
\def\samplebox#1#2#3#4{% #1=ht, #2=dp, #3=wd, #4=text
  {\setbox0=\vtop{\vbox to #1{\hbox to #3{}\vss}
      \nointerlineskip
      \vbox to #2{}}% now \box0 has the desired ht, dp, and wd
    \hbox{\copy\bigdot
      \vrule height.2pt depth.2pt width#3%
      \kern-#3%
      \makelightbox
      \kern-#3%
      \raise#1\vbox{\hbox to #3{\hss#4\hss}
        \kern 3pt}}}}

\newcommand*{\showcharinbox}[1]{%
\setbox0=\hbox{\fontsize{100}{110}\selectfont #1}
\setbox1=\vtop{\kern-3pt % this cancels the null text above the samplebox
  \hbox{\samplebox{\ht0}{\dp0}{\wd0}{}%
    \kern-\wd0
    \hbox to \wd0{\hss \unhbox0\hss}}
  }
\box1}
\newcommand{\putcharfrombottom}[1]{%
\setbox0=\hbox{\fontsize{100}{110}\selectfont #1}%
\setbox1=\hbox{)}%
\raise\dimexpr(\dp0-\dp1)\hbox{\unhbox0}}        
\newcommand{\putcharfromtop}[1]{%
\setbox0=\hbox{\fontsize{100}{110}\selectfont #1}%
\setbox1=\hbox{)}%
\raise\dimexpr(\ht1-\ht0)\hbox{\unhbox0}}  


\makeatother
\usepackage{xepersian}
\settextfont{XB Yas}
\begin{document}
\leavevmode\showcharinbox{(چ)}

\bigskip\bigskip\bigskip
\leavevmode\showcharinbox{(\putcharfrombottom{چ})}

\bigskip\bigskip\bigskip
\leavevmode\showcharinbox{(\putcharfromtop{چ})}
\end{document}