iCAx开思工具箱

标题: xspawn和Dopen在grip中的应用 [打印本页]

作者: gdboy 时间: 2010-11-10 22:43
标题: xspawn和Dopen在grip中的应用
xspawn和Dopen在grip中的应用

最终目的：打开UG所打开的文件的目录即打开UG当前工作目录

当前目录的代码是？

作者: aslow 时间: 2010-12-29 20:20
STRING/dir(132),dir2(132)
$$====================================================
dir=&pspec
m=lenf(dir)
n=1
DO/LA1:,num,1,m,1
n1=fndstr(dir,'\',n)
ifthen/n1==0
jump/la2:
else
n2=n1
n=n1+1
endif
LA1:
la2:
dir2=substr(dir,1,n2)
l1:
xspawn/concur,prog,'C:\windows\explorer.exe '+dir2
trm:
halt

BY CUI

作者: SWORDINHAND 时间: 2012-2-28 22:31
谢谢，学习了

作者: zmjacky 时间: 2012-12-10 12:35
学习了

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)