ug girp 如何才能获取当前文件的 文件名

有哪位高手知道ug girp 有哪个命令能获取当前文件的 文件名呢？&FNAME之前好像还要运行DOPEN之类的命令才行。不知 具体的命令是怎样的呢？

我也很想知道，高手指教一下吧,
下边是我获取日期的原程序，有问题，烦请高手们指点一二，帮帮我们这些菜鸟吧，谢谢了！
DELIM/''
&FULLDT=1
print/'&FULLDT=',&FULLDT
crtwrt/'DATE',0,0,
halt

1.&pspec  (当前文件的规定名）   完整路径
  &pname  (当前部件名）   仅部件名，不含路径。

2.获取日期不用这么烦吧？直接DATE就可以了。
  EG：&FULLDT=1
         PRINT/'DATE='+DATE
自己去试试吧，俺也是菜鸟。

原帖由 waing3532 于 2006-5-15 12:43 发表
1.&pspec  (当前文件的规定名）   完整路径
  &pname  (当前部件名）   仅部件名，不含路径。

2.获取日期不用这么烦吧？直接DATE就可以了。
  EG：&FULLDT=1
         PRINT/'DATE='+DATE
自己 ...

PRINT/'DATE='+DATE
大哥，我是说写入屏幕上（你的只是在信息栏显示）大哥帮帮忙吧

原帖由 zz_zeng 于 2006-5-18 14:23 发表




PRINT/'DATE='+DATE
大哥，我是说写入屏幕上（你的只是在信息栏显示）大哥帮帮忙吧

写入是啥意思？你先说你要干啥？
看你写的CRTWRT也只是临时显示一下呀。刷新就没了。
NOTE一下就可以写入屏幕了呀

note/100,100,&date

谢谢各位，想获取文件夹下面的文件名又该怎么做？还有如何在装配里选中一个组件然后显示它的文件名呢？

原帖由 chenyong_1979 于 2006-5-18 18:08 发表
note/100,100,&date

05-19-2006 出来了，谢谢老大了
不过我去掉了&才行（note/100,100,date ）
加上编译可通过，用时会有警报，不知是何缘故

参考一下：

$$GRIPSW/DECLRV  $强制定义所有简单变量
string/root(132),wkname(132)


$$print/&pname  $$当前工件名称
$$print/&pspec  $$当前工件路径及名称

$$&fulldt=2
$$print/date   $$日期
$$print/time   $$时间


   $$----判断当前工件工作情况---

root=partop/ask,work
l=lenf(root)
dir:
i=i+1
    a=fndstr(ROOT,'\',i)
if/a<>0,jump/dir:
    wkname=substr(root,i,l-i+1)
print/istr(a),wkname
print/root

hal:
    halt

２．．．．．．．．

l00:       
        ident/'选择对象',ent,cnt,nm,rsp
        jump/l00:,trm:,,,rsp


        j=1
        elename(1)=&cpnam(ent(1))
$$print/elename(1)

        do/l10:,i,2,nm
                    aan=&cpnam(ent(i))