如何在代码中通过(command "_.-mtext")设置Mtext的样式、颜色等属性？

AutoCAD中创建多行文本（Mtext）主要有两种编程实现方式：调用命令行的_.-mtext命令，或者通过ActiveX对象直接操作。以下是两种方式下设置样式、颜色、对齐、高度、位置等属性的具体实现：

一、使用(command)调用命令行方式 #

_.-mtext是Mtext命令的无对话框版本，需按照命令行交互顺序传递参数，核心是通过指定选项关键字来设置属性。

核心参数设置示例 #

;; 先取消可能正在运行的命令
(command "_cancel")

;; 设置当前颜色（1=红色，0=随层，也可使用"RGB(255,0,0)"格式）
(setvar "CECOLOR" 1)

;; 创建Mtext并设置样式、高度、对齐、位置、内容
(command
  "_.-mtext"
  "S" "MyCustomStyle"  ; 指定样式（S=Style选项，后跟已存在的样式名）
  (list 10 10 0)       ; 插入点坐标（X,Y,Z）
  "H" 2.5              ; 设置文本高度（H=Height选项，后跟数值）
  "J" "TC"             ; 设置对齐方式（J=Justify选项，后跟对齐代码）
  "这是多行文本的第一行\n第二行内容"  ; 文本内容，用\n换行
)

关键选项说明 #

• 样式(Style)：通过"S"选项指定已存在的样式名称，样式需提前在AutoCAD中创建。
• 颜色(Color)：Mtext的颜色默认继承当前图层颜色，可通过(setvar "CECOLOR" 颜色值)提前设置当前颜色：
  • 索引色：0=随层，1-255为标准索引色（如1=红、2=黄）
  • RGB颜色：使用字符串格式"RGB(255,0,0)"（红）
• 对齐方式(Justify)：通过"J"选项指定对齐代码，常用代码包括：
  • TL（顶部左对齐）、TC（顶部居中）、TR（顶部右对齐）
  • ML（中间左对齐）、MC（中间居中）、MR（中间右对齐）
  • BL（底部左对齐）、BC（底部居中）、BR（底部右对齐）
• 文本高度(Text Height)：通过"H"选项指定数值，单位与当前绘图单位一致。
• 位置(Position)：用(list X Y Z)格式指定插入点坐标，Z值可省略（默认0）。

二、使用ActiveX对象方式 #

通过AutoCAD的ActiveX接口可以直接创建Mtext对象并设置属性，这种方式更灵活，无需依赖命令行交互顺序。

核心代码示例 #

;; 获取AutoCAD应用和当前文档对象
(setq acadApp (vlax-get-acad-object))
(setq acadDoc (vla-get-ActiveDocument acadApp))

;; 在模型空间创建Mtext（插入点、宽度、初始文本）
(setq mtextObj
      (vla-AddMText
        (vla-get-ModelSpace acadDoc)  ; 目标空间（模型空间/图纸空间）
        (vlax-3d-point 20 20 0)       ; 插入点坐标
        0                             ; 文本宽度（0表示自动换行）
        "ActiveX创建的多行文本\n支持直接设置属性"
      )
)

;; 设置样式
(vla-put-StyleName mtextObj "MyCustomStyle")

;; 设置文本高度
(vla-put-Height mtextObj 3.0)

;; 设置对齐方式（使用acAlignment枚举值）
;; 枚举值：acAlignmentTopLeft=1, acAlignmentTopCenter=2, acAlignmentTopRight=3
;; acAlignmentMiddleLeft=4, acAlignmentMiddleCenter=5, acAlignmentMiddleRight=6
;; acAlignmentBottomLeft=7, acAlignmentBottomCenter=8, acAlignmentBottomRight=9
(vla-put-Alignment mtextObj acAlignmentTopCenter)

;; 设置颜色
;; 方式1：使用索引色枚举（acRed=1, acYellow=2）
(vla-put-Color mtextObj acRed)
;; 方式2：使用RGB颜色值（需转换为variant类型）
;; (vla-put-Color mtextObj (vlax-make-variant 0xFF0000 vlax-vbLong))

关键属性说明 #

• StyleName：直接赋值已存在的样式名称字符串。
• Height：赋值数值型的文本高度。
• Alignment：赋值AutoCAD内置的acAlignment枚举值，对应不同对齐方式。
• Color：可使用索引色枚举（如acRed），或通过vlax-make-variant转换RGB值为长整型变量。
• TextString：可通过(vla-put-TextString mtextObj "新文本内容")修改文本内容。

内容的提问来源于stack exchange，提问作者Jesse O'Neill