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

429014673 · 发表于 2011-10-17 17:34

要求版本太高用不起呀...

iceberg2509 · 发表于 2011-10-17 21:34

都发布源代码了，自己都懒得去修改吗？
关于运行版本问题，不就是这句(< (atof (getvar "acadver")) 18)么？2004-2006，把18改成16，2007-2009把18改成17就成。
真是无语。

CAD83 · 发表于 2011-10-17 21:51

错误:no function definition: DXF，什么意思啦，出错哟，

iceberg2509 · 发表于 2011-10-18 06:42

CAD83 发表于 2011-10-17 21:51
错误:no function definition: DXF，什么意思啦，出错哟，

dxf函数已经补充在一楼

xiaxiang · 发表于 2011-10-18 09:36

1.还缺少Deletefile函数
2.用2006新建一个文件，开始转换一个04版本的文件，出来依然是04版本的文件。失败了，原因未知。
3.如果能用2006打开一个07版本的文件，转换成04版本的文件就太棒了。异想天开了。

hcq0594 · 发表于 2011-10-18 14:05

冒泡下，谢谢楼主共享，下下来试试。

kwok · 发表于 2011-10-18 14:27

支持，下来试试,

laoqian123 · 发表于 2011-10-18 14:36

感谢楼主

iceberg2509 · 发表于 2011-10-18 16:23

xiaxiang 发表于 2011-10-18 09:36
1.还缺少Deletefile函数
2.用2006新建一个文件，开始转换一个04版本的文件，出来依然是04版本的文件。失败 ...

1、deletefile函数补充在一楼，
2、程序中这一句
(setq DwgType (list (list 0 "AutoCAD 2010 DWG (*.dwg)" ac2010_dwg)
      (list 1 "AutoCAD 2010 DXF (*.dxf)" ac2010_dxf)
      (list 2 "AutoCAD 2007 DWG (*.dwg)" ac2007_dwg)
      (list 3 "AutoCAD 2007 DXF (*.dxf)" ac2007_dxf)
      (list 4 "AutoCAD 2004 DWG (*.dwg)" ac2004_dwg)
      (list 5 "AutoCAD 2004 DXF (*.dxf)" ac2004_dxf)
) ;这里为什么用list而不用 '，是因为用'后，ac2010_dwg等就不会求值了，导致后续程序取值错误
  )
决定了最低转换版本为04版，如果你要转更低版本，需要自己修改代码。
3、你用2006版本肯定不能转为更高版本的。

fsxm · 发表于 2011-10-18 16:49

建议跟据当前cad版本自动生成可用的dwgtype列表,而不是使用事先就固定死的列表

账号		自动登录	找回密码
密码			注册

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

点评