yang686526

lyy大哥，帮我看一下这几行程序好吗？
www.dimcax.com
lyy大哥，帮我看一下这几行程序好吗？
(defun gps->waitclose(file / *wsh)
(vl-load-com)
(setq *wsh (vlax-create-object "wscript.shell"))
(vlax-invoke *wsh ’run (strcat "notepad " (findfile file)) 5 1)
(vlax-release-object *wsh)
)
(defun c:my-pgp( / *wsh);!!!acad.pgp编辑
(princ "\n编辑pgp文件,保存并关闭!")
(gps->waitclose "acad.pgp")
(setvar "re-init" 16)
(princ)
)
lyy大哥哥为什么上面的程序执行到(vlax-invoke *wsh ’run (strcat "notepad " (findfile file)) 5 1)这一步就出错啦，提示命令: (vlax-invoke *wsh ’run (strcat "notepad " (findfile acad.pgp)) 5 1)
参数类型错误: stringp nil
d
(vlax-invoke *wsh 'run (strcat "notepad " (findfile file)) 5 1)
好好学习天天向上