lsp 与html 的研究 -- 必强
本帖最后由 1291500406 于 2020-1-15 19:25 编辑;;实例一 选择获取一个文件路径全称(defun $bb_getfile ( / bb cc)(setq bb(vlax-invoke-method(vlax-create-object "WScript.Shell")'exec"mshta vbscript:\"<html>
<inputtype=file id=path><script>path.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(path.value);close
();resizeTo(0,0);</script></html>\""))(if (/=(setq cc(vl-string-right-trim"\r\n"(vlax-invoke (vlax-get bb 'StdOut) 'ReadAll)))"")cc nil))
($bb_getfile)"C:\\Python27amd64\\python.exe"
;;实例二 提示信息打开网站
(defun c:bb nil
(startapp"mshta vbscript:\"
<html style=background:buttonface><HEAD><title>必强工具箱</title>
<script> function showBox1()
{ alert('欢迎来到必强编程空间'); }
</script>
<script>
function openUrl() {
var url = 'http://www.mjtd.com/?7327106';
window.open(url);
window.location.href = url; }
</script></HEAD> <BODY ><atarget='_blank' onclick= showBox1()><button>欢迎来到必强空间</button></a>
</br>
<input type= buttonname= btnvalue= 必强明经空间onclick= openUrl()/>
</BODY></HTML>
\"")(princ))
;;实例三 弹出多文本行
(defun c:bb nil
(startapp "mshta vbscript:\"
<html style=background:buttonface><HEAD><title>必强工具箱</title>
</HEAD> <BODY >
<textarea name='我爱你' id='questionBankName'rows='45' cols='195' class='text'></textarea>
<br/>
<script language=javascript>
var textobj=document.getElementById('questionBankName');
textobj.innerHTML=textobj.name;
</script>
</BODY></HTML>
\"")
(princ)
)
好好学习，天天秃头 大师：
能不能指定加载某个VLX文件？
因这类文件可能同名的太多了
例如指定只加载CAD安装文件夹(例如： D:\Program Files\AutoCAD 2005)内的
PPR_3.VLX 文件
别的位置的同名文件就不能加载了
谢谢您
谢谢分享，楼主辛苦了。 楼主威武。感谢~
页:
[1]