(XD::DOC:dstop2)在PEDIT命令激活下，自动输入Y的函数

Lispboy

1. (defun XD::DOC:dstop2 (/ n)
   
2.   (if (not (and
   
3.              (setq n (getvar "peditaccept"))
   
4.              (= 1 n)
   
5.            )
   
6.       )
   
7.     (command "y")
   
8.   )
   
9.   t
   
10. )
    
11. 
    

(defun XD::DOC:dstop2 (/ n)<br />   (if (not (and<br />              (setq n (getvar "peditaccept"))<br />              (= 1 n)<br />            )<br />       )<br />     (command "y")<br />   )<br />   t<br /> )<br /> <br />

Free-Lancer

还有个变量控制的，不提示的来自: Android客户端

/db_自贡黄明儒_

有应用示例吗？

marting

/db_自贡黄明儒_ 发表于 2013-7-24 17:25
有应用示例吗？

函数发布里面同时发布的一个，看看这个 http://www.xdcad.net/forum/thread-669548-1-1.html