社区 › AutoLISP/Visual LISP 编程技术 › 提取快捷命令怎么用

杨如迁 发表于 2013-1-7 19:10:19

提取快捷命令怎么用

(defun get-nr ( file_name / OUT TMP)
(if (setq file_name (findfile file_name))
    (progn
      (setq out '())
      (setq file_name (open file_name "r"))
      (while (setq tmp (read-line file_name))
      (setq out (cons tmp out))
      )
      (close file_name)
      (reverse out)
      )
    )
)

(defun wr-kj (file_name / BJ FILE_NAME NR PATH X)
(vl-load-com)
(if (setq file_name (findfile file_name))
    (progn
      (setq path (VL-FILENAME-DIRECTORY file_name))
      (setq nr (get-nr file_name))
      (setq nr (vl-remove nil (mapcar '(lambda(x)
                        (if (setq bj (VL-STRING-SEARCH"★" x))
                            (substr x (1+ bj)))
                        )
                     nr)
               )
            )
      (setq file_name (strcat path "快捷键.txt"))
      (setq file_name (open file_name "w"))
      (mapcar '(lambda(x)
               (write-line x file_name)) nr)
      (close file_name)
      (princ "\n写入成功。")
      )
    )
(princ)
)

杨如迁 发表于 2013-2-3 23:00:33

半听可乐 发表于 2013-2-4 11:11:16

摘个现成答案发帖并不注明来源？

查看完整版本: 提取快捷命令怎么用