Topic: How to obtain a DWG file version number

[jxphklibin]

Hi,anyone

How to obtain a DWG file version number？

Who can help , very grateful!

[MP]

Here's one way ...

Needs to be updated but I'm just heading out the door ...

[jxphklibin]

Here is my code:

Code: [Select]

;;; By 小李子 2009.3.14
(defun Get-Dwg-Ver (filename / filehand filever)
  (if (setq filehand (open filename "r"))
    (progn
      (setq filever "")
      (repeat 6
(setq filever (strcat filever (chr (read-char filehand))))
      )
      (close filehand)
      (cond
((= filever "AC1024")
(princ "\nDrawing File Version: R2010")
)
((= filever "AC1021")
(princ "\nDrawing File Version: R2007/2008/2009")
)
((= filever "AC1018")
(princ "\nDrawing File Version: R2004/2005/2006")
)
((= filever "AC1015")
(princ "\nDrawing File Version: R2000/2000i/2002")
)
((= filever "AC1014") (princ "\nDrawing File Version: R14"))
((= filever "AC1013")
(princ "\nDrawing Template File Version: R14")
)
((= filever "AC1012") (princ "\nDrawing File Version: R13"))
((= filever "AC1009")
(princ "\nDrawing File Version: R12/R11")
)
((= filever "AC1006") (princ "\nDrawing File Version: R10"))
((= filever "AC1004") (princ "\nDrawing File Version: R9"))
(T
(princ (strcat "\nDrawing File Version Unknown: " filever))
)
      )
    )
  )
  (princ)
)
(princ
  "\nGet-Dwg-Ver loaded, type (Get-Dwg-Ver) to run."
)
(princ)


[Crank]

Code: [Select]

((= filever "AC1024")
(princ "\nDrawing File Version: R2010")
)
((= filever "AC1021")
(princ "\nDrawing File Version: R2007/2008/2009")
)