dictadd（AutoLISP）

签名

(dictadd ename symbol newobj)

返回值

类型：名称（实体名称）

添加到字典中的对象的实体名称。

言论

作为一般规则，添加到字典中的每个对象对于该字典必须是唯一的。在将组对象添加到组字典时，这尤其是一个问题。使用不同的键名添加相同的组对象会导致重复的组名，这可能会将函数发送到无限循环中。dictnext

例子

下面的示例创建对象并将其添加到命名对象字典中。

创建字典条目列表：

(setq dictionary (list '(0 . "DICTIONARY") '(100 . "AcDbDictionary")))
((0 . "DICTIONARY") (100 . "AcDbDictionary"))

使用函数创建一个字典对象：entmakex

(setq xname (entmakex dictionary))(setq xname (entmakex dictionary))
<Entity name: 1d98950>

将字典添加到命名对象字典：

(setq newdict (dictadd (namedobjdict) "MY_WAY_COOL_DICTIONARY" xname))
<Entity name: 1d98950>

创建一个 Xrecord 列表：

(setq datalist (append (list '(0 . "XRECORD")
                                 '(100 . "AcDbXrecord"))
                                 '((1 . "This is my data") (10 1. 2. 3.) (70 . 33))))
((0 . "XRECORD") (100 . "AcDbXrecord") (1 . "This is my data") (10 1.0 2.0 3.0) (70 . 33))

创建一个 Xrecord 对象：

(setq xname (entmakex datalist))
<Entity name: 1d98958>

将 Xrecord 对象添加到字典中：

(dictadd newdict "DATA_RECORD_1" xname)
<Entity name: 1d98958>