关于字典对象和条目（AutoLISP）

字典是一个容器对象，类似于符号表。

字典存储在图形的命名对象字典中，该字典是图形中所有非图形对象的根目录，或作为附加到对象的扩展字典存储。每个图形可以包含不同的词典，因此例程不应期望图形中可能存在特定的词典。可以使用 访问图形的命名对象字典中的字典，该字典返回图元名称。用于访问表示图形中所有字典的实体列表。namedobjdictentget

以下规则适用于字典对象：

• 可以使用 检查字典对象，并使用 修改其 xdata。他们的条目不能用 .对其条目的所有访问都是通过 and 函数进行的。entgetentmodentmoddictsearchdictnext
• 字典条目内容无法通过 修改，但可以修改 xdata。entmod
• 以 ACAD* 开头的字典条目无法重命名。

可以使用 和 函数查询字典条目。每个字典条目都包含一个文本名称键和对条目对象的硬所有权句柄引用。可以通过直接将条目对象名称传递给函数来删除字典条目。文本名称键使用与符号表名称相同的语法和有效字符。可以使用该函数更改键名称。dictsearchdictnextentdeldictrename

下面的示例代码列出了绘图的命名对象字典中的每个字典及其条目：

(defun c:ListDictionaries ( / ed ed1)
  (prompt "\nDictionaries in current drawing: ")
  (foreach ed (entget (namedobjdict))
    (progn
      (cond ((= (car ed) 3)
        (prompt (strcat "\n" (cdr ed))))
            ((= (car ed) 350)
        (progn
          (foreach ed1 (entget (cdr ed))
            (if (= (car ed1) 3)
              (prompt (strcat "\n  " (cdr ed1)))
            )
          )
        ))
      )
    )
  )
 (princ)
)

以下是执行后可能在“文本历史记录”窗口中看到的输出示例。c:ListDictionaries

Dictionaries in current drawing:
ACAD_CIP_PREVIOUS_PRODUCT_INFO
ACAD_COLOR
ACAD_DETAILVIEWSTYLE
  Imperial24
ACAD_GROUP
ACAD_LAYOUT
  Layout1
  Layout2
  Model
ACAD_MATERIAL
  ByBlock
  ByLayer
  Global
ACAD_MLEADERSTYLE
  Annotative
  Standard
ACAD_MLINESTYLE
  Standard
ACAD_PLOTSETTINGS
ACAD_PLOTSTYLENAME
  Normal
ACAD_SCALELIST
  A0
  A1
  A2
  A3
  A4
  A5
  A6
  A7
  A8
  A9
  B0
  B1
  B2
  B3
  B4
  B5
  B6
  B7
  B8
  B9
  C0
  C1
  C2
  C3
  C4
  C5
  C6
  C7
  C8
  C9
  D0
  D1
  D2
ACAD_SECTIONVIEWSTYLE
  Imperial24
ACAD_TABLESTYLE
  Standard
ACAD_VISUALSTYLE
  2dWireframe
  Basic
  Brighten
  ColorChange
  Conceptual
  Dim
  EdgeColorOff
  Facepattern
  Flat
  FlatWithEdges
  Gouraud
  GouraudWithEdges
  Hidden
  JitterOff
  Linepattern
  OverhangOff
  Realistic
  Shaded
  Shaded with edges
  Shades of Gray
  Sketchy
  Thicken
  Wireframe
  X-Ray
AcDbVariableDictionary
  CANNOSCALE
  CMLEADERSTYLE
  CTABLESTYLE
  CVIEWDETAILSTYLE
  CVIEWSECTIONSTYLE
  DIMASSOC
  HIDETEXT
  LAYEREVAL
  LAYERNOTIFY