请问，用什么代码打开文本文件时，不会夺取CAD窗口的焦点，不会盖住CAD窗口呢？

清风明月10

我使用下面代码时，碰到一个问题，“(startapp "notepad" "F:/0文本内容.txt")”可以打开文本文件，但我不喜欢的是,打开后，文本文件窗口取得了焦点，盖住了CAD窗口，我每次都得重新点一下后面的CAD窗口，才能返回CAD窗口。请问，用什么代码打开文本文件时，不会夺取CAD窗口的焦点，不会盖住CAD窗口呢？
(defun c:原内容后输入TEXT内容到接口TXT()         
          (setq fle "F:/0文本内容.txt")
          (setq ff(open fle "a"))         
          (while
                 (setq 组码表 (entget (car (ENTSEL "请选择单行文本："))))
                        (IF (= (CDR (assoc 0 组码表)) "TEXT")            
                                (PROGN
                                        (setq 内容 (CDR (assoc 1 组码表)))
                                        (write-line(STRCAT "单行文字内容" "," (vl-princ-to-string 内容)) ff)
                                )
                        )
                      (startapp "notepad.exe" fle)
           )
           (close ff)  
)