コマンドにすると・・・

名前: take
日時: 2007-03-09 10:57:17
IPアドレス: 210.172.61.*

こんにちは。
今朝の質問に引き続きよろしくお願いいたします。

以下のようなソースを作成し，
文字を囲むようにしてみました。
（途中の数値の取得部分に　トノさま　の知恵をお借りいたしました。
稚拙な私のコードに利用させていただくのは大変恐縮ですm(_ _)m）
ところが，本質部分をコマンドにするとうまくいきません。
何が原因なのでしょうか？

%%%うまくいくソース
\documentclass[10pt,a4paper,fleqn]{jsarticle}
\usepackage{emathP}

\begin{document}
aaa
\def\tKaitouTxt{解答}%
\newbox\tKaitoubox%
\setbox\tKaitoubox=\hbox{\tKaitouTxt}%
\makeatletter%
\def\tKaitouwd{\strip@pt\wd\tKaitoubox}%
\def\tKaitouht{\strip@pt\ht\tKaitoubox}%
\def\tKaitoudp{\strip@pt\dp\tKaitoubox}%
\makeatother%
%%%
\Mul{\tKaitouwd}{.5}\x%
\Add{\tKaitouht}{\tKaitoudp}\y%
\Mul{\y}{.5}\y%
%%%微調整
\Mul{\x}{1.05}\x%
\Mul{\y}{1.05}\y%
\begin{zahyou*}[ul=1pt,haiti=c](-\x,\x)(0,0)%
%%%枠で囲む開始
\thicklines%
\def\A{(-\x,-\y)}%
\def\B{(-\x,\y)}%
\def\C{(\x,\y)}%
\def\D{(\x,-\y)}%
%%%
\Mul{.2}{\x}\xx%
\Addvec\A{( \xx,\xx)}\AA%
\Addvec\B{( \xx,-\xx)}\BB%
\Addvec\C{(-\xx,-\xx)}\CC%
\Addvec\D{(-\xx,\xx)}\DD%
\Enko\AA{\xx}{180}{270}%
\Enko\BB{\xx}{90}{180}%
\Enko\CC{\xx}{0}{90}%
\Enko\DD{\xx}{270}{360}%
%%%
\Addvec\A{(0,\xx)}\AAA%
\Addvec\A{(\xx,0)}\AAAA%
\Addvec\B{(0,-\xx)}\BBB%
\Addvec\B{(\xx,0)}\BBBB%
\Addvec\C{(0,-\xx)}\CCC%
\Addvec\C{(-\xx,0)}\CCCC%
\Addvec\D{(0,\xx)}\DDD%
\Addvec\D{(-\xx,0)}\DDDD%
\Drawlines{\AAA\BBB;\BBBB\CCCC;\CCC\DDD;\DDDD\AAAA}%
\thinlines%
%%%枠で囲む終了
\Put\O(0pt,0pt){{\bf\tKaitouTxt}}%最後に文字を入れて完成！！%
%
\end{zahyou*}%
aaa

\end{document}


%%%うまくいかないソース
\documentclass[10pt,a4paper,fleqn]{jsarticle}
\usepackage{emathP}

\def\tKaitou{%
\def\tKaitouTxt{解答}%
\newbox\tKaitoubox%
\setbox\tKaitoubox=\hbox{\tKaitouTxt}%
\makeatletter%
\def\tKaitouwd{\strip@pt\wd\tKaitoubox}%
\def\tKaitouht{\strip@pt\ht\tKaitoubox}%
\def\tKaitoudp{\strip@pt\dp\tKaitoubox}%
\makeatother%
%%%
\Mul{\tKaitouwd}{.5}\x%
\Add{\tKaitouht}{\tKaitoudp}\y%
\Mul{\y}{.5}\y%
%%%微調整
\Mul{\x}{1.05}\x%
\Mul{\y}{1.05}\y%
\begin{zahyou*}[ul=1pt,haiti=c](-\x,\x)(0,0)%
%%%枠で囲む開始
\thicklines%
\def\A{(-\x,-\y)}%
\def\B{(-\x,\y)}%
\def\C{(\x,\y)}%
\def\D{(\x,-\y)}%
%%%
\Mul{.2}{\x}\xx%
\Addvec\A{( \xx,\xx)}\AA%
\Addvec\B{( \xx,-\xx)}\BB%
\Addvec\C{(-\xx,-\xx)}\CC%
\Addvec\D{(-\xx,\xx)}\DD%
\Enko\AA{\xx}{180}{270}%
\Enko\BB{\xx}{90}{180}%
\Enko\CC{\xx}{0}{90}%
\Enko\DD{\xx}{270}{360}%
%%%
\Addvec\A{(0,\xx)}\AAA%
\Addvec\A{(\xx,0)}\AAAA%
\Addvec\B{(0,-\xx)}\BBB%
\Addvec\B{(\xx,0)}\BBBB%
\Addvec\C{(0,-\xx)}\CCC%
\Addvec\C{(-\xx,0)}\CCCC%
\Addvec\D{(0,\xx)}\DDD%
\Addvec\D{(-\xx,0)}\DDDD%
\Drawlines{\AAA\BBB;\BBBB\CCCC;\CCC\DDD;\DDDD\AAAA}%
\thinlines%
%%%枠で囲む終了
\Put\O(0pt,0pt){{\bf\tKaitouTxt}}%最後に文字を入れて完成！！%
%
\end{zahyou*}%
}%

\begin{document}
aaa
\tKaitou
aaa

\end{document}

この書き込みへの返事：