[原创]用保留函数制作vlx

baitang36 · 发表于 2021-12-14 22:31

本帖最后由 baitang36 于 2022-3-9 09:15 编辑

vlx-pack这个保留函数，可以用于制作vlx
它和vlisp-compile一样，需要加载vlide后才能使用。
感兴趣者自己试验吧，源码如下：
(startapp "c:/06/sleep.dat")  ; 延时三秒关闭vlide
(c:vlide)                               ;加载vlide
;(princ "vlide窗口已关闭！")
;(princ)
(load "c:/06/syz-vlx-pack.fas")  ;加载保留函数
(setq list1 '((:protected . T)
            (:active-x . T)
            (:separate-namespace) ;非独立名称空间
            (:load-file-list (:fas "1") (:fas "2")) ;需要加载的fas
         )
) ;_ setq
(setq list2 (list (list :fas "d:/1.fas") (list :fas "d:/2.fas")))
(vlx-pack "d:/2t.vlx" list1 list2)

baitang36 · 发表于 2021-12-15 11:04

本帖最后由 baitang36 于 2021-12-15 11:29 编辑

tryhi 发表于 2021-12-15 10:06
楼主好像少说了一个很重要的变量，:fas

这是一个保留符号。
再加一个：txt，支持dcl文件

baitang36 · 发表于 2022-3-21 08:15

1028695446 发表于 2022-3-20 17:23
您好，请问可以举个例子吗，不明白怎么用，关于打包DCL的

(load "c:/06/syz-vlx-pack.fas")  ;加载保留函数
(setq list1 '((:protected . T)
            (:active-x . T)
            (:separate-namespace) ;非独立名称空间
            (:load-file-list (:fas "1") (:fas "2")) ;需要加载的fas
         )
) ;_ setq
(setq list2 (list (list :fas "d:/1.fas") (list :fas "d:/2.fas")))
(vlx-pack "d:/2t.vlx" list1 list2)
这就是源码，原理很简单。准备好两个表，把你需要打包进vlx的文件路径写到表里，然后调用vlx-pack

不死猫 · 发表于 2021-12-15 11:26

另外有三种制作vlx的方法，一是用vlx pack把第二个参数表中:fas后面文件名的字符串改为fas实际编码字符串，二是通过vlisp fasres update 制作对齐vlx 编码然后补上vlx 头部表，三是用文本做一个prv文件，然后用prv build、fetch函数做出vlx

print1985 · 发表于 2021-12-14 23:29

盛老师又出新作品了立即试用感谢感谢

wzg356 · 发表于 2021-12-14 23:57

这个高级

LIULISHENG · 发表于 2021-12-15 08:07

学习一下

mokson · 发表于 2021-12-15 09:33

大佬太高能，凡辈无法跟随。

pxt2001 · 发表于 2021-12-15 09:54

曾经的大佬都隐退了(潜水太深)，楼主就是现在的大佬。

tryhi · 发表于 2021-12-15 10:06

楼主好像少说了一个很重要的变量，:fas

不死猫 · 发表于 2021-12-15 11:14

还有:dcl :dvb，用来打包其他文件。另外前面:开头那几个也是常量标志，都可以用隐藏函数获取。

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

[经验] [原创]用保留函数制作vlx

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评