[原创] ！将vbscript移植到lisp！

oyxx1023

源程序都出来了,不顶不行.我顶!

oyxx1023

把VBS换成JS可以么?

飞诗(fsxm)

如果支持wscript.CreateObject就明显的用到了wscript.exe

也就是说狂刀兄至少有一部分代码

是写出为vbs文件后再用(startapp "wscript.exe" ..vbs)方式运行的!

不知道说对了没有!

i-Stone

这种方式的返回值LSP收得到吗?

飞诗(fsxm)

晕倒!~当然可以收的到啦!

如果你没有忘记还有一个vl.application对象!去VBA版板看看吧!

不过我看刀兄是对不要返回值的才用的wscript哦!

测试很简单!试试wscript.exe运行的msgbox是不是独立于autocad运行的!

无痕

1.没有用到 wscript.exe,也没有写*.vbs

程序里面加一句:　(xxexpr "[ =]wscript\\." str " " "m")

就是在把　"wscript."　替换为　" ".

2.如果要支持ｊｓ，  就把　(vlax-put-property *wsc "language" "vbs")改一下（目前的版本还未开通，但是只要加两行代码基本就可以了）

或可以考虑写一个*.ｊｓ文件，然后执行之．其实这个方式是最原汁原味的移植，可以说基本没有限制，如果运行有问题，那就是原程序有问题．打算今晚就写这个版本．不过这样的话，可能不同步．返回值成问题．估计是这样，先试试看．．．

3.本版程序有返回值，如果不支持返回值，那么移植就意义不大．

4.对于注解，我编写的时候一直没把注解当回事．并没有专门处理．不知道龙龙仔为什么试不通．请看：

(setq *wsc (vla-GetInterfaceObject(vlax-get-acad-object)"ScriptControl"))
(vlax-put-property *wsc "language" "vbs")
(vlax-invoke *wsc 'ExecuteStatement "a = \"测试\"  '注解")
(vla-eval *wsc "msgbox (a) '测试注解")
或:
(vlax-invoke *wsc 'ExecuteStatement "msgbox a '注解")

均运行正常．

无痕

上面*wsc改为(setq *wsc (vlax-create-object "ScriptControl"))同样返回正常．

不会是把注解的符号　'("键) 写成了`(~键)吧？

cag

呵，太精彩了

i-Stone

JS版的出来没有啊.

龙龙仔

无痕在26樓把程序都寫出來了!