[编程申请]：能否编一批量提取Dwg文件属性的程序

zhanghua887

能否编一批量提取Dwg文件属性的程序

自由的鱼

具体提取什么？

lsjjm

(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-dump-object doc)
; IAcadDocument: An AutoCAD drawing
;   Active (RO) = -1
;   ActiveDimStyle = #<VLA-OBJECT IAcadDimStyle 189314e4>
;   ActiveLayer = #<VLA-OBJECT IAcadLayer2 18931734>
;   ActiveLayout = #<VLA-OBJECT IAcadLayout 18930994>
;   ActiveLinetype = #<VLA-OBJECT IAcadLineType 189302a4>
;   ActivePViewport = AutoCAD: &Iacute;&frac14;&Ouml;&frac12;&iquest;&Otilde;&frac14;&auml;&Ouml;&ETH;&Icirc;&THORN;&raquo;&icirc;&para;&macr;&Ecirc;&Oacute;&iquest;&Uacute;
;   ActiveSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 18937ee4>
;   ActiveSpace = 1
;   ActiveTextStyle = #<VLA-OBJECT IAcadTextStyle 18937954>
;   ActiveUCS = AutoCAD: &iquest;&Otilde;&para;&Ocirc;&Iuml;ó ID
;   ActiveViewport = #<VLA-OBJECT IAcadViewport 189378d4>
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00b9b5e4>
;   Blocks (RO) = #<VLA-OBJECT IAcadBlocks 18937014>
;   Database (RO) = #<VLA-OBJECT IAcadDatabase 18935fd4>
;   Dictionaries (RO) = #<VLA-OBJECT IAcadDictionaries 18937124>
;   DimStyles (RO) = #<VLA-OBJECT IAcadDimStyles 18935824>
;   ElevationModelSpace = 0.0
;   ElevationPaperSpace = 0.0
;   FileDependencies (RO) = #<VLA-OBJECT IAcadFileDependencies 18937724>
;   FullName (RO) = "C:\\lx.dwg"
;   Groups (RO) = #<VLA-OBJECT IAcadGroups 189350a4>
;   Height = 543
;   HWND (RO) = 525382
;   Layers (RO) = #<VLA-OBJECT IAcadLayers2 18935514>
;   Layouts (RO) = #<VLA-OBJECT IAcadLayouts 18936dd4>
;   Limits = (0.0 0.0 100.0 90.0)
;   Linetypes (RO) = #<VLA-OBJECT IAcadLineTypes 18936c04>
;   ModelSpace (RO) = #<VLA-OBJECT IAcadModelSpace2 189368d4>
;   MSpace = AutoCAD: &Auml;&pound;&Ecirc;&frac12;&Icirc;&THORN;&ETH;§
;   Name (RO) = "lx.dwg"
;   ObjectSnapMode = 0
;   PaperSpace (RO) = #<VLA-OBJECT IAcadPaperSpace2 189362e4>
;   Path (RO) = "C:"
;   PickfirstSelectionSet (RO) = #<VLA-OBJECT IAcadSelectionSet 18932fd4>
;   Plot (RO) = #<VLA-OBJECT IAcadPlot 1893605c>
;   PlotConfigurations (RO) = #<VLA-OBJECT IAcadPlotConfigurations 18932d84>
;   Preferences (RO) = #<VLA-OBJECT IAcadDatabasePreferences 18935fa4>
;   ReadOnly (RO) = 0
...

自由的鱼

哦，原来这么多~~，呵呵

aapp

又学一招

zhanghua887

我是够菜的了，看不懂
劳烦大哥，指导一下怎么用。谢谢

silen618

6楼，直接输入
(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-dump-object doc)
就可以。