选物另存，我需要一个.dat的格式，能否实现？

75215195 · 发表于 2017-9-22 07:39:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:dxf (/ name)
(setvar "cmdecho" 0)
(setvar "FILEDIA" 0)
(setq name (getstring "\n请输入DXF文件名:"))
(if (= name "")
(setq name (vl-filename-base(getvar "DWGNAME")))
)
(vl-cmdf "_.dxfout" (strcat "F:/"name".dxf") "O" (ssget) "" "")
(princ (strcat "\n***文件 "name".dxf 输出在F:/***"))
(setvar "FILEDIA" 1)
(princ)
)
这个是选物输出为DXF文件，我需要是.DAT格式的文件，CAD能否LISP实现？
直接把后缀名改成.dat 文件就错误了，没用。

liunian0524 · 发表于 2017-9-22 08:07:07

感谢分享..

/db_自贡黄明儒_ · 发表于 2017-9-22 08:49:51

都是文本文件，你直接改文件名后缀试试

dnbcgrass · 发表于 2017-9-22 09:22:48

本帖最后由 dnbcgrass 于 2017-9-22 09:24 编辑

[/code](defun c:dxf (/ name)
(setvar "cmdecho" 0)
(setvar "FILEDIA" 0)
(setq name (getstring "\n请输入DXF文件名:"))
(if (= name "")
(setq name (vl-filename-base (getvar "DWGNAME")))
)
(vl-cmdf "_.dxfout" (strcat "F:/"name".dxf") "O" (ssget) "" "")
(princ (strcat "\n***文件 "name".dxf 输出在F:/***"))
(vl-file-rename name (vl-string-subst ".dat" ".dxf" name)) ;;文件改名
;;或者
;(vl-file-copy name (vl-string-subst ".dat" ".dxf" name)) ;;复制出一个新文件
(setvar "FILEDIA" 1)
(princ)
)
[code/]

75215195 · 发表于 2017-9-22 11:30:38

dnbcgrass 发表于 2017-9-22 09:22

谢谢，您的热心帮助。
转出来的文件，我工作的软件读不了数据。

75215195 · 发表于 2017-9-22 13:01:11

/db_自贡黄明儒_ 发表于 2017-9-22 08:49

修改了后缀名，就读不了文件内容

dnbcgrass · 发表于 2017-9-22 13:47:26

本帖最后由 dnbcgrass 于 2017-9-22 13:52 编辑

什么“工作软件”读不了数据？CASS软件，还是……？

/db_自贡黄明儒_ · 发表于 2017-9-22 15:07:26

本帖最后由 /db_自贡黄明儒_ 于 2017-9-22 15:08 编辑

楼主最好贴出代码，让热心网友调试。办法总比困难多

。实在不行，可以行转成dxf,再读dxf成dat.

75215195 · 发表于 2017-9-28 23:06:33

/db_自贡黄明儒_ 发表于 2017-9-22 15:07

我是按这个办法，先导出DXF，在复制成.DAT。这个格式是用于机械类线切割加工的文件，老古董了。DOS产物。hl线割系统。
系统没有办法读取。

75215195 · 发表于 2017-9-28 23:10:02

dnbcgrass 发表于 2017-9-22 13:47

机械加工，线切割 hl线割系统或者用caxa xp。不想用这些软件转格式，太麻烦。
我在另一家公司看过是可以用CAD直接可以生成.dat格式，不知道是不是(VL-CMDF "SH"...)调用了其他的应用转换。

sicky111 · 发表于 2017-9-29 00:06:03

能直接改DAT后缀名？

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

[求助] 选物另存，我需要一个.dat的格式，能否实现？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。