- 积分
- 28812
- 明经币
- 个
- 注册时间
- 2013-1-25
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 尘缘一生 于 2019-6-4 18:31 编辑
关于CAD教育版,先说说这个问题。
本坛有完美的批量去教育版程序,却没有单个文件的,也许你会说,我没找到,有!我再说一次,没有!
1:你的代码要有广泛适用性,不要写的高、大、上,叫人看不懂,显得你有多好文化是吧?
2:你写代码人是亲自画图的工程师吗?如果你是,你就不会写出操作需要几个,好几个按键的代码来!
3:我几乎不去晓东,我为什么不去?它哪里再好也不是我需要的,因为,它要求安装晓东工具箱!
4:那个工程师,他(她)电脑里面有一大堆教育版图纸存在?批量去教育版啊,那是极少数人才需要的,唯独完美单个文件去教育版,才是需要的。
什么才叫“完美”,我想谈下我得看法 :
A:必须源码 B:必须适用CAD个版本 C:必须存DXF,打开,从前的DWG, DXF得完美删除 D:必须回到操作的界面来
可惜啊,没有,我水平有限,搞不懂大家这些帖子,都在断断续续得说的什么?但我还能看懂点吧,因此,我搜集来,搜集去,拼凑几句,如下:
;;Modify by 尘缘一生 ;;去除教育版打印戳记 ,
(defun c:sl-dxf (/ dwg path dxfpath ) ;
(setq dwg (vl-filename-base (getvar"dwgname"))) ;取当前文档名.DWG ,不带扩展名
(setq path (getvar "dwgprefix")) ;取当前文档名路径
(setq dxfpath (strcat (getvar "DWGPREFIX") dwg ".dxf")) ;;;改当前文件名DWG格式为DXF格式。
(command "_.dxfout" dxfpath "v" "2004" "") ;;;;;;当前图转存为 2004版 DXF格式
(vla-open (vla-get-documents (vlax-get-acad-object)) dxfpath) ;打开生成的DXF新文件
(vl-file-delete dxfpath) ;;;;;;删除dxf文件,词句无效,为什么?
(command "vbastmt" "AcadApplication.activeDocument.close false ") ;这一句必回到DWG文件窗口,高版本不集成VB?奈何?
)
这是文件存DXF,再打开,回到当前图档,写不下去了!
差什么?差不完美吗? 还差从前的DWG、dxf 删除吗,新图档存盘吗? 而且不能换名字,换名字了,那算完美吗?
是不是有人说:你这个老头,要求如此吗?对,我就要求如此,办不到不要紧,总会有人办到的。
有句话,我想说,如果你想保留,千万别发源码啊,你发了,就会被我发现!
|
|