如何绘制一个能够指定长度的且能够换行的hrule？

2 个回答

雾月 2025-04-19

这家伙很懒，什么也没写！

\documentclass[UTF8]{ctexart}%pdflatex编译
\usepackage[showframe,margin=1in]{geometry}
\usepackage{enumitem}
    \setlist[enumerate]{nosep,labelsep=0pt,leftmargin=2em}
\usepackage{multicol}
    \setlength{\columnseprule}{.4pt}
    \setlength{\columnsep}{1cm}

\makeatletter
\newcommand\brule[3][\z@]{\leavevmode
  {\setlength\@tempdima{#2}\setlength\@tempdimb{#1}\setlength\@tempdimc{#3}%
   \@tempcnta=\fpeval{ceil(\@tempdima/5pt)}
   \kern\z@
   \loop\ifnum\@tempcnta>\z@
     \vrule \@width 5pt \@height \@tempdimc \@depth -\@tempdimb \hskip\z@skip
     \advance\@tempcnta\m@ne
   \repeat \unskip
}}
\makeatother
\begin{document}

\noindent\textbf{16. }补写出下列句子中的空缺部分。（6分）

\begin{multicols}{2}

\begin{enumerate}[label=（\arabic{enumi}）]
    \item 
    王湾《次北固山下》的名句“\brule{9em}{.4pt}，\brule{9em}{.4pt}”，描写时序交替中的景物，暗示着时光流逝，蕴含着自然理趣。
    \item 
    小慧为朋友家的农家乐餐厅写宣传横幅，直接使用了陆游《游山西村》里的“\brule{9em}{.4pt}，\brule{9em}{.4pt}”两句诗，朋友看了觉得很贴切。
    \item 
    行至群山深处，见到一挂瀑布飞泻而下，水石激荡，轰鸣作响，于老师回头对学生们说：“这不就是古诗中写的‘\brule{9em}{.4pt}，\brule{9em}{.4pt}’嘛！”
\end{enumerate}

\end{multicols}

\noindent\textbf{参考答案：}

\begin{enumerate}[label=（\arabic{enumi}）]
    \item 
    海日生残夜\quad 江春入旧年
    \item 
    山重水复疑无路\quad 柳暗花明又一村
    \item 
    飞流直下三千尺\quad 疑是银河落九天（飞湍瀑流争喧豗\quad 砯崖转石万壑雷）
\end{enumerate}

\end{document}

略微改进版：

\newcommand\brule[3][\z@]{\leavevmode
  {\setlength\@tempdima{#2}\setlength\@tempdimb{#1}\setlength\@tempdimc{#3}%
   \@tempcnta=\fpeval{ceil(\@tempdima/5pt)} \@tempdima=\dimexpr5pt/\@tempcnta\relax\relax
   \ifnum\@tempcnta>\z@
     \loop\ifnum\@tempcnta>\z@
       \vrule \@width 5pt\@height\@tempdimc \@depth-\@tempdimb \hskip\z@\@minus\@tempdima\relax
       \advance\@tempcnta\m@ne
     \repeat
   \unskip\fi
}}

Sagittarius Rover 2025-04-19

我要成为Typst糕手/(ㄒoㄒ)/~~

尝试拜读了一下(★ ω ★)：

\makeatletter
%%%\brule吞三个参数,其中第一个默认可选参数为0(似乎是vrule盒子的深度向上回缩多少)
\newcommand\brule[3][\z@]{\leavevmode
%%%第一个必须参数为换行的总长度,第二个参数为rule的粗细
  {\setlength\@tempdima{#2}\setlength\@tempdimb{#1}\setlength\@tempdimc{#3}%%%
  %\@tempdima=总长度；\@tempdimb=rule的粗细；\@tempdimc=默认参数
   \@tempcnta=\fpeval{ceil(\@tempdima/5pt)}
   %%%按5pt为最小长度单位生成横线，计算需要多少个5pt的横线
   \kern\z@
   \loop\ifnum\@tempcnta>\z@
   %%%用\loop...\repeat实现一个循环『for(i=\@tempcnta;i>0;i--)』...
     \vrule \@width 5pt \@height \@tempdimc \@depth -\@tempdimb \hskip\z@skip
     \advance\@tempcnta\m@ne
   %%%每次只生成5pt的短横线，由于将整个过程拆分为N*5pt，自然可以实现换行！
   \repeat\unskip
}}
\makeatother

想顺便再问个小问题：

有没有哪里有类似的实现可以做参考(doge)?
\kern\z@,\hskip\z@skip以及\unskip的作用可否做下解释，虽然我能搜到他们各自的含义是『长度为0的间距』，『参数为0pt plust0pt minus0pt的水平skip』以及『\unskip如果当前列上的最后一项是一个glue,就去掉他』但在这个具体例子里的作用还是相对有点迷惑的。谢谢雾月老师~

雾月 2025-04-19

这家伙很懒，什么也没写！

@u70550 xeCJKfntef、xsim 等宏包都有类似的实现，不管它们相对比较复杂，或许 https://tex.stackexchange.com/ 上也有。

\kern\z@ 是为了阻止 \unskip 移除 rule 之前的 glue，我这里是偷懒了，实际可以判断一下。

\hskip\z@skip 是为了创建可断点，如果没有这个，同样不可能断行。其它能创建可断点的也行，比如 \penalty\z@。

\unskip 移除最后一个 \hskip 避免创建不需要的可断点。

\loop 不是原语。

Sagittarius Rover 2025-04-19

我要成为Typst糕手/(ㄒoㄒ)/~~

@u10307 感谢您，\loop...\repeat在texbook的20章有，刚才下意识以为是了（逃，已修改）

关键点在于\hskip\z@skip,再次感谢您的指导！

请登录后再发布评论，点击登录

追加回复

Sagittarius Rover 2025-04-21

我要成为Typst糕手/(ㄒoㄒ)/~~

希望上下两行的能够换行的答题线长度之和是定值，暂定为9em，考虑到通用性，希望可以指定任意合理的长度

不完全符合OP的需求，但也许可以借用xeCJkfntef提供的hidden选项，用多个啊之间的间隙来实现自动换行。

\documentclass{ctexart}
\usepackage[showframe,margin=1in]{geometry}
\usepackage{enumitem}
\setlist[enumerate]{nosep,labelsep=0pt,leftmargin=2em}
\usepackage{multicol}
\setlength{\columnseprule}{.4pt}
\setlength{\columnsep}{1cm}
\usepackage{xeCJKfntef}
\newcommand{\gentext}[2][啊]{%
    \ifnum#2>0\relax%
        #1\gentext{\numexpr#2-1}\unskip%
    \fi%
}
\newcommand*{\myrule}[2][.4pt]{%
    \CJKunderline[hidden,thickness=#1]{\gentext{#2}，\gentext{#2}}
}
\begin{document}

\noindent\textbf{16. }补写出下列句子中的空缺部分。（6分）

\begin{multicols}{2}

\begin{enumerate}[label=（\arabic{enumi}）]
    \item 
    王湾《次北固山下》的名句“\myrule{5}”，描写时序交替中的景物，暗示着时光流逝，蕴含着自然理趣。
    \item 
    小慧为朋友家的农家乐餐厅写宣传横幅，直接使用了陆游《游山西村》里的“\myrule{7}”两句诗，朋友看了觉得很贴切。
    \item 
    行至群山深处，见到一挂瀑布飞泻而下，水石激荡，轰鸣作响，于老师回头对学生们说：“这不就是古诗中写的‘\myrule{9}’嘛！”
\end{enumerate}

\end{multicols}

\noindent\textbf{参考答案：}

\begin{enumerate}[label=（\arabic{enumi}）]
    \item 
    海日生残夜\quad 江春入旧年
    \item 
    山重水复疑无路\quad 柳暗花明又一村
    \item 
    飞流直下三千尺\quad 疑是银河落九天（飞湍瀑流争喧豗\quad 砯崖转石万壑雷）
\end{enumerate}

\end{document}