CAD programy 4M
(dictadd ename symbol newobj)
Přidá non-gtafický objekt do slovníku.
Funkce dictadd přidá objekt (newobj) do slovníku (ename), kde je symbol klíčové slovo objektu, které se přidává do slovníku. Každý symbol musí být jedinečné jméno, které ještě ve slovníku neexistuje. Každý objekt přidávaný do slovníku, musí být jedinečný v tom slovníku.
PŘÍKLAD:
Funkce dictadd přidá objekt (newobj) do slovníku (ename), kde je symbol klíčové slovo objektu, které se přidává do slovníku. Každý symbol musí být jedinečné jméno, které ještě ve slovníku neexistuje. Každý objekt přidávaný do slovníku, musí být jedinečný v tom slovníku.
PŘÍKLAD:
; Create an entity list
(setq dictionary (list '(0 . "DICTIONARY") '(100 . "AcDbDictionary")))
; Create an entity from entity list
:(setq xname (entmakex dictionary))
; Get the named object dictionary
(setq nmdict (namedobjdict))
; Add a record to dictionary table
(setq newdict (dictadd nmdict "MY_DICTIONARY" xname))
; Create an entity list
(setq datalist (append (list '(0 . "XRECORD") '(100 . "AcDbXrecord")) '((1 . "MY_DATA") (10 1. 2. 3.) (70 . 33))))
; Create an entity from entity list
(setq xname (entmakex datalist))
; Add a record and return the entity name of the object added to the dictionary.
(dictadd newdict "DATA_RECORD" xname)