分享几个辞典操作的函数

Lisphk · 发表于 2017-5-18 17:20:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; dictionary functions
;; POSSIBLE IMPROVEMENTS: support trees of dictionaries
;; now: all custom dictionaries are under the Root.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Get Dictionary Object Name From Root Dictionary
(defun dict-name (name / d0 d)
;; name As string
(if (Setq d0 (namedobjdict)
d (dictsearch d0 name)
)
(cdr (assoc -1 d))
)
)
;; Remove Dictionary <Name> From Root Dictionary
(defun dict-remove (name / d0)
;; name As string
(if (dictsearch (Setq d0 (namedobjdict)) name)
(dictremove d0 name)
)
)
;; Make A New Empty Dictionary; Reset Existing.
(defun dict-new (name / d0)
;; name As string
(if (dictsearch (Setq d0 (namedobjdict)) name)
(dictremove d0 name)
)
(dictadd d0
name
(entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary")))
)
)
;; List A Dictionary As Pairs {Name . Object Name}
(defun dict-list (dname / d nl)
;; dname As object name or string else ROOT
(cond
((and (Setq d (cond
((= 'ENAME (type dname))
dname
)
((= 'STR (type dname))
(dict-name dname)
)
(T (namedobjdict))
)
)
(Setq d (entget d))
)
(while (setq d (member (assoc 3 d) d))
(if (= 350 (caadr d))
(setq nl (cons (cons (cdar d) (cdadr d)) nl))
)
(setq d (cdr d))
)
(reverse nl)
)
)
)
;; Get Raw <Name> Dictionary Data for <Key>
(defun dict-getrawdata (name key / d)
;; name and key As strings
(if (setq d (dict-name name))
(dictsearch d key)
)
)
;; Clear The <Key> From Dictionary <Name>
(defun dict-clear (name key / d)
;; name and key As strings
(if (setq d (dict-name name))
(dictremove d key)
)
)
;;;;;;;~~~~~~~~~~~~~~~~~~~~~~~~~~~~;;;;;;;
;;;;;;; The two working functions: ;;;;;;;
;;;;;;;____________________________;;;;;;;
;; Get A <Key> Value From Dictionary <Name>
(defun dict-get (name key)
;; name and key As strings
(x-relist ;; decode the data!
(cdr (member '(100 . "AcDbXrecord")
(dict-getrawdata name key)
)
)
)
)
;; Put A <Val>ue Into <Name> Dictionary Under <Key>
;; Dictionary is created automatically if was not existing
(defun dict-put (name key val)
;; three arguments As strings
(dict-clear name key)
;; clear the old value under this Key
(dictadd
(cond ((dict-name name))
((dict-new name))
)
key
(entmakex
(cons '(0 . "XRECORD")
(cons '(100 . "AcDbXrecord")
(x-enlist val)
)
)
)
)
)
;; encode the data!
;;
;; POSSIBLE IMPROVEMENTS:
;; implement dict-append ( APPEND PREPEND )
;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;; dictionary functions 
;; POSSIBLE IMPROVEMENTS: support trees of dictionaries 
;;      now: all custom dictionaries are under the Root. 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 
;; Get Dictionary Object Name From Root Dictionary 
(defun dict-name (name / d0 d) 
  ;; name As string 
  (if (Setq d0 (namedobjdict) 
            d  (dictsearch d0 name) 
      ) 
    (cdr (assoc -1 d)) 
  ) 
) 
 
;; Remove Dictionary <Name> From Root Dictionary 
(defun dict-remove (name / d0) 
  ;; name As string 
  (if (dictsearch (Setq d0 (namedobjdict)) name) 
    (dictremove d0 name) 
  ) 
) 
 
;; Make A New Empty Dictionary; Reset Existing. 
(defun dict-new        (name / d0) 
  ;; name As string 
  (if (dictsearch (Setq d0 (namedobjdict)) name) 
    (dictremove d0 name) 
  ) 
  (dictadd d0 
           name 
           (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary"))) 
  ) 
) 
 
;; List A Dictionary As Pairs {Name . Object Name} 
(defun dict-list (dname / d nl) 
  ;; dname As object name or string else ROOT 
  (cond 
    ((and (Setq        d (cond 
                    ((= 'ENAME (type dname)) 
                     dname 
                    ) 
                    ((= 'STR (type dname)) 
                     (dict-name dname) 
                    ) 
                    (T (namedobjdict)) 
                  ) 
          ) 
          (Setq d (entget d)) 
     ) 
     (while (setq d (member (assoc 3 d) d)) 
       (if (= 350 (caadr d)) 
         (setq nl (cons (cons (cdar d) (cdadr d)) nl)) 
       ) 
       (setq d (cdr d)) 
     ) 
     (reverse nl) 
    ) 
  ) 
) 
 
;; Get Raw <Name> Dictionary Data for <Key> 
(defun dict-getrawdata (name key / d) 
  ;; name and key As strings 
  (if (setq d (dict-name name)) 
    (dictsearch d key) 
  ) 
) 
 
;; Clear The <Key> From Dictionary <Name> 
(defun dict-clear (name key / d) 
  ;; name and key As strings 
  (if (setq d (dict-name name)) 
    (dictremove d key) 
  ) 
) 
 
;;;;;;;~~~~~~~~~~~~~~~~~~~~~~~~~~~~;;;;;;; 
;;;;;;; The two working functions: ;;;;;;; 
;;;;;;;____________________________;;;;;;; 
 
;; Get A <Key> Value From Dictionary <Name> 
(defun dict-get        (name key) 
  ;; name and key As strings 
  (x-relist ;; decode the data! 
            (cdr (member '(100 . "AcDbXrecord") 
                         (dict-getrawdata name key) 
                 ) 
            ) 
  ) 
) 
 
;; Put A <Val>ue Into <Name> Dictionary Under <Key> 
;; Dictionary is created automatically if was not existing 
(defun dict-put        (name key val) 
  ;; three arguments As strings 
  (dict-clear name key) 
  ;;  clear the old value under this Key 
  (dictadd 
    (cond ((dict-name name)) 
          ((dict-new name)) 
    ) 
    key 
    (entmakex 
      (cons '(0 . "XRECORD") 
            (cons '(100 . "AcDbXrecord") 
                  (x-enlist val) 
            ) 
      ) 
    ) 
  ) 
) 
;; encode the data! 
;; 
;; POSSIBLE IMPROVEMENTS: 
;;    implement dict-append ( APPEND PREPEND ) 
;;;;;;;;;;;;;;;;;;;;;;;

账号		自动登录	找回密码
密码			立即注册

[每日一码] 分享几个辞典操作的函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。