QualVer.lsp
;;; Início QualVer.lsp
;;; Ver 1.1
;;; J.A.
;;; www.cadtom.com
;;; Ver 1.0 - 2005-01-31
;;; Ver 1.1 - 2007-01-29
;;; Ver 1.2 - 2007-03-15
;;; QualVer.lsp - Aplicação para determinar em que versão foi gravado o ficheiro dwg aberto.
(defun c:qualver (/ DWGPR DWGNM DWGCAM ABRDWG RLDWG QLVER)
(setq ADECH (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq DWGNM (getvar "dwgname")
DWGPR (getvar "dwgprefix")
DWGCAM (strcat DWGPR DWGNM)
ABRDWG (open DWGCAM "r")
RLDWG (read-line ABRDWG)
QLVER (substr RLDWG 1 6)
)
(close ABRDWG)
(if (= QLVER "AC1.50")
(princ "\n»» Ficheiro gravado em versão R2.05\n")
)
(if (= QLVER "AC1002")
(princ "\nFicheiro gravado em versão R2.6\n")
)
(if (= QLVER "AC1004")
(princ "\n»» Ficheiro gravado em versão R9\n")
)
(if (= QLVER "AC1006")
(princ "\n»» Ficheiro gravado em versão R10\n")
)
(if (= QLVER "AC1009")
(princ "\n»» Ficheiro gravado em versão R11/12\n")
)
(if (= QLVER "AC1012")
(princ "\n»» Ficheiro gravado em versão R13\n")
)
(if (= QLVER "AC1014")
(princ "\n»» Ficheiro gravado em versão R14\n")
)
(if (= QLVER "AC1015")
(princ "\n»» Ficheiro gravado em versão R2000/2002\n")
)
(if (= QLVER "AC1018")
(princ "\n»» Ficheiro gravado em versão R2004\n")
)
(if (= QLVER "AC1021")
(princ "\n»» Ficheiro gravado em versão R2007\n")
)
(setvar "cmdecho" ADECH)
)
(terpri)
(princ "\n»» Inicie aplicação digitando QUALVER \n")
(terpri)
; Fim QualVer.lsp
