请问我这个程序为什么每次加载第一次失败，第二次才能成功呢？

kele99kele

程序如下：

2. (defun create_toolbar (/ file lst x)
   
3.   (vl-load-com)
   
4.   (if (not (menugroup "NICETOOLBAR"))
   
5.     (progn
   
6.       (alert "\n程序自动创建"NICETOOLBAR"工具栏，请稍后")
   
7.       (setq file (open "d:/nice/support/NICETOOLBAR.mnu" "W"))
   
8.       (foreach x '(
   
9.           "***MENUGROUP=NICETOOLBAR\n\n***TOOLBARS\n**NICETOOLBAR"
   
10.           "ID_ZCT001   [_Toolbar("NICE_图框目录工具", _Floating, _Hide, 10, 340, 1)]"
    
11.           "ID_ZCT010   [_Button("插入图框", "insertframe.bmp", "insertframe.bmp")]^C^Cnice_insertframe_frame"
    
12.           "ID_ZCT011   [_Button("改图图框", "insertframe_change.bmp", "insertframe_change.bmp")]^C^Cnice_insertfram_modify"
    
13.           "ID_ZCT012   [_Button("填写图框", "framefillin.bmp", "framefillin.bmp")]^C^Cnice_framefillin"
    
14.           "ID_ZCT013   [_Button("点取图框将图签内容匹配给另一个图框", "framematch.bmp", "framematch.bmp")]^C^Cnice_framematch"
    
15.           "ID_ZCT014   [_Button("图框及框内图纸移动", "framemove.BMP", "framemove.BMP")]^C^Cnice_move_frame"
    
16.           "ID_ZCT015   [_Button("图框页码批量修改", "pagenum.bmp", "pagenum.bmp")]^C^Cnice_numbered"
    
17.           "ID_ZCT016   [_Button("插入目录", "directoryinsert.bmp", "directoryinsert.bmp")]^C^Cnice_insertdirectory_frame"
    
18.           "ID_ZCT017   [_Button("点取图框将图签内容匹配给一个目录", "directorymatch.bmp", "directorymatch.bmp")]^C^Cnice_directorymatch"
    
19.           "ID_ZCT018   [_Button("生成目录", "directorymake.bmp", "directorymake.bmp")]^C^Cnice_makediractory_frame"
    
20.           "ID_ZCT019   [_Button("卸载NICE_图框目录工具", "uninstall.bmp", "uninstall.bmp")]^C^Cnice_uninstall"
    
21.         )
    
22.         (princ (strcat x "\n") file)
    
23.       )
    
24.       (close file)
    
25.       (command "menuload" "NICETOOLBAR.mnu")
    
26.     )
    
27.   )
    
28.   (command "TOOLBAR" "NICE_图框目录工具" "S")
    
29.   (princ)
    
30. )
    
31. (defun C:nice_uninstall ()
    
32.   (alert "即将卸载工具条\n感谢您的使用。\n有任何意见请反馈至kele99kele@163.com\n\n                               by【九群】")
    
33.   ;(command "TOOLBAR" "nice_图框目录工具" "H")
    
34.   (nice_delpath "D:\\nice\\support")
    
35.   (nice_delpath "D:\\nice")
    
36.   (command "CUIUNLOAD" "nicetoolbar")
    
37.   (princ)
    
38. )
    
39. (defun nice_delpath (path / temp)
    
40.   (setq temp (getenv "ACAD"))
    
41.   (setq temp (vl-string-subst ";" path temp))
    
42.   (setq temp (vl-string-subst ";" ";;;" temp))
    
43.   (setq temp (vl-string-subst ";" ";;" temp))
    
44.   (setenv "ACAD" temp)
    
45. )
    
46. (defun nice_makpath ()
    
47.   (setq oldacad (getenv "ACAD")) (princ)
    
48.   (if (wcmatch oldacad "*D:\\nice\\support*") ()
    
49.     (
    
50.       (vl-load-com)
    
51.       (vl-mkdir "D:\\nice\\support")
    
52.       (setq path "D:\\nice;D:\\nice\\support")
    
53.       (setenv "ACAD" (strcat oldacad ";" path))
    
54.     )   
    
55.   )
    
56.   (princ)
    
57. )
    
58. (nice_makpath)
    
59. (create_toolbar)
    
60. (load "图框工具.vlx")

(defun create_toolbar (/ file lst x)<br />   (vl-load-com)<br />   (if (not (menugroup "NICETOOLBAR"))<br />     (progn<br />       (alert "\n程序自动创建"NICETOOLBAR"<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>栏，请稍后")<br />       (setq file (open "d:/nice/support/NICETOOLBAR.mnu" "W"))<br />       (foreach x '(<br />           "***MENUGROUP=NICETOOLBAR\n\n***TOOLBARS\n**NICETOOLBAR"<br />           "ID_ZCT001   [_Toolbar("NICE_图框目录工具", _Floating, _Hide, 10, 340, 1)]"<br />           "ID_ZCT010   [_Button("插入图框", "insertframe.bmp", "insertframe.bmp")]^C^Cnice_insertframe_frame"<br />           "ID_ZCT011   [_Button("改图图框", "insertframe_change.bmp", "insertframe_change.bmp")]^C^Cnice_insertfram_modify"<br />           "ID_ZCT012   [_Button("填写图框", "framefillin.bmp", "framefillin.bmp")]^C^Cnice_framefillin"<br />           "ID_ZCT013   [_Button("点取图框将图签内容匹配给另一个图框", "framematch.bmp", "framematch.bmp")]^C^Cnice_framematch"<br />           "ID_ZCT014   [_Button("图框及框内图纸移动", "framemove.BMP", "framemove.BMP")]^C^Cnice_move_frame"<br />           "ID_ZCT015   [_Button("图框页码批量修改", "pagenum.bmp", "pagenum.bmp")]^C^Cnice_numbered"<br />           "ID_ZCT016   [_Button("插入目录", "directoryinsert.bmp", "directoryinsert.bmp")]^C^Cnice_insertdirectory_frame"<br />           "ID_ZCT017   [_Button("点取图框将图签内容匹配给一个目录", "directorymatch.bmp", "directorymatch.bmp")]^C^Cnice_directorymatch"<br />           "ID_ZCT018   [_Button("生成目录", "directorymake.bmp", "directorymake.bmp")]^C^Cnice_makediractory_frame"<br />           "ID_ZCT019   [_Button("卸载NICE_图框目录工具", "uninstall.bmp", "uninstall.bmp")]^C^Cnice_uninstall"<br />         )<br />         (princ (strcat x "\n") file)<br />       )<br />       (close file)<br />       (command "menuload" "NICETOOLBAR.mnu")<br />     )<br />   )<br />   (command "TOOLBAR" "NICE_图框目录工具" "S")<br />   (princ)<br /> )<br /> (defun C:nice_uninstall ()<br />   (alert "即将卸载工具条\n感谢您的使用。\n有任何意见请反馈至kele99kele@163.com\n\n                               by【九群】")<br />   ;(command "TOOLBAR" "nice_图框目录工具" "H")<br />   (nice_delpath "D:\\nice\\support")<br />   (nice_delpath "D:\\nice")<br />   (command "CUIUNLOAD" "nicetoolbar")<br />   (princ)<br /> )<br /> (defun nice_delpath (path / temp)<br />   (setq temp (getenv "ACAD"))<br />   (setq temp (vl-string-subst ";" path temp))<br />   (setq temp (vl-string-subst ";" ";;;" temp))<br />   (setq temp (vl-string-subst ";" ";;" temp))<br />   (setenv "ACAD" temp)<br /> )<br /> (defun nice_makpath ()<br />   (setq oldacad (getenv "ACAD")) (princ)<br />   (if (wcmatch oldacad "*D:\\nice\\support*") ()<br />     (<br />       (vl-load-com)<br />       (vl-mkdir "D:\\nice\\support")<br />       (setq path "D:\\nice;D:\\nice\\support")<br />       (setenv "ACAD" (strcat oldacad ";" path))<br />     )    <br />   )<br />   (princ)<br /> )<br /> (nice_makpath)<br /> (create_toolbar)<br /> (load "图框工具.vlx")

edata

你是指加载vlx失败吗？
我记得环境变量不能立即生效。

kele99kele

edata 发表于 2015-8-10 19:11
你是指加载vlx失败吗？
我记得环境变量不能立即生效。

不光加载vlx失败，是提示函数错误，连toolbar也没有加载就退出了，但是第二次appload就全都正常了，实在不知道为什么，第一次失败，第二次成功，而且每次都是一样

llsheng_73

如果不设置 环境变量而用CAD系统自己生成一个临时文件名来写可不可能就不会出现这种问题了？

kele99kele

llsheng_73 发表于 2015-8-10 23:01
如果不设置 环境变量而用CAD系统自己生成一个临时文件名来写可不可能就不会出现这种问题了？

可否指点下是哪句有可能有问题，怎么改可以最大可能的避免这个问题呢？

楚留香

vl-mkdir一次只能创建一级目录，
直接用这个   (vl-mkdir "D:\\nice\\support")不能创建
(vl-mkdir "D:\\nice")
(vl-mkdir "D:\\nice\\support")
就可以了

llsheng_73

楚留香 发表于 2015-8-10 23:47
vl-mkdir一次只能创建一级目录，
直接用这个   (vl-mkdir "D:\\nice\\support")不能创建
(vl-mkdir "D:\ ...

  (vl-mkdir "D:\\nice\\support")确实不能创建直接成功。但现在的问题是为什么会第一次出错，第二次就正常

kele99kele

llsheng_73 发表于 2015-8-10 23:56
(vl-mkdir "D:\\nice\\support")确实不能创建直接成功。但现在的问题是为什么会第一次出错，第二次就正 ...

我好像找到问题了，是不是出在if条件这里
我改成if  （progn xxx好像就可以了，你们试试行不行

llsheng_73

kele99kele 发表于 2015-8-11 00:31
我好像找到问题了，是不是出在if条件这里
我改成if  （progn xxx好像就可以了，你们试试行不行

(if (wcmatch oldacad "*D:\\nice\\support*") ()
    (
      (vl-load-com)
      (vl-mkdir "D:\\nice\\support")
      (setq path "D:\\nice;D:\\nice\\support")
      (setenv "ACAD" (strcat oldacad ";" path))
    )   
  )

这个地方确实有问题。。。同时楚留香提到的问题也应该考虑，最后修改如下
(if(not (wcmatch oldacad "*D:\\nice\\support*") )
    (progn
      (vl-load-com)
      (vl-mkdir "D:\\nice")
      (vl-mkdir "D:\\nice\\support")
      (setq path "D:\\nice;D:\\nice\\support")
      (setenv "ACAD" (strcat oldacad ";" path))
    )   
  )