[求助]：请教主程序与子程序之间调用返回值的问题

herphoneno1

请教下面主程序与子程序之间调用返回值的问题

(defun c:hf_stru()
(setvar "cmdecho" 0)
(setq ffn (getfiled "选择文件"  "" "sat" 2))
(setq ff (open ffn "r"))
(setq data (read-line ff))
(while data
       (if (= data "C_____ NST   nSect  nNodeBase   nNodeDisp  nNodeElas")
           (progn
                 (setq data (read-line ff))
                 (setq jgcs data)
                 (setq zf " ")
                 (hf_szf jgcs zf)

           )
       )
       (setq data (read-line ff))
)
(close ff)
(prin1)
)



(defun hf_szf (jgcs zf)
(setq zfcd (strlen jgcs))
(setq i 1)
(setq zfcdn zfcd)
(repeat zfcd
    (if (= (substr jgcs i 1) zf)
        (progn
           (cond
             ((= i 1) (setq jgcs (substr jgcs 2)))
             ((= i zfcdn) (setq jgcs (substr jgcs 1 (- zfcdn 1))))
             (t (setq jgcs (strcat (substr jgcs 1 (- i 1)) (substr jgcs (+ i 1)))))
           )
           (setq zfcdn (strlen jgcs))
        )
        (setq i (1+ i))
    )
)
jgcs
)



不知道哪里错了，我要返回jgcs值

Underway

(hf_szf jgcs zf)
您先给个 jgcs &  zf 的值
用来调试 hf_szf ....