\Settenkigou に引数が２つというのがつらいですが
真打ちまでのつなぎに、最小の改変ということで
\documentclass{jarticle}
\usepackage{graphicx}
\usepackage{emathPp}

%接点記号
%\Settenkigou{#1}{#2} #1=接点 #2=(接線上のもう1つの点)
\newcommand{\Settenkigou}[2]{
\Bunten{#1}{#2}{-1}{2}\setutaisyouten
\Touhenkigou{#2}\setutaisyouten
}
\makeatletter
\def\settenkigou#1{%
  \Cfor{\edef\setten@a{#1}}{\not\equal\setten@a\empty}{}\do{%
    \strsep\setten@a{;}\setten@a\setten@b
    \edef\setten@aa{\setten@a}%
    \edef\setten@a{\setten@b}%
    \strsep\setten@a{;}\setten@a\setten@b
    \edef\setten@ab{\setten@a}%
    \edef\setten@a{\setten@b}%
    \expandafter\Settenkigou\expandafter\setten@aa\expandafter\setten@ab
 }
}
\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
\settenkigou{\S;\B;\T;\C;\U;\A}
\tenretu**{I[s];S[s];T[ne];U[nw]}
\Kuromaru\I
\end{zahyou}

$\\$

\begin{zahyou}[ul=40pt](-3,4)(-1,4)
\YGurafu*{X*X}
\YGurafu*{-2*X*X+6*X-3}
\tenretu{T(1,1)se}
\def\A{(0.5,0)}
\Kuromaru\A
\Settenkigou\T\A
\Tyokusen*\T\A
\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