vlx、lsp快捷键定义的通用函数制作

kele99kele

xyp1964版主于2012年关于自定义vlx插件快捷键的回帖我修改了下，如下：

2. (if (null c:tt)
   
3.   (progn
   
4.     (load "nice_hualouti_v3.2.3.lsp")
   
5.     (setq tt c:nice_hualouti)
   
6.     (defun c:tt ()(tt))
   
7.     (vl-acad-undefun 'c:nice_hualouti)
   
8.   )  
   
9. )

(if (null c:tt)<br />   (progn<br />     (load "nice_hualouti_v3.2.3.lsp")<br />     (setq tt c:nice_hualouti)<br />     (defun c:tt ()(tt))<br />     (vl-acad-undefun 'c:nice_hualouti)<br />   )  <br /> )

我现在想将这个程序做成一个通用函数，求助如何实现
思路如下：

2. (defun N::SetKey (newkey oldkey filename)
   
3.   (if (null (strcat "c:" newkey))
   
4.     (progn
   
5.       (load (strcat """ filename"""))
   
6.       (setq newkey (strcat "c:" oldkey))
   
7.       (defun (strcat "c:" newkey) ()(newkey))
   
8.       (vl-acad-undefun (list (strcat "c:" oldkey)))
   
9.     )  
   
10.   )
    
11. )

(defun N::SetKey (newkey oldkey filename)<br />   (if (null (strcat "c:" newkey))<br />     (progn<br />       (load (strcat """ filename"""))<br />       (setq newkey (strcat "c:" oldkey))<br />       (defun (strcat "c:" newkey) ()(newkey))<br />       (vl-acad-undefun (list (strcat "c:" oldkey)))<br />     )  <br />   )<br /> )

有点驴唇不对马嘴的感觉，变量不是变量，字符串不是字符串的，请高手帮忙改改

llsheng_73

最尴尬的问题是 (defun (strcat "c:" newkey) ()(newkey))因为语法错误而无法执行,别的一些地方相对来说还有解决的办法，比如刚开始的条件判断(null(strcat"c:"newkey))会被判断为假期而不能进入(progn...)部分，改成(null(eval(read(strcat"c:"newkey))))就行.这种类似问题还有好几处。。
为了规避defun语句的语法问题。可以在程序过程中生成一个临时lsp，写入(defun (strcat "c:" newkey) ()(newkey))这一部分，然后加载它后删除临时lsp文件，从而使得defun能够被正确执行

kele99kele

llsheng_73 发表于 2015-8-19 02:57
最尴尬的问题是 (defun (strcat "c:" newkey) ()(newkey))因为语法错误而无法执行,别的一些地方相对来说还有 ...

生成临时文件的办法我认为可行，之前也想过，想法不成熟

nzl1116

kele99kele 发表于 2015-8-19 10:02
生成临时文件的办法我认为可行，之前也想过，想法不成熟

1. (defun N::SetKey (newkey oldkey filename)
   
2.   (if (null (eval (read (setq newkey (strcat "c:" newkey)))))
   
3.     (progn
   
4.       (load filename)
   
5.       (setq oldkey (strcat "c:" oldkey))
   
6.       (eval (list 'defun (read newkey) () (list (read oldkey))))
   
7.       (vl-acad-undefun (read oldkey))
   
8.     )  
   
9.   )
   
10. )

(defun N::SetKey (newkey oldkey filename)<br />   (if (null (eval (read (setq newkey (strcat "c:" newkey)))))<br />     (progn<br />       (load filename)<br />       (setq oldkey (strcat "c:" oldkey))<br />       (eval (list 'defun (read newkey) () (list (read oldkey))))<br />       (vl-acad-undefun (read oldkey))<br />     )  <br />   )<br /> )

tranney

如果有用那是太好了

curugi

是最理想的吧，可以随时加载