[原创]免内部函数获取VLX文件路径与FAS文件路径，支持appload，可自定义变量

不死猫

猫老师的说明：
本代码因不需要用内部函数，所以文件特别精简（几十个字节），具体操作步骤如下：


;第一步，调用下面代码制作一个fas文件,MyPath是可以自由修改的变量名。
(GetVlxPath "MyPath")
;第二步，把[猫老师获取Vlx文件路径.fas]打包到你的vlx中放到第一个文件位置
;第三步，主程序中使用MyPath这个变量就是你的vlx路径了,例如[输出路径.lsp]。
;第四步，获取fas文件路径方法，代码中259改261，再用(vl-file-copy)函数合并多个fas文件为一个fas文件，就可以得到fas文件路径了。


直接上代码了



上面两个文件制做的获取路径fas文件加测试文件生成的VLX加载后结果如下：

命令: (LOAD "D:/mi/自身路径.VLX")
"D:/mi/自身路径.VLX"
命令: ap
APPLOAD 已成功加载 自身路径.VLX。
命令:
"D:/mi/自身路径.VLX"

自贡黄明儒

感谢老师分享
我试了一下。
第一步，将《猫老师获取VLX文件路径.lsp》制作成vlx,无论是加载"D:\\猫老师获取VLX文件路径.fas"、制作目录下的“猫老师获取VLX文件路径.fas"、"猫老师获取VLX文件路径.vlx",使用拖放和ap加载，(GetVlxPath "MyPath");返回nil (princ mypath)也返回nil
第二步,把259换成261,制作成Vlx后，加载D:\\上的“猫老师获取VLX文件路径.fas"。(GetVlxPath "MyPath")显示无定义GetVlxPath（有点奇怪？？？），(princ mypath)成功返回加载路径

不死猫

自贡黄明儒 发表于 2022-9-14 07:55
感谢老师分享
我试了一下。
第一步，将《猫老师获取VLX文件路径.lsp》制作成vlx,无论是加载"D:\\猫老师获 ...

你的步骤弄错了，是用Lsp代码生成fas文件，再用这个fas文件去制作vlx。
这个获取路径的fas要放到vlx的第一个文件位置。

可以试下这个制作后的vlx文件

aiming

大佬，如果 VLX文件在 CAD的 搜索目录中 用 load 文件名(不含路径）加载后  路径变量只返回文件名，没有返回路径
用baitang36的内部函数fas 可以返回正确的路径

陨落

晕！打赏了没有反应！钱去哪了？不知道猫老师能收到不？

飞雪神光

感谢猫老师分享 测试可以用

spp_wall

感谢猫老师分享！！！

mccad

陨落 发表于 2022-9-13 17:20
晕！打赏了没有反应！钱去哪了？不知道猫老师能收到不？

刚刚系统测试中，已经处理好了，你的赞赏也显示出来了

guosheyang

感谢猫老师分享代码！

utopio

谢谢分享。

hhh454

感谢老师分享，学习