打开网页 lisp 代码 （转载）

skg123

构想，点击工具栏的工具 链接到自己的公司、 博客或空间上。
绘制CAD图，遇到问题，直接点击工具 就链接到 明经论坛了，方便快捷。
最简单的方法：
该方法得到rjtiantian 帮助
(defun c:tt
(command "BROWSER" "http://bbs.mjtd.com")
)


经过百度 ，源代码如下网址中
http://www.afralisp.net/archive/methods/lista/launchbrowserdialog_method.htm
案例Example :
(defun c:al-launchbrowserdialog ()

(vl-load-com)

(setq util (vla-get-utility
                   (vla-get-activedocument
                        (vlax-get-acad-object))))
                        
(vla-LaunchBrowserDialog util 'theurl "AfraLisp Browser"
      "Open" "http://www.afralisp.com" "ACADBROWSER" 1)

(princ theurl)

(princ)

);defun

vlisp2012

感觉买啥大用处啊！

sicky111

不是用IE浏览器打开，窗口不能最大化，没啥用。

skg123

sicky111 发表于 2013-5-5 15:33
不是用IE浏览器打开，窗口不能最大化，没啥用。

(defun c:tt
(command "BROWSER" "http://bbs.mjtd.com")
)

skg123

http://bbs.mjtd.com/thread-95696-1-1.html
一个在CAD界面瞬间关掉所有网页的lsp程序

skg123

vlisp2012 发表于 2013-5-5 08:55
感觉买啥大用处啊！

有的，你可以把你的CAD相关的网站 做到工具栏中，有时候可以用CAD的时候，也可以直接连接到CAD相关网页中。

wjl1014

大材小用。

圣天诺杰

怎么用默认的浏览器打开？

yefei812678

这有啥用啊 》