日志

打开网页 lisp 代码

热度 1已有 1367 次阅读2013-5-4 21:06 |系统分类:应用| 网页

构想，点击工具栏的工具链接到自己的公司、博客或空间上。

经过百度，源代码如下网址中

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

参考1

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Acessing-ftp-with-ActiveX/td-p/836095/page/2

明经论坛参考：

http://bbs.mjtd.com/thread-57083-1-1.html

mccad 的：

(defun Example_LaunchBrowserDialog ()

(vl-load-com)

(setq utility (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))))
(vla-launchbrowserdialog utility url "明经通道主页" "打开" "http://www.mjtd.com" "mccadweb" :vlax-false)
)