[LISP程序]：请问怎么给lisp语句加上相对路径？

2983

下面这一段代码是很久以前我从网上当下来得。
。。。
(defun c:chw ()(_@ld"wdtool")(c:wcha));换平面窗
(defun c:chd ()(_@ld"wdtool")(c:dcha));换平面门
(defun c:dw ()(_@ld"dwall")(c:dwall));双线直墙
(defun c:gw ()(_@ld"dwall")(c:gdwall));双线隔墙
。。。。。

以第一行为例，他的意思是：把天正II3.0安装根目录下的lisp目录下的wdtool.lsp中的wcha命令用chw代替。其实就是自定义个简化命令了。
现在在天正六中，一部分的老ilsp被放在了和lisp平行的目录lisp2d中去了。请问如果我想继续使用上面的语句的话，怎么更改路径啊？
注意：原来的代码中没有指明路径，程序自动的认为是：//tch14/lisp目录下。

xhf

你可以试试输入完整的路径。
另外，你也可以通过修改ACAD.PGP文件来简化命令，注意一定要在运行CAD时加载你的LISP程序。

aeo

重写_@ld

原来的函数里有一个是找天正的路径的(注册表吧)

一个土办法解决之.
tch_kernal.arx(我还5.5呢!不知变了没)是一定在sys里的。
(setq path findfile "tch_kernal.arx") -->天正的sys,
相对关系，加加减减就是你要的lisp目录了.

2983

能不能帮我示范一下写一段？我不懂lisp语言。

wkai

试试这个：
[php]
(defun _@ld (fun_name)
  (setq my_path "e:\\zhf\\lsp\\")
;;;自己修改路径，使它指向你的lsp程序文件。
  (if (member fun_name loaded_LSP)
;;;loaded_LSP作为一个全局变量，用来保存已经加载过的LSP文件名。
    (princ (strcat "\n文件已经加载: " fun_name))
    (if        (findfile (strcat my_path fun_name))
      (if (load (strcat my_path fun_name))
        (progn (princ (strcat "\n文件加载成功: " fun_name))
               (setq loaded_LSP (append loaded_LSP (list fun_name)))
        )
        (princ (strcat "\n文件加载失败: " fun_name))
      )
      (princ
        (strcat "\n在" my_path "文件夹查找不到文件: " fun_name)
      )
    )
  )
  (princ)
)[/php]

2983

可不可以指定多个路径？_@ld是什么含义？

wkai

_@ld没有特别的含义，不过是个函数名。
上面的程序不支持多个路径

2983

呵呵，我有点开窍了，谢谢斑竹

eachy

最初由 2983 发布
[B]呵呵，我有点开窍了，谢谢斑竹 [/B]

保证 Lisp2d 在 Support 路径下就可以。

2983

lisp2d是天正六里自己定义的。按照wkai斑竹的意见，把有用的lisp文件拷贝到一个新的目录里，再自定义一下他的路径，就可以为天正六里的天正3的命令自定义简化命令了。天正六里还是有几个命令比较好用的。象局部隐藏和恢复可见。但是对象化的方式实在难以合作和修改。还有就是天正六集成的天正三好像日照计算有大问题（也许是因为d版的原因），但是天正六自己名下的计算就没问题。所以我是大部分用天正六下面的天正三和小部分天正六下面的天正六。呵呵没被我绕晕了吧？不过最近打算用理正了。



不过aeo斑竹的“加加减减”自定义相对路径具体是什么意思？能给个实例吗？我刚开始打算学，连菜都不敢自称的。呵呵。


又：
wkai斑竹
我试过了。代码本身可用。可是天正的零件换个位置就罢工了。呵呵。这个尝试该到此结束了。

aeo

其实没开始学lisp,就算了.
把lisp2d目录直接加入cad的support路径.
这样什么都不要了:

2. 
   
3. (defun _@ld (file)
   
4.   (if (and (not(member file _tchatoml))
   
5.              (findfile file)
   
6.            (load  file)
   
7.       )
   
8.     (setq _tchatoml (cons file _tchatoml))
   
9.   )
   
10.   (princ)
    
11. )
    

<br /> (defun _@ld (file)<br />   (if (and (not(member file _tchatoml))<br />              (findfile file)<br />            (load  file)<br />       )<br />     (setq _tchatoml (cons file _tchatoml))<br />   )<br />   (princ)<br /> )<br />

2983

我试了，不行。