AutoCAD MText编辑器支持的有效项目符号字符有哪些？

一、有效项目符号字符范围 #

AutoCAD MText对项目符号的支持依赖字体渲染能力+内部解析规则，并非全Unicode范围都支持，常见有效字符分为两类：

• 基础ASCII符号：-（连字符）、*（星号）、+（加号），无需额外字体支持，所有字体都能渲染。
• 支持的Unicode符号（需当前MText字体包含对应字符）：
  • 常用符号：U+2022（• 实心圆点）、U+2023（‣ 三角圆点）、U+2043（⁃ 短破折号）、U+25E6（◦ 空心圆点）、U+25AA（▪ 实心小方块）
  • 拉丁扩展D区部分字符：如U+A78A（꞊）、U+A78B（Ꞌ）、U+A78C（ꞌ）等（仅部分字符可被AutoCAD解析为项目符号，需实际测试）

注意：若字体不包含对应Unicode字符，AutoCAD会显示为方块（□），需确保MText使用的字体（如Arial Unicode MS、SimSun-ExtB）支持目标字符。

二、Python实现方案（基于win32com） #

通过Python调用AutoCAD ActiveX API创建带指定项目符号的MText：

import win32com.client

def create_mtext_with_bullet():
    # 连接AutoCAD实例
    acad = win32com.client.Dispatch("AutoCAD.Application")
    doc = acad.ActiveDocument
    model_space = doc.ModelSpace

    # 定义项目符号（这里用U+2022实心圆点）
    bullet_char = "\u2022"
    # MText内容，每行前加项目符号+空格
    mtext_content = f"{bullet_char} 第一行内容\n{bullet_char} 第二行内容\n{bullet_char} 第三行内容"

    # 在模型空间插入MText，位置(0,0,0)，宽度100
    mtext_obj = model_space.AddMText((0, 0, 0), 100, mtext_content)
    # 设置字体（确保支持Unicode）
    mtext_obj.TextStyleName = "Standard"  # 或使用支持Unicode的字体名

if __name__ == "__main__":
    create_mtext_with_bullet()

三、VBA实现方案 #

在AutoCAD VBA编辑器中运行以下宏：

Sub AddMTextWithBullet()
    Dim mtextObj As AcadMText
    Dim bulletChar As String
    Dim mtextContent As String
    Dim insertPoint(0 To 2) As Double
    
    ' 插入位置
    insertPoint(0) = 0: insertPoint(1) = 0: insertPoint(2) = 0
    ' 项目符号：U+2022实心圆点
    bulletChar = ChrW(&H2022)
    ' 组装内容
    mtextContent = bulletChar & " 第一行内容" & vbCrLf & _
                   bulletChar & " 第二行内容" & vbCrLf & _
                   bulletChar & " 第三行内容"
    
    ' 创建MText
    Set mtextObj = ThisDrawing.ModelSpace.AddMText(insertPoint, 100, mtextContent)
    ' 设置支持Unicode的字体
    mtextObj.TextStyleName = "Standard"
End Sub

四、AutoLISP实现方案 #

在AutoCAD命令行加载并运行以下代码：

(defun c:AddMTextBullet (/ insertPt bulletChar mtextContent)
    ;; 插入点(0,0,0)
    (setq insertPt '(0 0 0))
    ;; 项目符号：U+2022实心圆点，用chr转义
    (setq bulletChar (chr #x2022))
    ;; 组装内容
    (setq mtextContent (strcat bulletChar " 第一行内容\n"
                               bulletChar " 第二行内容\n"
                               bulletChar " 第三行内容"))
    ;; 创建MText，宽度100
    (entmake (list '(0 . "MTEXT")
                   (cons 10 insertPt)
                   (cons 40 100.0)
                   (cons 1 mtextContent)
                   (cons 7 "Standard"))) ; 设置字体样式
    (princ)
)

内容的提问来源于stack exchange，提问作者Michelle