tryhi 发表于 2022-2-23 23:08:30

cqu20104225 发表于 2022-2-23 22:40
感谢分享，如果可以，希望能学习源码

这个程序是特制程序，不存在lsp源码

jun353835273 发表于 2022-2-24 08:48:21

完美解决了大部分新手入门必问的问题。

cghdy 发表于 2022-2-24 09:21:34

tryhi 发表于 2022-2-23 23:08
这个程序是特制程序，不存在lsp源码

那怎么写出来的，直接写fas吗

baitang36 发表于 2022-2-24 09:33:41

cghdy 发表于 2022-2-24 09:21
那怎么写出来的，直接写fas吗

是从系统中硬挖出来的，有个函数vl-get-resource，我把它的代码挖出来，用了一半，改了改。

baitang36 发表于 2022-2-24 09:36:01

本帖最后由 baitang36 于 2022-2-24 15:46 编辑

没币的朋友可以在这里下载。

cqu20104225 发表于 2022-2-24 09:36:04

tryhi 发表于 2022-2-23 23:08
这个程序是特制程序，不存在lsp源码

明白了，谢谢

tryhi 发表于 2022-2-24 09:54:10

cghdy 发表于 2022-2-24 09:21
那怎么写出来的，直接写fas吗

是的，楼主直接用二进制指令直接写的fas，你用记事本打开可以直接看到部分代码，看不到的都是计算机指令

cghdy 发表于 2022-2-24 14:37:53

tryhi 发表于 2022-2-24 09:54
是的，楼主直接用二进制指令直接写的fas，你用记事本打开可以直接看到部分代码，看不到的都是计算机指令

哦哦，那真是太强，虽然也没几个字符

纵横八方 发表于 2022-2-24 17:55:27

;功能：添加指定路径->文件搜索路径
;函数：(GF-AddPath strPath)
(defun GF-AddPath (strPath)
(if (findfile strpath)
    (setenv "ACAD" (strcat (getenv "ACAD") ";" strPath ";"))
)
(princ)
)

;功能：添加指定路径下的文件夹->文件搜索路径
;函数：(GF-addPaths strpath)
(defun GF-addPaths (strpath)
(if (findfile strpath)
    (foreach x (vl-directory-files strpath nil -1)
      (GF-AddPath (strcat strpath "\\" x))
    )
)
(princ)
)

;功能：返回某路径下的文件夹及子文件夹
;函数：(GF-getFolds path)
;示例：(GF-getFolds "d:\\fff")
(defun GF-getFolds(path / d)
(defun getsonFold(sonpath)
    (setq d (cons sonpath d))
    (foreach x (cddr(vl-directory-files sonpath nil -1))
      (getsonFold (strcat sonpath "\\" x))
    )
)
(if (findfile path)(getsonFold path))
(reverse d)
)

(setq str (vl-string-right-trim "/T8.VLX" (syz-vlx-path)))
(setq list_path (GF-getFolds (vl-string-right-trim "\\" (vl-string-translate "/" "\\" str))));;文件夹及子文件夹
(foreach x list_path (GF-AddPath (vl-filename-directory (strcase (strcat x "\\")))));;添加所有子文件夹到搜索路径

f4800 发表于 2022-2-24 19:40:12

;功能：添加指定路径->文件搜索路径
;函数：(GF-AddPath strPath)
(defun GF-AddPath (strPath)
(if (findfile strpath)
    (setenv "ACAD" (strcat (getenv "ACAD") ";" strPath ";"))
)
(princ)
)

;功能：添加指定路径下的文件夹->文件搜索路径
;函数：(GF-addPaths strpath)
(defun GF-addPaths (strpath)
(if (findfile strpath)
    (foreach x (vl-directory-files strpath nil -1)
      (GF-AddPath (strcat strpath "\\" x))
    )
)
(princ)
)

;功能：返回某路径下的文件夹及子文件夹
;函数：(GF-getFolds path)
;示例：(GF-getFolds "d:\\fff")
(defun GF-getFolds(path / d)
(defun getsonFold(sonpath)
    (setq d (cons sonpath d))
    (foreach x (cddr(vl-directory-files sonpath nil -1))
      (getsonFold (strcat sonpath "\\" x))
    )
)
(if (findfile path)(getsonFold path))
(reverse d)
)

(setq str (vl-string-right-trim "/T8.VLX" (syz-vlx-path)))
(setq list_path (GF-getFolds (vl-string-right-trim "\\" (vl-string-translate "/" "\\" str))));;文件夹及子文件夹
(foreach x list_path (GF-AddPath (vl-filename-directory (strcase (strcat x "\\")))));;添加所有子文件夹到搜索路径



高手    佩服   
页: 1 [2] 3 4 5 6 7
查看完整版本: 【原创】精确获取vlx的加载位置