如何获取lsp文件的自身路径

xshrimp · 发表于 2013-6-8 20:49:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

原先看到. 迷你建筑有个lsp文件拖入cad绘图区域.能获取 lsp 自身路径.
但是有个bug当路径很长时或获取错误。
实际是使用 (getvar "lastprompt")来获取的.

后来我发现cad有(command "_.copyhist")同样可以获取加载lsp文件自身路径.而且.路径很长或有空格时同样正确.
大家可以测试一下. 把下列文件拖入ACAD绘图区.

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:文件拖入ACAD绘图区.lsp
下载次数:431 文件大小:1.27 KB
下载权限: 不限以上 [免费赚D豆]

marting · 发表于 2013-6-8 20:51:23

只有一个字，给力！！

eachy · 发表于 2013-6-8 20:53:46

立即获取可以，时间长了就不能获取既往加载的吧，arx 有 lispappinfo 可以获取已经加载的lisp路径

zhang8755 · 发表于 2013-6-8 20:58:50

用appload加载，不能获得路径。

marting · 发表于 2013-6-8 21:14:33

zhang8755 发表于 2013-6-8 20:58
用appload加载，不能获得路径。

楼主文件名就告诉你拖入绘图区了。

sachindkini · 发表于 2013-6-8 21:27:58

Add Support File Search Paths

Function Syntax

(LM:SFSP+ <lst>)

Arguments
Symbol	Type	Description
lst	List	List of paths to add
Returns
Type	Description
String	Value of ACAD environment variable following modification

This function will modify the semi-colon delimited string value of the ACAD environment variable to incorporate all valid paths in a given list which do not already appear in the list of support paths stored by the string.

(defun LM:SFSP+ ( lst / str )
(setenv "ACAD"
(strcat (setq str (vl-string-right-trim ";" (getenv "ACAD"))) ";"
(apply 'strcat
(mapcar (function (lambda ( x ) (strcat x ";")))
(vl-remove-if
(function
(lambda ( x )
(or (vl-string-search (strcase x) (strcase str))
(not (findfile x))
)
)
)
(mapcar
(function
(lambda ( x )
(vl-string-right-trim "\\" (vl-string-translate "/" "\\" x))
)
)
lst
)
)
)
)
)
)
)

(defun LM:SFSP+ ( lst / str ) 
    (setenv "ACAD" 
        (strcat (setq str (vl-string-right-trim ";" (getenv "ACAD"))) ";" 
            (apply 'strcat 
                (mapcar (function (lambda ( x ) (strcat x ";"))) 
                    (vl-remove-if 
                        (function 
                            (lambda ( x ) 
                                (or (vl-string-search (strcase x) (strcase str)) 
                                    (not (findfile x)) 
                                ) 
                            ) 
                        ) 
                        (mapcar 
                            (function 
                                (lambda ( x ) 
                                    (vl-string-right-trim "\\" (vl-string-translate "/" "\\" x)) 
                                ) 
                            ) 
                            lst 
                        ) 
                    ) 
                ) 
            ) 
        ) 
    ) 
)

Example Function Call

(LM:SFSP+ '("C:\\Folder1" "C:\\Folder2" "C:\\Folder3"))

dnbcgrass · 发表于 2013-6-8 21:45:10

好像不能得到某个已经加载的lsp的路径!

marting · 发表于 2013-6-8 21:51:05

sachindkini 发表于 2013-6-8 21:27
Add Support File Search Paths

This function will modify the semi-colon delimited string value of ...

dear SIR:

They are talking about how to obtain the loading path of the LISP file.

sicky111 · 发表于 2013-6-9 01:55:42

之前好像在论坛见到有个帖讨论过这个。

laibinwu · 发表于 2013-6-9 08:23:44

获取路径有多少用处？

szhorse · 发表于 2018-1-2 13:07:30

用了那么多的插件，今天才发现这些大神都在xd出没

tanjurun · 发表于 2019-6-2 17:23:37

牛人，我试试看行不行先

qmqyqj · 发表于 2019-8-26 00:00:10

能不能获取到的路径不包含本文件名，只需要全路径就行！

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

[原创] 如何获取lsp文件的自身路径

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

点评

点评