【飞鸟集】快速搜索和浏览收藏夹中的地址

669423907

请教一下：按搜索后，能否自动关闭对话框？
因为按搜索以后的操作就不在CAD上了。不知可否？

highflybird

669423907 发表于 2012-7-24 17:26
请教一下：按搜索后，能否自动关闭对话框？
因为按搜索以后的操作就不在CAD上了。不知可否？

;;;把下面的这段代码加个(DONE_DIALOG)即可

2. 
   
3. (defun GoogleIt (Scopes / Index Keywords scope url browser scopeName)
   
4.   (setq Index (read (get_tile "Scopes")))
   
5.   (setq keywords (get_tile "Keywords"))
   
6.   (setq scope (nth Index scopes))
   
7.   (setq url (vl-string-subst (notrailspace (noleadspace keywords)) "{searchTerms}" (cdr scope)))
   
8.   (setq Browser (GetDefaultBrowser))
   
9.   (setq scopeName (car scope))
   
10.   (cond
    
11.     ( (= scopeName "百度")
    
12.       (startapp browser (strcat "http://www.baidu.com/s?wd=" keywords))                ;很无奈!不然的话，对中文关键字搜索会有问题哦?
    
13.     )
    
14.     (t
    
15.       (startapp browser url)
    
16.     )
    
17.   )
    
18.   (DONE_DIALOG)
    
19. )
    

<br /> (defun GoogleIt (Scopes / Index Keywords scope url browser scopeName)<br />   (setq Index (read (get_tile "Scopes")))<br />   (setq keywords (get_tile "Keywords"))<br />   (setq scope (nth Index scopes))<br />   (setq url (vl-string-subst (notrailspace (noleadspace keywords)) "{searchTerms}" (cdr scope)))<br />   (setq Browser (GetDefaultBrowser))<br />   (setq scopeName (car scope))<br />   (cond<br />     ( (= scopeName "百度")<br />       (startapp browser (strcat "http://www.baidu.com/s?wd=" keywords))                ;很无奈!不然的话，对中文关键字搜索会有问题哦?<br />     )<br />     (t<br />       (startapp browser url)<br />     )<br />   )<br />   (DONE_DIALOG)<br /> )<br />

preone

.. 仰止！！！

自贡黄明儒

仰止！！！！

自贡黄明儒

请教一下，普通DCL 文件，你是如何弄成dialogdata形式的？

highflybird

自贡黄明儒 发表于 2012-7-26 15:56
请教一下，普通DCL 文件，你是如何弄成dialogdata形式的？

可参考这个帖子.
http://bbs.mjtd.com/thread-92336-1-1.html

夏生生

高，实在是高