请各位看下我这个代码有没有什么问题，运行好像很不稳定

Vroy

(if (= (substr THETYPE 1 1) "D")(setq TXTFILE "HANGER.TXT"))
(if (= (substr THETYPE 1 1) "Z")(setq TXTFILE "SUPPORT.TXT"))
(if (= (substr THETYPE 1 1) "L")(setq TXTFILE "CONNECT.TXT"))
(if (= (substr THETYPE 1 1) "T")(setq TXTFILE "SPRING.TXT"))
(if (= (substr THETYPE 1 1) "F")(setq TXTFILE "ACCESORY.TXT"))
(if (= (substr THETYPE 1 1) "G")(setq TXTFILE "ROOT.TXT"))
(setvar "osmode" 32)
(setq Pa(getpoint "\n插入点:"))
(setvar "osmode" 0)
        (setq f (open (strcat txt_dir TXTFILE) "r") dv (read-line f))
        (setq dv (read (strcat "(" dv ")"))
                    nu (- (length dv) (length (member (Read THETYPE) dv)))
        ) ;setq
        (repeat (+ nu 1) (setq dv (read-line f)))
        (setq f (close f)  dv (read (strcat "(" dv ")")) MC (nth 1 dv) GDWJ (nth 2 dv) ex nil)
        (while (not ex)
        (princ "\n名称:< ")(princ MC)(princ " > ")
                (if (= MC "U型吊板")
(princ " --标号与配套连接件对照表--\n |D=12  16  20  24  30  36  42  48  56||\n |d=10  10  12  16  20  24  30  36  42||"))
(princ "\n名称:< ")(princ MC)(princ " > ")
                (if (= MC "单孔吊板")
(princ " --标号与配套连接件对照表--\n |D=12  16  20  24  30  36  42  48  56||\n |d=10  12  16  20  24  30  36  42   ||"))
                  
        (princ "**给定标号: ")
         (princ GDWJ)
                (setq WJZ (getreal "***"))
                  (if (member WJZ GDWJ) (setq ex T))
        ) ;while
        ;(setq dto (length GDWJ) dno (length (member WJZ GDWJ)) DZ (nth (- dto dno) wt))
        (setq WJZ (rtos WJZ 2 0))
          (if (< (strlen WJZ) 2) (SETQ WJZ (strcat "0" WJZ)))
        (setq INSNAME (strcat ZDJ_DIR THETYPE "_" WJZ))
                (COMMAND "REDRAW")
          (setq f_DRZDJ (open (strcat INSNAME ".dwg") "r"))
(if f_DRZDJ   (progn         (command "insert" INSNAME Pa "" "" "")
                        (close f_DRZDJ))
              (princ "\n此标号的块文件尚未建立!")
)
(PRINC )
============================
现象就是有的电脑能执行，有点电脑就无法执行。很不稳定。很容易就提示：命令: (SETQ THETYPE "D1")(LOAD"DR_ZDJ")                       插入点:; 错误: 参数类型错误: stringp nil
引用的txt都是一些具体的参数。不在同一个文件夹下面。

Vroy

这个是一个支吊架绘制的一个插件，主要原理是通过CAD操作把以前编辑好的支吊架模块以块的形式插入CAD图中。是很早的时候在R14下编的。时间过了很长了，很不稳定了，希望各位高手多提宝贵意见。

cabinsummer

(setq f (open (strcat txt_dir TXTFILE) "r") dv (read-line f))中txt_dir是字符串还是什么？

Vroy

谢谢版主的关注。我通过调试，也发现了这个问题，应该是说明文件夹的路径的一个字符串。问题就出在这上面了。如果把这个换成"文件夹路径"，就一点问题也没有了。
追加一个问题，如果我把文件夹加入到支持文件搜索路径中去，能否用“txt_dir”表达。txt是文件夹名字。