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

清风明月名字 · 发表于 2014-1-25 18:48:52

我使用下面代码时，碰到一个问题，“(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)
)

edata · 发表于 2014-1-25 22:02:39

(defun c:tt(/ fle ff en e1 str)
(setq fle "d:/cccc.txt")
(setq ff(open fle "a"))
(while (setq en(car (ENTSEL "请选择单行文本：")))
(setq e1(entget en))
(IF (= (CDR (assoc 0 e1)) "TEXT")
(PROGN
(setq str (CDR (assoc 1 e1)))
(write-line(STRCAT "单行文字内容" "," (vl-princ-to-string str)) ff)
)
)
)
(close ff)
(startapp "notepad.exe" fle)
)

masterlong · 发表于 2014-1-26 06:36:54

DOS_LIB函数
(dos_execute "Notepad.exe D:\\1.TXT" 3)

q3_2006 · 发表于 2014-1-26 07:13:14

没太明白你的意思,说的是NOTEPAD窗体的位置和大小吧,这个和代码没啥关系吧....

ll_j · 发表于 2014-1-26 11:33:28

我理解这是“前台”、“后台”问题，不管怎样，调用一个不属于AutoCAD的应用程序，这个程序都应该占用前台才可能被看见，也就是在前台，此时AutoCAD被退到后台，在不退出前台程序时，要进入后台程序（后台转到前台），就必须要楼主所说的鼠标点击。
解决的办法是用CAD自己的东西，这个东西就是对话框，如果只是浏览，并且量很少，可以使用alert函数，否则就必须自己设置文本对话框，并且可以修改的对话框的管理是很麻烦的。

ysq101 · 发表于 2014-1-26 12:19:04

楼上的对CAD很了解啊

edata · 发表于 2014-1-26 12:30:14

打开文件在循环内，每选一个文字，得打开一次，那么会打开很多次，很多文件，而且必须手动关.建议参考楼上意见，写入文件后，再读取数据，在Dcl中的list_box中显示，或者edit_box也可。

林霄云 · 发表于 2014-1-26 12:56:34

去掉此行代码，或者换到你想看到他的时候的地方。如果你要看到它，它一般都会获取焦点。

(startapp "notepad.exe" fle)

复制代码

kwok · 发表于 2014-1-26 13:12:05

本帖最后由 kwok 于 2014-1-26 14:09 编辑

折中方法
如果不是一直要打开notepad，可以试加一个批处理关掉notepad.
然后在lisp后加上(startapp "D:\\\\close.bat")

用记事本写上:
@echo off
ping /n 2 127.1>nul
taskkill /f /im notepad.exe
然后存成文件名为:colse.bat
放在D盘下

自贡黄明儒 · 发表于 2014-1-26 13:13:57

不用tartapp,用其它方法打开，或者有办法
我打开用excel打开文本文件时，总是在后面。与你的情况相反，我希望在前面

账号		自动登录	找回密码
密码			注册

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

点评

点评

本帖子中包含更多资源

点评

点评

浏览过的版块