[求助]VLISP工程编译时"死机"问题

sunstart

在使用VLISP功能编译时遇到一些怪问题，向论坛的朋友中请教下。

 

例1：

 

   ;;如果图例文件.DWG已经存在,确认是否覆盖
   (if (findfile fspec)
      (progn
        ;;(princ ".")
        ;;(setq msgtemp (strcat "【" dname "】图形文件已存在,是否覆盖?"))
         (setq isReblock (yes_no (strcat "【" dname "】图形文件已存在,是否覆盖?"))) ;;编译出错处
      ) 
   );if 
   

   

   上述函数加载成功，但是工程编译到此函数文件时，VLISP“死机”

   （yes_no是自定义函数）

   做如下改动：
   
   ;;如果图例文件.DWG已经存在,确认是否覆盖
   (if (findfile fspec)
      (progn
        (princ ".")   ;;增加该行后，工程编译成功
        ;;(setq msgtemp (strcat "【" dname "】图形文件已存在,是否覆盖?"))
         (setq isReblock (yes_no (strcat "【" dname "】图形文件已存在,是否覆盖?")))
      ) 
   );if

 

 

   增加一行(princ ".")   后，工程编译成功

 

虽然工程编译通过，疑惑的是造成VLISP“死机”的原因是什么?

 

 

sunstart

例2：
   (setq cStartLevel (ureal 1 "" "起点标高 " v_StartLevel)
         cEndLevel   (ureal 1 "" "终点标高 " v_EndLevel)
   )     

 

  ===〉

   (setq ind_StartLevel (ureal 1 "" "起点标高 " v_StartLevel)
         ind_EndLevel   (ureal 1 "" "终点标高 " v_EndLevel)
   )    

 

   修改变量名称后，编译通过。 

loofs

有同感。在CAD2008版本以上都出现类似的问题。苦闷！有谁知道什么原因？