【原创】精确获取vlx的加载位置

tryhi

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

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

jun353835273

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

cghdy

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

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

baitang36

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

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

baitang36

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

cqu20104225

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

明白了，谢谢

tryhi

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

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

cghdy

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

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

纵横八方

;功能：添加指定路径->文件搜索路径
;函数：(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

;功能：添加指定路径->文件搜索路径
;函数：(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 "\\")))));;添加所有子文件夹到搜索路径



高手    佩服