发一个处理*.lgw的lisp程序

yucpp

ANSYS生成的*.lgw文件，稍微修改下就能成为命令流文件了，方便。不过，保存的lgw文件，会有很多的注释。这些注释是程序产生的，对我们没有用，所以，我做了一个lisp文件来去掉这些注释。下来是代码。复制代码后，粘贴到记事本中，保存成后缀为.lsp文件，用AUTOCAD加载后，输入命令lgw，就可以用autocad把那大堆的!去掉了。

(defun c:lgw ()
  (setq info_address "f:/result")
  (SETQ fp (OPEN (GETFILED "请选择要转换的文件:" "" "" 8) "r"))
  (read_data fp)   ;读取数据库
  (write_lst_2_txt DATA info_address) ;写入数据
  (princ "命令lgw")
  (princ)
)
(defun read_data (aim)   ;获取数据库
  (setq DATA nil)
  (WHILE (SETQ LINE (READ-LINE FP)) ;将数据库中的数据存入DATA中
    (if (and (> (strlen LINE) 0) (not (wcmatch LINE "!*")))
      (progn
(SETQ DATA (CONS LINE DATA))
      )
    )
  )
  (setq DATA (reverse DATA))
  (close aim)
)
(DEFUN write_lst_2_txt (lst folder / f) ;写入数据
  (SETQ f (OPEN (GETFILED "文件保存为:" folder "txt" 1) "w"))
  (MAPCAR '(LAMBDA (x) (WRITE-LINE (prin1 x) f))
   lst
  )
  (CLOSE f)
  (PRINC)
)