各位大神好，小弟有个疑问，很菜鸟的啊，求助。

a880110

我想读取当前cad图纸目录下的一个lisp文件的内容，不知道该怎么做了。
比如我cad现在打开着123.dwg，我想读取这个文件目录下的一个123.lisp的内容。
load "123.lisp"   用这样的方法行吗？总觉得这个没有说是那个目录下的123.lisp。
求大神帮助。先谢谢了

happyboy75

load "123.lsp" 是加载这个lsp文件，你这里没有路径也无法加载
读取你用read-line函数试一下

edata

(if (findfile "123.lisp")(load "123.lisp"))

zjsru_18_505

(setq PATH     (getvar "dwgprefix")
      FILENAME (getvar "dwgname")
)
(setq LISPFILE (strcat PATH (substr FILENAME 1 (- (strlen FILENAME) 4)) ".lsp"))

(load LISPFILE NIL)
;;这句是加载同名的lisp文件

(if (setq FILE (open LISPFILE "r"))
    (progn (while (setq VSTR (read-line FILE)) (print VSTR)) (close FILE))
)
;;输出lisp文件内容