[求助]：刚学LSP ，各位帮忙？

fjw_ok

2. 
   
3. ID_startxd  [加载XDCAD]^C^C(load (findfile "startxd.lsp"))^C_STARTXD
   
4. ID_endxd  [卸载XDCAD]^C^C(load (findfile "startxd.lsp"))^C^C_ENDXD
   
5. 
   
6. 
   
7. 
   
8. (defun c:startxd()
   
9. (setvar "cmdecho" 0)
   
10. (if (not(menugroup "XDSoft"))
    
11. (if (findfile "XDSoft.mnu")
    
12. (progn
    
13. (setvar "filedia" 0)
    
14. (command "menuload" "XDSoft")
    
15. (setvar "filedia" 1)
    
16. )
    
17. )
    
18. )
    
19. )
    
20. 
    
21. (defun c:ENDXD()
    
22. (setvar "cmdecho" 0)
    
23. (if (menugroup "XDSoft")
    
24. (progn
    
25. (setvar "filedia" 0)
    
26. (command "menuunload" "XDSoft")
    
27. (setvar "filedia" 1)
    
28. )
    
29. )
    
30. )
    

<br /> ID_startxd  [加载XDCAD]^C^C(load (findfile "startxd.lsp"))^C_STARTXD<br /> ID_endxd  [卸载XDCAD]^C^C(load (findfile "startxd.lsp"))^C^C_ENDXD<br /> <br /> <br /> <br /> (defun c:startxd() <br /> (setvar "cmdecho" 0) <br /> (if (not(menugroup "XDSoft")) <br /> (if (findfile "XDSoft.mnu") <br /> (progn <br /> (setvar "filedia" 0) <br /> (command "menuload" "XDSoft") <br /> (setvar "filedia" 1) <br /> ) <br /> )<br /> )<br /> )<br /> <br /> (defun c:ENDXD() <br /> (setvar "cmdecho" 0) <br /> (if (menugroup "XDSoft") <br /> (progn <br /> (setvar "filedia" 0) <br /> (command "menuunload" "XDSoft") <br /> (setvar "filedia" 1) <br /> ) <br /> )<br /> )<br />

错在那里？？

chenlei

好象多了一个“）”

建议学VB，那东西用的地方多些。

fjw_ok

应该是菜单部分有问题，执行命令可以的
vb学了几年，希望与您多交流，学习