> できれば\Settenkigouの複数形\settenkigouを実現したいと思っています。
> 
> つまり、1つ目の内接円の図において、
> \Settenkigou\S\B
> \Settenkigou\T\C
> \Settenkigou\U\A
> の3つを
> \settenkigou{\S\B;\T\C;\U\A}
> と記述できればと思っています。
> 
> emathPh.styの\touhenkigouや\tyokkakukigouのソースを見てみましたが、
> 手の付け方が分かりません。

emathPh.sty 1247行目から 1261行目を参考に記述してみました。

%---------------------------------------
\documentclass[b5j]{jarticle}
\usepackage[notMy]{emathP}

%接点記号
%\Settenkigou{#1}{#2} #1=接点 #2=(接線上のもう1つの点)
\newcommand{\Settenkigou}[2]{
\Bunten{#1}{#2}{-1}{2}\setutaisyouten
\Touhenkigou{#2}\setutaisyouten
}

\makeatletter%
\def\Foo#1{%
\def\Foo@sub(##1,##2)(##3,##4){%
\edef\Foo@a{(##1,##2)}%
\edef\Foo@b{(##3,##4)}%
}%
\argsep{#1}{;}{Foo@tmp}\Foo@n
\Cfor{\edef\Foo@i{0}}{\Foo@i<\Foo@n}\do{%
\Incr\Foo@i
\edef\Foo@arg{%
\csname Foo@tmp\romannumeral\Foo@i\endcsname
}%
\expandafter\Foo@sub\Foo@arg
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\Settenkigou\Foo@a\Foo@b
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}% end of Cfor
}
\makeatother%

\begin{document}

\begin{zahyou*}[ul=30pt](-1,6)(-1,6)
\tenretu{A(3,4)n;B(0,0)sw;C(5,0)se}
\Takakkei{\A\B\C}
\Naisin\A\B\C\I
\En\I\lr
\Suisen\I\B\C\S
%\Settenkigou\S\B
\Suisen\I\C\A\T
%\Settenkigou\T\C
\Suisen\I\A\B\U
%\Settenkigou\U\A
\tenretu**{I[s];S[s];T[ne];U[nw]}
\Foo{\S\B;\T\C;\U\A}
\Kuromaru\I
\end{zahyou*}

\end{document}

▼関連発言
│
└◆7840:接点記号 [st] 01/07 12:45
　├◆7841:Re:接点記号 [石原　守] 01/07 15:39
　└◆7842:Re:接点記号 [田中徹] 01/07 22:13
　　└◆7843:Re[2]:接点記号 [st] 01/08 01:58<-last