☰

输入参数：

tag-icon • tag-icon chemfig
输入参数：

我想知道是否有一种方法可以自动定义环中的原子，而无需手动编写每个原子。例如，如果我想这样做：

\chemfig{A*6(-A-A-A-A-A-)}

或这个：

\chemfig{**6((-A)-(-A)-(-A)-(-A)-(-A)-(-A)-)}

增强环

我必须写六次A或(-A)。我们能否以某种方式自动执行此操作（例如通过重新定义债券的定义）？在理想情况下，命令应如下所示

\chemfig{**6[(-A)]{------}

你知道该怎么做吗？谢谢。

答案1

\atom{#1}{#2}{#3}我为两个版本（\chemfig{A*6(-A-A-A-A-A-)}和）创建了命令\chemfig{**6((-A)-(-A)-(-A)-(-A)-(-A)-(-A)-)}。代码中充满了 for 循环。版本（* 和 **）用 处理ifcase。

输入参数：

  • #1：使用 1 或 2 -> 1 = 环；2 = 环/内弧
  • #2：元素数量 -> 例如 6
  • #3：化学元素符号 ->

结果\atom{1}{6}{A}：\atom{2}{6}{B}

在此处输入图片描述

梅威瑟：

\documentclass{article}
\usepackage{chemfig}
\newcommand{\atom}[3]
{
%#1: * or ** => 1 or 2
%#2: number of elements => number
%#3: element => letter
\ifcase#1
\or%\if#1=1
\def\CZ{#3}
\def\N{#2}
\def\myarray{-}

\pgfmathparse{\N-1}
\def\lastIndex{\pgfmathresult}

\foreach \i in {1,2,...,\lastIndex}
{
\edef\myarray{\myarray\CZ-}
\afterforeachdef\myarray
}
\edef\myarray{\CZ*\N(\myarray)}
\expandafter\chemfig\expandafter{\myarray}%https://tex.stackexchange.com/q/399618/124842
\or%\if#1=2 %Version 2 with **
\def\CZ{#3}
\def\N{#2}
\def\myarray{}
\pgfmathparse{\N}
\def\lastIndex{\pgfmathresult}
\foreach \i in {1,2,...,\lastIndex}
{
\edef\myarray{\myarray(-\CZ)-}
\afterforeachdef\myarray
}
\edef\myarray{**\N(\myarray)}
\expandafter\chemfig\expandafter{\myarray}
 \else 
  Wrong input number! Use 1 or 2 (argument \#1).
\fi
}

% ------------------------------------------------------------
%%%%% @Paul Gaborit:https://tex.stackexchange.com/a/69508/124842
\usepackage{etextools}
\makeatletter
% define a macro after current iteration
\newcommand\afteriterationdef[1]{\aftergroup@def#1}
% define a macro after foreach (and after iteration)
\newcommand\afterforeachdef[1]{\afteriterationdef{#1}\AfterGroup{\aftergroup@def#1}}
\makeatother
% ------------------------------------------------------------
\begin{document}
\atom{1}{6}{A}

\atom{2}{6}{B}
\end{document}

參考文獻：

@PaulGaborit：如何在 foreach 循环中定义宏并在迭代之间和循环后产生效果而不使用全局？

@egreg：是否可以使用宏作为 \chemfig 的输入参数？

相关内容