文件内字符串检查问题

andyding

我要复制一段DCL代码到base.dcl文件里。
要复制进去的代码里含有StampingCAD的文字。
如果检查base.dcl里有这段文字就不执行复制，否则就要复制。
以下程序运行一次就复制一次，请各位大神帮忙看看错在哪里。
我手动在base.dcl里加一段StampingCAD的文字,保存关闭，再执行程序num返回就不是nil，就不会执行复制。
但是程序就是不行，一直返回nil。

(defun Userdcl (st_dcl / adcl tmp fadcl stdata num)
  (setq adcl (findfile "base.dcl"))
  (setq fadcl (open adcl "r"))
  (while (setq stdata (read-line fadcl))
    (setq num (vl-string-search "StampingCAD" stdata))
    (if        (/= num nil)
      (setq num (+ num num))
    )
  )
  (close fadcl)
  (if (= num nil)
    (if        (setq st_dcl (findfile st_dcl))
      (progn (setq tmp (vl-filename-mktemp adcl))
             (vl-file-copy adcl tmp);;;备份
             (vl-file-copy st_dcl adcl T);;;复制
      )
    )
  )
)

(if (= (getvar "SYSCODEPAGE") "ANSI_950")
  (userdcl "base_cht.dcl")
  (userdcl "base_chs.dcl")
)

vitalgg

base.dcl 是CAD 的系统文件，你这是破坏了系统文件啊。
(while (setq stdata (read-line fadcl))
    (setq num (vl-string-search "StampingCAD" stdata)) ;; 如果下一个循环是真，执行 if ,如果是 nil ,把你原来的 num 又赋值 nil 了。下面的 if 语句有什么用。
    (if        (/= num nil)  
      (setq num (+ num num))
    )
  )

andyding

vitalgg 发表于 2020-12-27 09:25
base.dcl 是CAD 的系统文件，你这是破坏了系统文件啊。
(while (setq stdata (read-line fadcl))
    (s ...

请教，要怎么改？

vitalgg

andyding 发表于 2020-12-27 11:29
请教，要怎么改？

(defun Userdcl (st_dcl / adcl tmp fadcl stdata num flag)
  (setq flag nil) ;; 在循环之外设一个标志 值为空
  (setq adcl (findfile "base.dcl"))
  (setq fadcl (open adcl "r"))
  (while (setq stdata (read-line fadcl))
    (if  (vl-string-search "StampingCAD" stdata)
         (setq flag T) ;;如果存在字符串，置 T.
         ))
  (close fadcl)
  (if  flag
       (if   (setq st_dcl (findfile st_dcl))
             (progn (setq tmp (vl-filename-mktemp adcl))
                    (vl-file-copy adcl tmp);;;备份
                    (vl-file-copy st_dcl adcl T);;;复制
                    )
             )
       )
  )

(if (= (getvar "SYSCODEPAGE") "ANSI_950")
  (userdcl "base_cht.dcl")
  (userdcl "base_chs.dcl")
)

如果你有成形稳定的autolisp 作品，可以发布到 atlisp.cn

andyding

vitalgg 发表于 2020-12-27 12:20
(defun Userdcl (st_dcl / adcl tmp fadcl stdata num flag)
  (setq flag nil) ;; 在循环之外设一个 ...

谢谢你的帮助！