如何定义一个“原文”和“注释”分处不同段落的环境？

好厉害！虽然我啥也看不懂。。。

@u101077 其实没什么技术含量的，翻译成python大概就是类似的入门代码：

lst = []
for i in range(N):
    lst.append(i)
for j,k in enumerate(lst):
    print(f"{j} :{k}")

只是因为expl3的syntax比较长看起来比较复杂

@u70550 要是您用TeX的知识解释下我还能勉强理解，用python我是一点也不明白啊。。。

@u70550 注释这个段落中能否让序号页采取带圈形式？以及能否把圈圈单独亮出来（也就是悬挂，像原先我使用的enumerate环境那样），让别人方便检索？

以及在这种极端情况下，比如连续挨着的几个词语需要注释，会得到不正确的换行，产生一个超长的水平溢出盒子，而用\linebreak强行打断的话，又会得到更多不正确的溢出

%% 我把原先的mwe作了修改，并将极端情况展现其中
%% xelatex 250207.tex
%% 要点1：原文一般就只有一个段落，内容较多时，要支持段落中间可以断页，注释同理，不过注释用enumerate的话是原生支持断页的
%% 要点2：“【原文】”这几个字符和原文的第一行之间不可断页，“【注释】”同理
%% 要点3：原文中的上标序号、标红的词语、解释的内容，和【注释】中的列表序号、标示的词条、解释的内容需要一一对应。我的粗略想法是为需要解释的内容声明一个新的盒子，以供随时调用，可惜我不会给盒子变量取名字，难倒英雄汉
\documentclass[UTF8]{ctexart}
\usepackage{xcolor}
\usepackage[margin=1.5cm,papersize={10.5cm,14.85cm}]{geometry}
\geometry{showframe}
% \usepackage{circledsteps}
\usepackage{needspace}
% \usepackage{zhlipsum}
\usepackage{circledtext}
\newcounter{parnote}
\iffalse
\newcommand\parnote[1]{%
    \textcolor{red}{#1}%
    \clap{~\stepcounter{parnote}}%
    ${}^{\Circled{\protect\theparnote}}$%
    \kern0em%
}
\fi
\iffalse
\newcommand\PARNOTE[2]{%我希望这个命令可以有2个参数，对于第1个参数我需要他在原文中标红，并在其后添加一个计数器来表示序号，对于第二个参数，我希望它是一个盒子变量，用来解释原文中标红的字或词语，另外，我希望在原文中使用\parnote{#1}{#2}命令后，在原文中只会排版标红的#1和上标序号，在注释中会自动生成列表序号、标示的词条、冒号以及使用刚才声明的盒子变量，调用盒子内容的命令准备是\usebox{#2}。列表序号和上标序号应该是要一一对应的，词条和解释也是对应的。有点类似于魔改版的脚注？
    \textcolor{red}{#1}%
    \clap{~\stepcounter{parnote}}%
    ${}^{\Circled{\protect\theparnote}}$%
    \kern0em%
    \makeatletter%
    \catcode`#1=11%%首先这个写法不知道对不对，其次#1不止一个字怎么办？
    \newsavebox{\PARNOTE@#1}\sbox{\PARNOTE@#1}{#2}%%自己臆想的命令名。可以用临时的命名吗
    \makeatother%
}
\fi
% \newcommand\qingling{\setcounter{parnote}{0}}%%希望在“【原文】”这两个字开始的时候就清零，且前面加上vskip2cm，使其看起来和上一段原文和注释分隔开来
\ExplSyntaxOn    
\clist_new:N \g_my_parnote_clist
\clist_new:N \g_my_parnotetxt_clist
\makeatletter
\newcounter{parnotecnt}
\NewDocumentCommand{\parnote}{O{red} m m}{%
    \refstepcounter{parnotecnt}
    \unskip\textcolor{#1}{#2}\hbox{\@textsuperscript{\normalfont\circledtext[charf=\small]{\arabic{parnotecnt}}}}\unskip
    \clist_gput_right:Nn \g_my_parnote_clist {#2}
    \clist_gput_right:Nn \g_my_parnotetxt_clist {#3}
}
\makeatother     
\NewDocumentEnvironment{PARNOTE}{+b}{%
    \setcounter{parnotecnt}{0}%
    \clist_clear:N \g_my_parnote_clist
    \clist_clear:N \g_my_parnotetxt_clist
    \needspace{\baselineskip}{\bfseries~【原文】}\par
    {#1} \par%\vspace{5pt}
    % \clist_use:Nn \g_my_parnote_clist {,}
    \clist_if_empty:NF {\g_my_parnote_clist}{%
         \needspace{.8\baselineskip}{\bfseries~【注释】}\par
         \int_step_inline:nn {\clist_count:N \g_my_parnote_clist}{%
            \noindent{##1}.~\clist_item:Nn \g_my_parnote_clist {##1}:~\clist_item:Nn \g_my_parnotetxt_clist {##1}~\par
         }
    }\vspace{2cm}%
}{}
\ExplSyntaxOff
\begin{document}
\begin{PARNOTE}

    制曰：“立皇子闳为\parnote{齐}{今山东淄博之临淄西北。今山东淄博之临淄西北。今山东淄博之临淄西北。今山东淄博之临淄西北。今山东淄博之临淄西北。}王,旦为\parnote{燕}{今北京。}\parnote{燕}{今北京。}\linebreak\parnote{燕}{今北京。}\parnote{燕}{今北京。}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为\parnote{广陵}{今江苏扬州西北。}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。

\end{PARNOTE}

\begin{PARNOTE}

    制曰：“立皇子闳为\parnote{齐}王,旦为\parnote{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为\parnote{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。

\end{PARNOTE}

\end{document}

@u101077 就像这个鬼样子：

@u101077 关于悬挂以及替换为带圈数字的问题，可以做如下修改：

\NewDocumentEnvironment{myenv}{+b}{%
    \setcounter{parnotecnt}{0}%
    \clist_clear:N \g_my_parnote_clist
    \clist_clear:N \g_my_parnotetxt_clist
    \needspace{\baselineskip}{\bfseries~【原文】}\par
    {#1} \par
    \clist_if_empty:NF {\g_my_parnote_clist}{%
         \needspace{\baselineskip}{\bfseries~【注释】}\par
         \int_step_inline:nn {\clist_count:N \g_my_parnote_clist}{%
            \noindent{\circledtext[charf=\small]{##1}}.~\clist_item:Nn \g_my_parnote_clist {##1}:~\clist_item:Nn \g_my_parnotetxt_clist {##1}~\par
         }
    }\vspace{2cm}%
}{}

只是把##1替换为\circledtext[charf=\small]{##1}.

@u101077 关于您提到的“鬼样子”，我不太觉得这是我的问题，我会新开一个问题。这个“鬼样子”的问题在这里应该也是存在的。

上面代码中的\unskip正是为了吞掉这个空格。

Editted 20250210(MayBe the final version):

@u101077 感谢这个链接，注意下面的空格只能在XeLaTeX下使用，在LuaLaTeX下空格处理效果有所不同。

\documentclass[UTF8]{ctexart}
\usepackage{xcolor}
\usepackage[margin=1.5cm,papersize={10.5cm,14.85cm}]{geometry}
\geometry{showframe}
\usepackage{needspace}
\usepackage{circledtext}
\usepackage{enumitem}
\newcounter{parnote}
\ExplSyntaxOn    
\clist_new:N \g_my_parnote_clist
\clist_new:N \g_my_parnotetxt_clist
\makeatletter
\newcounter{parnotecnt}
\NewDocumentCommand{\parnote}{O{red} m m}{%
    \refstepcounter{parnotecnt}
    \unskip\textcolor{#1}{#2}\hbox{\@textsuperscript{\normalfont\circledtext[charf=\small]{\arabic{parnotecnt}}}}\unskip
    \linebreak[1]%<<<<<<<<<<<<<<modified here! thanks to cabohah
    % https://tex.stackexchange.com/questions/736861/problem-of-linebreak-caused-by-the-space-after-footnote-in-ctex-documentclass#736866
    \clist_gput_right:Nn \g_my_parnote_clist {#2}
    \clist_gput_right:Nn \g_my_parnotetxt_clist {#3}
}
\makeatother     
\NewDocumentEnvironment{PARNOTE}{+b}{%
    \setcounter{parnotecnt}{0}%
    \clist_clear:N \g_my_parnote_clist
    \clist_clear:N \g_my_parnotetxt_clist
    \needspace{\baselineskip}{\bfseries~【原文】}\par
    {#1} \par
    \clist_if_empty:NF {\g_my_parnote_clist}{%
         \needspace{\baselineskip}{\bfseries~【注释】}\par
        %%%%%%%%%%%%%原版%%%%%%%%%%%%%%%%%%
        %  \int_step_inline:nn {\clist_count:N \g_my_parnote_clist}{%
        %     \noindent{\circledtext{##1}}.~\clist_item:Nn \g_my_parnote_clist {##1}:~\clist_item:Nn \g_my_parnotetxt_clist {##1}\par
        %  }
        %%%%%%%%%%%%%原版%%%%%%%%%%%%%%%%%%
        %%%%%%%%%%%%%使用itemize输出%%%%%%%%%%%%%
        %%%%%%%%%%%%%对行距不够满意的话可以自己看enumitem修改下%%%%%%%%%%%%%
        \begin{itemize}%
             \int_step_inline:nn {\clist_count:N \g_my_parnote_clist}{%
               \item[\circledtext{##1}]~\clist_item:Nn \g_my_parnote_clist {##1}:~\clist_item:Nn \g_my_parnotetxt_clist {##1}\par%
             }%
        \end{itemize}%
    }\vspace{2cm}%
}{}
\ExplSyntaxOff
\begin{document}
\begin{PARNOTE}
    制曰：“立皇子闳为\parnote{齐}{这是为了测试悬挂缩进这是为了测试悬挂缩进}王,旦为\parnote{燕}{今北京。}\parnote{齐}{这是为了测试悬挂缩进这是为了测试悬挂缩进}\parnote{燕}{今北京。}\parnote{齐}{这是为了测试悬挂缩进这是为了测试悬挂缩进}\parnote{燕}{今北京。}王,胥为{广陵}王。制曰：“立皇子闳为{齐}王,旦为{燕}王,胥为{广陵}王。
\end{PARNOTE}
\end{document}