dcl转lsp 让dcl自动转化到lsp文件中，方便制作vlx

haige405 · 发表于 2016-4-8 18:14:36

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

×

本帖最后由 haige405 于 2016-4-10 21:31 编辑

[sell=2]

;DCL转为lisp，开发者用
(defun c:dcl2l( / STrL ff1 ffn FF2 wenben WENBEN_JB1 WENBEN_JB2)
(FZBEGIN)
(setq ff1 (open (getfiled "选择需要转化的dcl" "." "DCL" 0) "r") )
;写入新建文件
(setq ffn (getfiled "保存文件" "z_DCL_." "LSP" 1))
(setq ff2 (open ffn "w"))
(CLOSE FF2)
(setq ff2 (open ffn "a"))
(while (setq wenben (read-line ff1))
(SETQ STRL (cons WENBEN STRL))
);SET
(close ff1)
(setq STRL (reverse STRL))
(SETQ WENBEN_JB1 (strcat "(setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))\n" "(setq file (open Dcl_File "w"))\n" "(SETQ STRL '") )
(SETQ WENBEN_JB2 "
)\n(foreach str strl
(write-line str file)
)
(close file)" )
(PRINC WENBEN_JB1 ff2)
(PRINT STrL ff2)
(PRINC WENBEN_JB2 ff2)
(close ff2)
(FZEND)
;写入新建文件
)

[/sell]源代码

炫翔 · 发表于 2016-4-10 19:00:26

论坛早有吧

haige405 · 发表于 2016-4-10 21:05:05

哥哥论坛上那里有哦。。。你发个连接看看呢

lucas3 · 发表于 2016-4-11 22:16:30

论坛早有了！我至少见过4，5个这样的程序，自贡黄明儒都写过

kqqt6236 · 发表于 2016-4-14 10:35:34

这年头，看看都要钱。

bikeboy · 发表于 2016-5-17 14:14:32

看一下吧，不过花钱啊

zengqingyi · 发表于 2016-6-3 14:33:44

论坛早有吧

sachindkini · 发表于 2016-6-3 15:41:35

Command: DCL2L ; error: no function definition: FZBEGIN

凌乱一夏 · 发表于 2016-11-17 14:41:40

哎，不知道靠不怕靠谱

凌乱一夏 · 发表于 2016-11-17 14:53:06

已经试过，有两个函数没定义，，，程序不能用，注释掉没定义的函数后，转出来的东西乱糟糟

sicky111 · 发表于 2016-12-4 21:08:24

这个也收钱？

haige405 · 发表于 2017-2-18 11:31:08

凌乱一夏发表于 2016-11-17 14:53

转出来的文件是放入lisp代码中。

fangzheng158 · 发表于 2017-2-18 23:12:43

看一下吧，不过花钱啊

qq1254582201 · 发表于 2019-6-16 23:04:00

我是来看看有深恶么东西的

qmotuo · 发表于 2023-5-3 08:27:56

厉害感谢分享

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

[原创] dcl转lsp 让dcl自动转化到lsp文件中，方便制作vlx