[求助]：能否直接提取DWG内的描述

Qlin

2000版以后的DWG支持文字描述(在File/Drawing Properties)可以加入comments，
能否直接在Lisp里面读出DWG的这个描述文字？我看见有些图库管理程序是
可以的，但不知如何实现。

Qlin

我找到一个C的库，能不能麻烦晓东把它包装成一个Lisp函数，
放到API中?

这是里面的说明：
//  This program demonstrates the use of the 'DwgProps' class
//  which scans DWG files and extracts DWG Property data if
//  present.  The following command line will build 'pscan.exe':
//      cl -Ox pscan.cpp DwgProps.obj setargv.obj
//
//  Syntax for using the 'pscan' command is:
//      pscan file [file ...]

XDSoft

最初由 Qlin 发布
[B]我找到一个C的库，能不能麻烦晓东把它包装成一个Lisp函数，
放到API中?

这是里面的说明：
//  This program demonstrates the use of the 'DwgProps' class
//  which scans DWG files and extracts DWG Prop... [/B]

行，下个版本的API提供。

能说说你获得DWG信息做什么吗？

Qlin

在试着用ODCL写一个Design Center风格的工程信息辅助工具，
我叫它ProjectBar，里面有一个栏目是指定目录下的DWG浏览，
用DWGList实现，我想显示每一个指定文件的Description，而又
不想在AutoCAD里打开它.

又：发现ODCL还有不少古怪的地方：比如说，自动生成的代码
缺少参数、某些回调事件受一些属性的影响不能稳定产生....
对了，顺便问一下，Tab控件能否在程序里控制它显示某一个tab?

Qlin

再提供一个在AutoCAD内部使用的Automation控件.

AsdkOpmX:
provides an Automation object, called Property, that lets you
create custom properties in Properties Window  of AutoCAD 2000.

Qlin

这里还有在图形内部操作这些信息的纯Vlisp代码：

2. 
   
3. ; Properties needs a routine
   
4. ; Date: Thu, 16 Jul 1998 09:31:23 -0700
   
5. ; From: Frank Whaley <few@autodesk.com>
   
6. 
   
7. ; Here is '(getProps)' and '(putProps)', which
   
8. ; extract Drawing Property data to a set of global
   
9. ; variables (Title, Subject, etc.) and repack the
   
10. ; data from the same set of variables.
    
11. 
    
12. (defun getProps (/ xlist val)
    
13.   ;;  shorthand for extraction
    
14.   (defun val (gc999)
    
15.     (cdr (assoc gc999 xlist))
    
16.   )
    
17.   ;;  pick Xrecord from NOD
    
18.   (setq xlist (dictsearch (namedobjdict) "DWGPROPS"))
    
19.   ;;  extract values to variables
    
20.   (setq Title (val 2)
    
21.         Subject (val 3)
    
22.         Author (val 4)
    
23.         Comments (val 6)
    
24.         Keywords (val 7)
    
25.         LastSavedBy (val 8)
    
26.         RevisionNo (val 9)
    
27.         Cust0 (val 300)
    
28.         Cust1 (val 301)
    
29.         Cust2 (val 302)
    
30.         Cust3 (val 303)
    
31.         Cust4 (val 304)
    
32.         Cust5 (val 305)
    
33.         Cust6 (val 306)
    
34.         Cust7 (val 307)
    
35.         Cust8 (val 308)
    
36.         Cust9 (val 309)
    
37.   )
    
38.   xlist
    
39. )
    
40. 
    
41. (defun putProps (/ xlist)
    
42.   ;;  remove any existing Properties
    
43.   (dictremove (namedobjdict) "DWGPROPS")
    
44.   ;; make data list
    
45.   (setq xlist
    
46.       (list
    
47.         '(0 . "XRECORD")
    
48.         '(100 . "AcDbXrecord")
    
49.         '(1 . "DWGPROPS COOKIE")
    
50.          (cons 2 Title)
    
51.          (cons 3 Subject)
    
52.          (cons 4 Author)
    
53.          (cons 6 Comments)
    
54.          (cons 7 Keywords)
    
55.          (cons 8 LastSavedBy)
    
56.          (cons 9 RevisionNo)
    
57.          (cons 300 Cust0)
    
58.          (cons 301 Cust1)
    
59.          (cons 302 Cust2)
    
60.          (cons 303 Cust3)
    
61.          (cons 304 Cust4)
    
62.          (cons 305 Cust5)
    
63.          (cons 306 Cust6)
    
64.          (cons 307 Cust7)
    
65.          (cons 308 Cust8)
    
66.          (cons 309 Cust9)
    
67.          (cons 40 (getvar "TDINDWG"))
    
68.          (cons 41 (getvar "TDCREATE"))
    
69.          (cons 42 (getvar "TDUPDATE"))
    
70.       )
    
71.     )
    
72.     ;;  make Xrecord and add to NOD
    
73.     (dictadd (namedobjdict) "DWGPROPS" (entmakex xlist))
    
74. )
    

<br /> ; Properties needs a routine<br /> ; Date: Thu, 16 Jul 1998 09:31:23 -0700<br /> ; From: Frank Whaley <few@autodesk.com><br /> <br /> ; Here is '(getProps)' and '(putProps)', which<br /> ; extract Drawing Property data to a set of global<br /> ; variables (Title, Subject, etc.) and repack the<br /> ; data from the same set of variables.<br /> <br /> (defun getProps (/ xlist val)<br />   ;;  shorthand for extraction<br />   (defun val (gc999)<br />     (cdr (assoc gc999 xlist))<br />   )<br />   ;;  pick Xrecord from NOD<br />   (setq xlist (dictsearch (namedobjdict) "DWGPROPS"))<br />   ;;  extract values to variables<br />   (setq Title (val 2)<br />         Subject (val 3)<br />         Author (val 4)<br />         Comments (val 6)<br />         Keywords (val 7)<br />         LastSavedBy (val 8)<br />         RevisionNo (val 9)<br />         Cust0 (val 300)<br />         Cust1 (val 301)<br />         Cust2 (val 302)<br />         Cust3 (val 303)<br />         Cust4 (val 304)<br />         Cust5 (val 305)<br />         Cust6 (val 306)<br />         Cust7 (val 307)<br />         Cust8 (val 308)<br />         Cust9 (val 309)<br />   )<br />   xlist<br /> )<br /> <br /> (defun putProps (/ xlist)<br />   ;;  remove any existing Properties<br />   (dictremove (namedobjdict) "DWGPROPS")<br />   ;; make data list<br />   (setq xlist<br />       (list<br />         '(0 . "XRECORD")<br />         '(100 . "AcDbXrecord")<br />         '(1 . "DWGPROPS COOKIE")<br />          (cons 2 Title)<br />          (cons 3 Subject)<br />          (cons 4 Author)<br />          (cons 6 Comments)<br />          (cons 7 Keywords)<br />          (cons 8 LastSavedBy)<br />          (cons 9 RevisionNo)<br />          (cons 300 Cust0)<br />          (cons 301 Cust1)<br />          (cons 302 Cust2)<br />          (cons 303 Cust3)<br />          (cons 304 Cust4)<br />          (cons 305 Cust5)<br />          (cons 306 Cust6)<br />          (cons 307 Cust7)<br />          (cons 308 Cust8)<br />          (cons 309 Cust9)<br />          (cons 40 (getvar "TDINDWG"))<br />          (cons 41 (getvar "TDCREATE"))<br />          (cons 42 (getvar "TDUPDATE"))<br />       )<br />     )<br />     ;;  make Xrecord and add to NOD<br />     (dictadd (namedobjdict) "DWGPROPS" (entmakex xlist))<br /> )<br />

源自：http://xarch.tu-graz.ac.at/autoc ... ation/msg00111.html