 getdwgpropsXXXX.arx   AutoLisp
 :

1) (getdwgprops [filename.dwg]),  
   Summary Info.    
    dwg-,  
 .    
,      dwg-,
      AutoCAD.

     
:

Command: (getdwgprops "c:\\dprops.dwg")
(
 ("Title"         " ")
 ("Subject"       "  (getdwgprops)")
 ("Author"        " ")
 ("Keywords"      "  ")
 ("Comments"      "     ... :-)")
 ("HyperlinkBase" "http://www.maestrogroup.com.ua")
 ("LastSavedBy"   "Alexander Rivilis")
 (""        "1.0.0.1")
 (""      "   ")
)

2) (setdwgprops [filename.dwg] [list_summary_info] [T]),
  Summary Info  .
  filename.dwg  ,   
  .
     -   T,
  /  
[list_summary_info],   ,       
[list_summary_info],   (     Custom ).
   ,   
list_summary_info (  ,  ,
 ,     (getdwgprops)).

XXXX = 2006  AutoCAD 2004...2006
XXXX = 2007  AutoCAD 2007...2009
XXXX = 2010  AutoCAD 2010...2012
XXXX = 2013  AutoCAD 2013...2014
XXXX = 2015  AutoCAD 2015...2016
XXXX = 2017  AutoCAD 2017
XXXX = 2018  AutoCAD 2018
XXXX = 2019  AutoCAD 2019...2020
XXXX = 2021  AutoCAD 2021...

========================================================================
P.S.:          
       
     -  ,    
      :

MasterCard: 5169-3600-0006-0073
Visa:       4731-1856-0330-6231

       .
========================================================================
e-mail: rivilis@ukr.net
Skype:  rivilis
GTalk:  Alexander.Rivilis@gmail.com
MSN:    rivilis@hotmail.com
.:   +380(50)332-21-26
