[求助]：求助！！！输入命令快捷键后出现一下提示！

wl56042

输入命令快捷键后出现一下提示！命令不能用，用工具栏可用！

出现硬错误 ***
已达内部堆栈限制 (模拟)

wl56042

原因找出来了！
原因是我在启动组里面加了几个理正yujiazai文件中没有随机加载的几个lsp文件！
是不是随机加载的ｌｓｐ个数有限制的原因！
为什么不能在yujiazai文件中把所有用的ｌｓｐ都加载进取呢？
要不然又要像天正3.0那样，还要自己再编个ｌｓｐ！

king009

不知道你输入的是什么命令？

wl56042

标高修改等！还有些其它的！

xianxl

重装下！

秋枫

没有限制。

你的那个错误提示表示文件没有找到，看看支持路径或文件名输入是否正确。

一般在使用一种递归加载函数而没有找到文件时会出现这个提示。举个例子，一般可能的函数是这样：

2. 
   
3. [FONT=courier new](defun c:cmd() (load "cmd.lsp") (c:cmd))[/FONT]

<br /> [FONT=courier new](defun c:cmd() (load "cmd.lsp") (c:cmd))[/FONT]

当打入命令cmd而系统没有找到cmd.lsp而导致cmd命令没有被重定义时，结果cmd命令无限递归调用最后堆栈溢出。


你可以使用AutoCAD系统提供的预定义好的autoload函数。

1. 
   
2. [FONT=courier new]
   
3. (autoload "cmd.lsp" '("cmd"))[/FONT]

复制代码

autolisp的autoload函数定义：

2. 
   
3. [FONT=courier new]
   
4. ;;; ===== AutoLoad =====
   
5. 
   
6. ;;; Check list of loaded <apptype> applications ("ads" or "arx")
   
7. ;;; for the name of a certain appplication <appname>.
   
8. ;;; Returns T if <appname> is loaded.
   
9. 
   
10. (defun ai_AppLoaded (appname apptype)
    
11.    (apply 'or
    
12.       (mapcar
    
13.         '(lambda (j)
    
14.             (wcmatch
    
15.                (strcase j T)
    
16.                (strcase (strcat "*" appname "*") T)
    
17.             )   
    
18.          )
    
19.          (eval (list (read apptype)))
    
20.       )
    
21.    )
    
22. )
    
23. 
    
24. ;;  
    
25. ;;  Native Rx commands cannot be called with the "C:" syntax.  They must
    
26. ;;  be called via (command).  Therefore they require their own autoload
    
27. ;;  command.
    
28. 
    
29. (defun autonativeload (app cmdliste / qapp)
    
30.   (setq qapp (strcat """ app """))
    
31.   (setq initstring "\nInitializing...")
    
32.   (mapcar
    
33.    '(lambda (cmd / nom_cmd native_cmd)
    
34.       (progn
    
35.         (setq nom_cmd (strcat "C:" cmd))
    
36.         (setq native_cmd (strcat ""_" cmd """))
    
37.         (if (not (eval (read nom_cmd)))
    
38.             (eval
    
39.              (read (strcat
    
40.                     "(defun " nom_cmd "()"
    
41.                     "(setq m:err *error* *error* *merrmsg*)"
    
42.                     "(if (ai_ffile " qapp ")"
    
43.                     "(progn (princ initstring)"
    
44.                     "(_autoarxload " qapp ") (command " native_cmd "))"
    
45.                     "(ai_nofile " qapp "))"
    
46.                     "(setq *error* m:err m:err nil))"
    
47.                     ))))))
    
48.    cmdliste)
    
49.   nil
    
50. )
    
51. 
    
52. (defun _autoqload (quoi app cmdliste / qapp symnam)
    
53.   (setq qapp (strcat """ app """))
    
54.   (setq initstring "\nInitializing...")
    
55.   (mapcar
    
56.    '(lambda (cmd / nom_cmd)
    
57.       (progn
    
58.         (setq nom_cmd (strcat "C:" cmd))
    
59.         (if (not (eval (read nom_cmd)))
    
60.             (eval
    
61.              (read (strcat
    
62.                     "(defun " nom_cmd "( / rtn)"
    
63.                     "(setq m:err *error* *error* *merrmsg*)"
    
64.                     "(if (ai_ffile " qapp ")"
    
65.                     "(progn (princ initstring)"
    
66.                     "(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))"
    
67.                     "(ai_nofile " qapp "))"
    
68.                     "(setq *error* m:err m:err nil)"
    
69.                     "rtn)"
    
70.                     ))))))
    
71.    cmdliste)
    
72.   nil
    
73. )
    
74. 
    
75. (defun autoload (app cmdliste)
    
76.   (_autoqload "" app cmdliste)
    
77. )
    
78. 
    
79. (defun autoarxload (app cmdliste)
    
80.   (_autoqload "arx" app cmdliste)
    
81. )
    
82. 
    
83. (defun autoarxacedload (app cmdliste / qapp symnam)
    
84.   (setq qapp (strcat """ app """))
    
85.   (setq initstring "\nInitializing...")
    
86.   (mapcar
    
87.    '(lambda (cmd / nom_cmd)
    
88.       (progn
    
89.         (setq nom_cmd (strcat "C:" cmd))
    
90.         (if (not (eval (read nom_cmd)))
    
91.             (eval
    
92.              (read (strcat
    
93.                     "(defun " nom_cmd "( / oldcmdecho)"
    
94.                     "(setq m:err *error* *error* *merrmsg*)"
    
95.                     "(if (ai_ffile " qapp ")"
    
96.                     "(progn (princ initstring)"
    
97.                     "(_autoarxload " qapp ")"
    
98.                     "(setq oldcmdecho (getvar "CMDECHO"))"
    
99.                     "(setvar "CMDECHO" 0)"
    
100.                     "(command " ""_" cmd """ ")"
     
101.                     "(setvar "CMDECHO" oldcmdecho))"
     
102.                     "(ai_nofile " qapp "))"
     
103.                     "(setq *error* m:err m:err nil)"
     
104.                     "(princ))"
     
105.                     ))))))
     
106.    cmdliste)
     
107.   nil
     
108. )
     
109. 
     
110. (defun _autoload (app)
     
111. ; (princ "Auto:(load ") (princ app) (princ ")") (terpri)
     
112.   (load app)
     
113. )
     
114. 
     
115. (defun _autoarxload (app)
     
116. ; (princ "Auto:(arxload ") (princ app) (princ ")") (terpri)
     
117.   (arxload app)
     
118. )
     
119. 
     
120. (defun ai_ffile (app)
     
121.   (or (findfile (strcat app ".lsp"))
     
122.       (findfile (strcat app ".exp"))
     
123.       (findfile (strcat app ".exe"))
     
124.       (findfile (strcat app ".arx"))
     
125.       (findfile app)
     
126.   )
     
127. )
     
128. 
     
129. (defun ai_nofile (filename)
     
130.   (princ
     
131.     (strcat "\nThe file "
     
132.             filename
     
133.             "(.lsp/.exe/.arx) was not found in your search path folders."
     
134.     )
     
135.   )
     
136.   (princ "\nCheck the installation of the support files and try again.")
     
137.   (princ)
     
138. )[/FONT]

<br /> [FONT=courier new]<br /> ;;; ===== AutoLoad =====<br /> <br /> ;;; Check list of loaded <apptype> applications ("ads" or "arx")<br /> ;;; for the name of a certain appplication <appname>.<br /> ;;; Returns T if <appname> is loaded.<br /> <br /> (defun ai_AppLoaded (appname apptype)<br />    (apply 'or<br />       (mapcar <br />         '(lambda (j)<br />             (wcmatch<br />                (strcase j T)<br />                (strcase (strcat "*" appname "*") T)<br />             )   <br />          )<br />          (eval (list (read apptype)))<br />       )<br />    )<br /> )<br /> <br /> ;;  <br /> ;;  Native Rx commands cannot be called with the "C:" syntax.  They must <br /> ;;  be called via (command).  Therefore they require their own autoload <br /> ;;  command.<br /> <br /> (defun autonativeload (app cmdliste / qapp)<br />   (setq qapp (strcat """ app """))<br />   (setq initstring "\nInitializing...")<br />   (mapcar<br />    '(lambda (cmd / nom_cmd native_cmd)<br />       (progn<br />         (setq nom_cmd (strcat "C:" cmd))<br />         (setq native_cmd (strcat ""_" cmd """))<br />         (if (not (eval (read nom_cmd)))<br />             (eval<br />              (read (strcat<br />                     "(defun " nom_cmd "()"<br />                     "(setq m:err *error* *error* *merrmsg*)"<br />                     "(if (ai_ffile " qapp ")"<br />                     "(progn (princ initstring)"<br />                     "(_autoarxload " qapp ") (command " native_cmd "))"<br />                     "(ai_nofile " qapp "))"<br />                     "(setq *error* m:err m:err nil))"<br />                     ))))))<br />    cmdliste)<br />   nil<br /> )<br /> <br /> (defun _autoqload (quoi app cmdliste / qapp symnam)<br />   (setq qapp (strcat """ app """))<br />   (setq initstring "\nInitializing...")<br />   (mapcar<br />    '(lambda (cmd / nom_cmd)<br />       (progn<br />         (setq nom_cmd (strcat "C:" cmd))<br />         (if (not (eval (read nom_cmd)))<br />             (eval<br />              (read (strcat<br />                     "(defun " nom_cmd "( / rtn)"<br />                     "(setq m:err *error* *error* *merrmsg*)"<br />                     "(if (ai_ffile " qapp ")"<br />                     "(progn (princ initstring)"<br />                     "(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))"<br />                     "(ai_nofile " qapp "))"<br />                     "(setq *error* m:err m:err nil)"<br />                     "rtn)"<br />                     ))))))<br />    cmdliste)<br />   nil<br /> )<br /> <br /> (defun autoload (app cmdliste)<br />   (_autoqload "" app cmdliste)<br /> )<br /> <br /> (defun autoarxload (app cmdliste)<br />   (_autoqload "arx" app cmdliste)<br /> )<br /> <br /> (defun autoarxacedload (app cmdliste / qapp symnam)<br />   (setq qapp (strcat """ app """))<br />   (setq initstring "\nInitializing...")<br />   (mapcar<br />    '(lambda (cmd / nom_cmd)<br />       (progn<br />         (setq nom_cmd (strcat "C:" cmd))<br />         (if (not (eval (read nom_cmd)))<br />             (eval<br />              (read (strcat<br />                     "(defun " nom_cmd "( / oldcmdecho)"<br />                     "(setq m:err *error* *error* *merrmsg*)"<br />                     "(if (ai_ffile " qapp ")"<br />                     "(progn (princ initstring)"<br />                     "(_autoarxload " qapp ")"<br />                     "(setq oldcmdecho (getvar "CMDECHO"))"<br />                     "(setvar "CMDECHO" 0)"<br />                     "(command " ""_" cmd """ ")"<br />                     "(setvar "CMDECHO" oldcmdecho))"<br />                     "(ai_nofile " qapp "))"<br />                     "(setq *error* m:err m:err nil)"<br />                     "(princ))"<br />                     ))))))<br />    cmdliste)<br />   nil<br /> )<br /> <br /> (defun _autoload (app)<br /> ; (princ "Auto:(load ") (princ app) (princ ")") (terpri)<br />   (load app)<br /> )<br /> <br /> (defun _autoarxload (app)<br /> ; (princ "Auto:(arxload ") (princ app) (princ ")") (terpri)<br />   (arxload app)<br /> )<br /> <br /> (defun ai_ffile (app)<br />   (or (findfile (strcat app ".lsp"))<br />       (findfile (strcat app ".exp"))<br />       (findfile (strcat app ".exe"))<br />       (findfile (strcat app ".arx"))<br />       (findfile app)<br />   )<br /> )<br /> <br /> (defun ai_nofile (filename)<br />   (princ<br />     (strcat "\nThe file "<br />             filename<br />             "(.lsp/.exe/.arx) was not found in your search path folders."<br />     )<br />   )<br />   (princ "\nCheck the installation of the support files and try again.")<br />   (princ)<br /> )[/FONT]