无聊发布CAD版本转换以及去除教育版戳记程序源代码

Gu_xl

选择的转换cad文件列表时，最好根据dwg文件版本过滤掉高于当前cad版本的dwg文件！
下列函数可提取DWG、DXF文件的版本号！

1. (defun gxl-DWGVer  (filename / fh cnt dv inp)
   
2.   (setq        cnt 10
   
3.         dv  "")
   
4.   (if (setq fh (open filename "r"))
   
5.     (progn
   
6.       (cond ((= ".DWG" (strcase (VL-FILENAME-EXTENSION filename)))
   
7.              (while
   
8.                (and
   
9.                  (> (setq cnt (1- cnt)) 0)
   
10.                  (setq inp (read-char fh))
    
11.                  (> inp 0)
    
12.                  )
    
13.                 (setq dv (strcat dv (chr inp)))
    
14.                 )
    
15.              )
    
16.             ((= ".DXF" (strcase (VL-FILENAME-EXTENSION filename)))
    
17.              (repeat 8
    
18.              (setq dv (READ-LINE fh))
    
19.                )
    
20.              )
    
21.             )
    
22.       (close fh)
    
23.       )
    
24.     )
    
25.   (if (and (> cnt 0) (> (strlen dv) 0))
    
26.     dv)
    
27.   )
    

(defun gxl-DWGVer  (filename / fh cnt dv inp)<br />   (setq        cnt 10<br />         dv  "")<br />   (if (setq fh (open filename "r"))<br />     (progn<br />       (cond ((= ".DWG" (strcase (VL-FILENAME-EXTENSION filename)))<br />              (while<br />                (and<br />                  (> (setq cnt (1- cnt)) 0)<br />                  (setq inp (read-char fh))<br />                  (> inp 0)<br />                  )<br />                 (setq dv (strcat dv (chr inp)))<br />                 )<br />              )<br />             ((= ".DXF" (strcase (VL-FILENAME-EXTENSION filename)))<br />              (repeat 8<br />              (setq dv (READ-LINE fh))<br />                )<br />              )<br />             )<br />       (close fh)<br />       )<br />     )<br />   (if (and (> cnt 0) (> (strlen dv) 0))<br />     dv)<br />   )<br />

返回的版本号与CAD版本对应关系如下：

1. (("AC1.50" "AutoCAD R2.05")
   
2.     ("AC1002" "AutoCAD R2.6")
   
3.     ("AC1004" "AutoCAD R9")
   
4.     ("AC1006" "AutoCAD R10")
   
5.     ("AC1009" "AutoCAD R11 or R12")
   
6.     ("AC1012" "AutoCAD R13")
   
7.     ("AC1014" "AutoCAD R14")
   
8.     ("AC1015" "AutoCAD 2000 or 2000i or 2002")
   
9.     ("AC1018" "AutoCAD 2004 or 2005 or 2006")
   
10.     ("AC1021" "AutoCAD 2007 or 2008 or 2009")
    
11.     ("AC1024" "AutoCAD 2010")
    
12.   )
    

(("AC1.50" "AutoCAD R2.05")<br />     ("AC1002" "AutoCAD R2.6")<br />     ("AC1004" "AutoCAD R9")<br />     ("AC1006" "AutoCAD R10")<br />     ("AC1009" "AutoCAD R11 or R12")<br />     ("AC1012" "AutoCAD R13")<br />     ("AC1014" "AutoCAD R14")<br />     ("AC1015" "AutoCAD 2000 or 2000i or 2002")<br />     ("AC1018" "AutoCAD 2004 or 2005 or 2006")<br />     ("AC1021" "AutoCAD 2007 or 2008 or 2009")<br />     ("AC1024" "AutoCAD 2010")<br />   )<br />

iceberg2509

fsxm 发表于 2011-10-18 16:49
建议跟据当前cad版本自动生成可用的dwgtype列表,而不是使用事先就固定死的列表

原来写这个程序时，是针对公司的实际应用版本来决定的，并没有想做成通用函数。
其实要做到自动获取可以转换的版本不是什么难事，可以采用gu_xl的高级方法，也可以采用简单一点的枚举法。

CAD83

做成通用函数才是最有的（不然不如装个2012好了），呵，单一的东西很快最落后，不要求多，只要求精，

iceberg2509

CAD83 发表于 2011-10-18 20:40
做成通用函数才是最有的（不然不如装个2012好了），呵，单一的东西很快最落后，不要求多，只要求精，

对于自己使用来说，最简单简洁就是最好的，如果我要商业化，我肯定会做成通用的。
出发点不同，看法也会不同。

cheng5276

强人！又长见识了

hhh454

很好用了，还是源码，楼主无私了

gbhsu

明坛终于吹进新鲜空气了，
楼主高才，多冒泡，少潜水哦

MJCADLWF

感谢楼主分享

xiaolong1487

用CAD2004的，听楼上的说不能用，权限也小，不能下！再等等吧 !

xiaolong1487

想要一个AUTOCAD2004 去除教育版戳记程序源代码!不知道找不找的到！大家帮帮忙！小弟在此谢过了！