提取快捷命令怎么用

杨如迁

(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)
  )

杨如迁

半听可乐

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