[LISP函数]：谁能帮我检查这个程序错误？

wengsg

谁能帮我检查这个程序错误？
命令: ; 错误: AutoCAD 变量设置被拒绝: "celtype" "加固陡坎线1"

2. [php]
   
3. (defun wli (lon / ln lno lltn)
   
4.   (setq ln (strcase lon))
   
5.   (if (>= (getvar "ltscale") 8)
   
6.     (setq lltn "wllinx.lin" lno (strcat ln "X"))
   
7.     (setq lltn "wllin.lin" lno ln)
   
8.   );endif
   
9.   (if (and
   
10.        (/= ln "BYLAYER")
    
11.        (/= ln "BYBLOCK")
    
12.        (/= ln "CONTINUOUS")
    
13.      )
    
14.       (if (null (tblsearch "ltype" lno))
    
15.         (command "linetype" "load" lno lltn "")
    
16.       );endif
    
17.   );endif
    
18.   (setvar "celtype" lno)
    
19. );endmain[/php]

[php]<br /> (defun wli (lon / ln lno lltn)<br />   (setq ln (strcase lon))<br />   (if (>= (getvar "ltscale") 8)<br />     (setq lltn "wllinx.lin" lno (strcat ln "X"))<br />     (setq lltn "wllin.lin" lno ln)<br />   );endif<br />   (if (and<br />        (/= ln "BYLAYER")<br />        (/= ln "BYBLOCK")<br />        (/= ln "CONTINUOUS")<br />      )<br />       (if (null (tblsearch "ltype" lno))<br />         (command "linetype" "load" lno lltn "")<br />       );endif<br />   );endif<br />   (setvar "celtype" lno)<br /> );endmain[/php]

(defun c:wline ()
(menucmd "I=wlltype.wline")
(menucmd "I=*")               
);enddefun

(请用wl命令；使用地质线型，请用wl命令！")
(princ)

eachy

lon 参数在程序中是什么用途呢？

wengsg

lon =nil

eachy

最初由 wengsg 发布
[B]lon =nil [/B]

出错的原因是当前没有 "加固陡坎线1" 加载。

wengsg

斑竹说的没错，但应如何加载？或者如何更改这个程序？

eachy

最初由 wengsg 发布
[B]斑竹说的没错，但应如何加载？或者如何更改这个程序？ [/B]

(if (not (tblsearch "ltype" linetype))
  ...
)[/code]