文字列に×印

名前: 野村
日時: 2004-04-13 09:34:19
IPアドレス: 150.84.51.*

指定した文字列全体に「×」を付けることを考えています．

既にマクロがあるように思ったのですが，探し方が悪いようで見つけられず，
試行錯誤で以下のコードを作ってはみたもののコマンドが続くと空白が無くなります．

そこで質問なのですが，
1．\box0 を {\box0} に変更すると空白が生じるようですが，こんな方法での
   対処でよいのでしょうか．
2．同じようなマクロをご存知の方は，教えて頂けないでしょうか．
3．最初，「表の斜線(21357)」と同じようなことを試みたのですが，
   eclarith.sty で平方根が計算できるのはわかったものの角度に関して
   具体的なコードが全く考え出せませんでした．
   \rotatebox を使用する方法での対応策等ありましたら教えて頂けないでしょうか．

よろしくお願い致します．

\documentclass{jarticle}
\usepackage{epic,eepic}
\makeatletter
{\catcode`\p=12\catcode`\t=12\gdef\@Eval#1pt{#1}}
\def\Eval{\expandafter\@Eval\the}
\newcommand\crossbox[1]{\unitlength1pt\thicklines%
  \setbox0\hbox{\ifmmode$\strut#1$\else\strut#1\fi}%
  \begin{picture}(0,0)%
    \drawline(0,\Eval\ht0)(\Eval\wd0,-\Eval\dp0)%
    \drawline(0,-\Eval\dp0)(\Eval\wd0,\Eval\ht0)%
  \end{picture}\box0}
\newcommand\Crossbox[2]{\setbox0\hbox{\crossbox{#1}}%
  \@tempdima=\the\wd0 \divide\@tempdima by2\relax
  \hskip\@tempdima \lower1.2\baselineskip\hbox{%
    \makebox[0pt]{\strut$\stackrel{\Downarrow}{%
      \mbox{\vrule height.5\baselineskip width\z@#2}}$}}%
  \hskip-\@tempdima\box0}
\makeatother
\begin{document}
\crossbox{あいうえお} \crossbox{あ} ABC \crossbox{abc} \crossbox{abc def}

\Crossbox{The cleaning(s)}{Cleaning} takes a long time.
\end{document}

この書き込みへの返事：