明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2836|回复: 19

[【不死猫】] [原创]免内部函数获取VLX文件路径与FAS文件路径,支持appload,可自定义变量

  [复制链接]
发表于 2022-9-13 17:04 | 显示全部楼层 |阅读模式
本帖最后由 不死猫 于 2022-9-14 09:10 编辑

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


;第一步,调用下面代码制作一个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"


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

VLX路径还有一个作用,拆分后的文件无法获取,被分解后的程序会出错。  发表于 2022-9-13 17:36

评分

参与人数 3明经币 +3 收起 理由
USER2128 + 1 很给力!
muwind + 1
hhh454 + 1 很给力!

查看全部评分

"觉得好,就打赏"
      共2人打赏
发表于 2022-9-14 07:55 | 显示全部楼层
感谢老师分享
我试了一下。
第一步,将《猫老师获取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 08:48 | 显示全部楼层
本帖最后由 不死猫 于 2022-9-14 09:01 编辑
自贡黄明儒 发表于 2022-9-14 07:55
感谢老师分享
我试了一下。
第一步,将《猫老师获取VLX文件路径.lsp》制作成vlx,无论是加载"D:\\猫老师获 ...

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

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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2022-9-14 16:43 | 显示全部楼层
大佬,如果 VLX文件在 CAD的 搜索目录中 用 load 文件名(不含路径)加载后  路径变量只返回文件名,没有返回路径
用baitang36的内部函数fas 可以返回正确的路径
发表于 2022-9-13 17:20 | 显示全部楼层
晕!打赏了没有反应!钱去哪了?不知道猫老师能收到不?

点评

谢谢本帖的榜一大佬支持  发表于 2022-9-13 21:11
发表于 2022-9-13 17:28 | 显示全部楼层
感谢猫老师分享 测试可以用
发表于 2022-9-13 17:45 | 显示全部楼层
感谢猫老师分享!!!
发表于 2022-9-13 18:03 | 显示全部楼层
陨落 发表于 2022-9-13 17:20
晕!打赏了没有反应!钱去哪了?不知道猫老师能收到不?

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

点评

论坛众筹的时候就很方便了  发表于 2022-9-14 09:17
发表于 2022-9-13 18:09 | 显示全部楼层
感谢猫老师分享代码!
发表于 2022-9-13 21:26 | 显示全部楼层
感谢老师分享,学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 07:22 , Processed in 0.216939 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表