vectra 发表于 2015-5-4 12:02:17

统计分析词典中对象的数量

本帖最后由 vectra 于 2015-5-4 12:04 编辑

我们有时拿到一些图，文件很大又不知道到底是什么东西占用了那么多空间，这个工具可以帮助分析是不是词典中的内容太多了。然后大家可以利用dictremove等去清理。

(defun report-dictionary (dic /)
(vlax-for e dic
    (if(= "AcDbDictionary" (vla-get-objectname e))
      (progn
(princ "\n")
(if (vlax-property-available-p e 'name)
    (princ (strcat (vla-get-name e) ": " (itoa (vla-get-count e))))
    (princ (strcat "AcDbDictionary: " (itoa (vla-get-count e))))
)
(report-dictionary e)
      )
    )
)
)

(defun c:tt ()
(report-dictionary (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object))))
(princ)
)



命令: tt
ACAD_COLOR: 0
ACAD_DETAILVIEWSTYLE: 1
ACAD_DGNLINESTYLECOMP: 109630
AcDbDictionary: 0
AcDbDictionary: 3
AcDbDictionary: 3
ACAD_MLEADERSTYLE: 1
ACAD_MLINESTYLE: 1
AcDbDictionary: 0
ACAD_SCALELIST: 33
ACAD_SECTIONVIEWSTYLE: 1
ACAD_TABLESTYLE: 1
ACAD_VISUALSTYLE: 26
AcDbVariableDictionary: 12
AcDsDecomposeData: 2
AcDsRecords: 0
AcDsSchemas: 5
ACSSetting: 2
ACSLayerManager: 311
AEC_DISP_REP_CONFIGURATIONS: 1
AEC_DISP_REP_SETS: 8
AEC_DISP_REPS: 179
AEC_DISPLAY_PROPS_DEFAULTS: 141
AEC_PROPERTY_SET_DEFS: 0
AEC_VARS: 1
HY_CIVIL_DICTIONARY: 1
CIVIL_VARS: 1

【KAIXIN】 发表于 2015-5-4 15:11:37

谢谢分享,赞一个!

spp_wall 发表于 2015-5-4 15:37:07

分析出来 不知道怎么删

USER2128 发表于 2015-5-5 08:29:52

谢谢分享程序。

vectra 发表于 2015-5-5 09:57:30

spp_wall 发表于 2015-5-4 15:37 static/image/common/back.gif
分析出来 不知道怎么删

(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")

w113152659 发表于 2015-10-23 09:27:39

删除“ACAD_DGNLINESTYLECOMP”这个词典对CAD图形有什么影响吗?
页: [1]
查看完整版本: 统计分析词典中对象的数量