[求助]：调用共用LSP程序的问题

kevinchan

我有很多LSP程序中需要调用一个共用程序,如果把共用的代码加入到每个程序中有点麻烦,,有没有好的办法可以让每个程序调用共用程序并返回?

;;;N多程序中
(defun c:TEST()
  (setvar "cmdecho"0)
  (testone)
(prin1)
)

(defun c:bbb()                  ;;;而其他程序中可能为(defun c:ccc()
......
)

;;;;共用程序
(defun testone (/ a)
(setq a (getreal) "输入实数:")   
  (if (= a 123456)
  (c:bbb)                                      ;;;而其他程序中可能为(defun c:ccc()
    (t (alert "出错!!!"))
  )
(prin1)
)

lijiao

完全可以，各种API就是这样的。

kevinchan

但我现在就是有一个地方不太明白

;;;LSP程序1
(defun c:TEST1()
(setvar "cmdecho"0)
(testone)
(prin1)
)

(defun c:bbb() ......
)


;;;LSP程序2
(defun c:TEST2()
(setvar "cmdecho"0)
(testone)
(prin1)
)

(defun c:ccc()
......
)

;;;LSP程序3
(defun c:TEST3()
(setvar "cmdecho"0)
(testone)
(prin1)
)

(defun c:fff()
......
)



;;;;共用程序
(defun testone (/ a)
(setq a (getreal) "输入实数:")
(if (= a 123456)
(c:bbb) ;;;而其他程序中可能为(defun c:ccc()  在这句中,因为每个程序的函数不同,应该怎么处理?  比如有的应该返回到(c:fff),应该如何处理比较好呢?
(t (alert "出错!!!"))
)
(prin1)
)

另外这并不是有一个子程序,,而是作为一个单独的LSP文件来调用..

lijiao

1、编程时，你的思路一定要清晰，否则，无法让计算机帮你干活。
2、公用程序可以带上参数：
   (defun testone (funn / a)
           ...............
          )
       在TEST1中用（TESTONE  “BBB”），在TEST2中用（TESTONE  “CCC”），在TEST3中用（TESTONE  “FFF”）
3  子程序也是程序，与是否为单独的文件无关，只是你要保证公用程序必须加载，你可以在调用之前先测试一下，比如在TEST1中加入下面的语句：
(if (not testone)
    (if (load "公用程序文件名")
        (testone "bbb")
        (progn
           (princ "\n没有找到公用程序。")
           (exit)
         )
        )
        (testone "bbb")
   )

xiao_longxin

受益

kevinchan

;;;LSP程序1
(defun c:TEST1()
(setvar "cmdecho"0)
(testone)
(if (not testone)
(if (load "testone.lsp")
(testone "bbb")
(progn
(princ "\n没有找到公用程序。")
(exit)
)
)
(testone "bbb")
)
(prin1)
)

(defun c:bbb()
......
)



(defun testone (funn / a)
(setq a (getreal) "输入实数:")
(if (= a 123456)
(c:bbb)                                  ;;;那这一行该怎么写?[/COLOR]
(t (alert "出错!!!"))
)
(prin1)
)

eachy

1. 
   
2. (cond
   
3.   ((= func 1) (c:bbb))
   
4.   ((= func 2) (c:dddd))
   
5.   (r (alert “error"))
   
6. )

复制代码

lijiao

最初由 kevinchan 发布
[B];;;LSP程序1
(defun c:TEST1()
(setvar "cmdecho"0)
(testone)
(if (not testone)
(if (load "testone.lsp")
(testone "bbb")
(progn
(princ "\n没有找到公用程序。")
(exit)
)
)
(testone "bbb")
) ... [/B]

1. 
   
2.   [FONT=courier new]
   
3. ((eval (read (strcat "c:" funn))))
   
4.   [/FONT]
   

复制代码

kevinchan

是这样的吗?

(defun c:TEST1()
(setvar "cmdecho"0)
(if (not testone)
(if (load "testone.lsp")
(testone "bbb")
(progn
(princ "\n没有找到公用程序。")
(exit)
)
)
(testone "bbb")
)
(prin1)
)

(defun c:bbb()
      (command "circle" (list 2 2) 2)
)

;;;公用
(defun testone (funn / a)
(cond
  ((= funn bbb) (c:bbb))
  ((= funn dddd) (c:dddd))
  (r (alert "error"))
)
(setq a (getreal "输入实数:"))
(if (= a 123456)
((eval (read (strcat "c:" funn))))
(t (alert "搞错了!"))
)
(prin1)
)

eachy

觉得你的程序结构有问题，公用函数这么用？

kevinchan

最初由 eachy 发布
[B]觉得你的程序结构有问题，公用函数这么用？ [/B]

我的意图是所有程序要根据公用程序判断的结果来运行......
比如我可以把a的值改成 (dos_serialno)来判断,以后需要修改的话我直接改公用程序就好了,我是希望这样能方便些...
eachy有没有什么好的办法?

还有一个奇怪的问题是,我把testone.lsp编译成vlx,居然就 不能(load "testone.vlx)了

出现错误:
;没有找到公用程序。; 错误: quit / exit abort

aeo

看一下load的帮助.
不要加后缀，会自动找的.

kevinchan

谢谢两位斑竹大哥,我试了几次,老是要重复在命令栏运行两次(test1)才可以,不知道什么问题..
只有把test1.lsp的判断语句去掉了,才正常..
(defun c:TEST1()
(setvar "cmdecho"0)
(load "testone.vlx")
(testone "bbb")
(prin1)
)

(defun c:bbb()
(command "circle" (list 2 2) 2)
)

把后缀去掉也不行,想不明白......

aeo

看了一下：是因为程序都写好了，最后想加密，是吧?

2. 
   
3. (defun testone (a / )
   
4. (cond
   
5. (( = 1 a) t)
   
6. ...
   
7. ((= 0 a) nil)
   
8. )
   
9. ===========================
   
10. (if (testone a)
    
11.   (progn (defun ......)
    
12.             (defun ....)
    
13.   )
    
14. )
    
15. 检测不通过，那么，所有的函数将不定义
    

<br /> (defun testone (a / ) <br /> (cond<br /> (( = 1 a) t)<br /> ...<br /> ((= 0 a) nil)<br /> )<br /> ===========================<br /> (if (testone a)<br />   (progn (defun ......)<br />             (defun ....)<br />   )<br /> )<br /> 检测不通过，那么，所有的函数将不定义<br />

kevinchan

是的,就是想加密..