; 对当前图形里的常规词典进行列表-dicts
(defun C:mini_dicts ( / old)cmd  xdoc xdicts xi xc xii xlst xname xhl myGetCount slst)

   (defun myGetCount ( xd xn / xitem n)
      (setq xitem (vla-item xd xn)
            n (vl-catch-all-apply 'vlax-get (list xitem 'count))
      )
      (if (vl-catch-all-error-p n)
           "####"
           (itoa n)
      )
   )

   (mini_start nil)
   (mai_last_com "mini_dicts")
   (setq xdoc (vlax-get (vlax-get-Acad-Object) 'ActiveDocument)
         xdicts (vlax-get xdoc 'dictionaries)
         xdictlist (entget (namedobjdict))
         xi -1
         xc (1- (length xdictlist))
         xii 0
   )
   (while (< xi xc)
      (setq xi (1+ xi)
            xlst (nth xi xdictlist)
      )
      (if (= (car xlst) 3)
          (setq xii (1+ xii)
                xi (1+ xi)
                xname (cdr xlst)
                slst (cons (strcat (mai_fix_text_len (itoa xii) 5 ".")
                                   "."
                                   (mai_fix_text_len xname 35 ".")
                                    "...."
                                   (mai_fix_text_len (myGetCount xdicts xname) 4 ".")
                                    "."
                           )
                           slst
                     )
               xhl (cons (cdr (nth xi xdictlist)) xhl)
          )
      )
   )
   (setq xhl (reverse xhl)
         slst (reverse slst)
         xi (mai_list_select "常规词典列表,选择删除条目" slst nil T)
   )
   (foreach slst xi (entdel (nth slst xhl)))
   (mai_end)
)  ; end of (C:dicts)