;| http://www.theswamp.org/index.php?topic=55350.0
(setq r
(
(lambda ( / _Point L r )
(defun _Point ()(cdr (assoc 5 (entget (entmakex '((0 . "POINT")(10 0.0 0.0 0.0)))))))
(foreach x '("SS1" "SS2" "SS3" "SS4" "SS5")
(repeat 15000
(setq L (cons (_Point) L))
)
(setq r (cons (cons x L) r))
(setq L nil)
)
(reverse r)
)
)
)
; Sample list to be stored into dictionaries (r) -
'( ; (car) - SS's name ; (cdr) - List of handles
("SS1" "26C" "26B" "26A" "269" ...)
("SS2" "270" "26F" "26E" "26D" ...)
("SS3" "274" "273" "272" "271" ...)
("SS4" "278" "277" "276" "275" ...)
("SS5" "27C" "27B" "27A" "279" ...)
)
(setq Dic "MyDictionary")
(_IncludeDataIntoMainDic Dic r)
(_GetDataFromMainDic Dic)
_$ (mapcar 'length (_GetDataFromMainDic "MyDictionary"))
(15001 15001 15001 15001 15001)
_$ (mapcar 'length r)
(15001 15001 15001 15001 15001)
_$ (equal r (_GetDataFromMainDic "MyDictionary") 1e-1)
(_IncludeDataIntoMainDic Dic nil)
|;
; (_IncludeDataIntoMainDic "MyDictionary" r)
(defun _IncludeDataIntoMainDic
( DicName dataL
/ maindic subdict dic
) (prompt "\nInvalid Dictionary name.") )
(t
(setq subdict
(entmakex '
((0 .
"DICTIONARY")(100 .
"AcDbDictionary")))) '((0 . "XRECORD") (100 . "AcDbXrecord"))
)
)
)
); lambda
)
dataL
)
)
); if dataL
); t
); cond
); defun _IncludeDataIntoMainDic
; (_GetDataFromMainDic "MyDictionary")
(defun _GetDataFromMainDic
( DicName
/ tmp e r
) ); and
r
); defun _GetDataFromMainDic