[求助]：向四季豆请教

doongs

　　以前看到你的写一个自动更新时间的帖子，非常好用，我现

在想能不能写一个自动打印文件名的语句，和那个自动打印时间的放在一起，

如“LAKE　EDGE　Print at 2002/12/18-16-35”，其中“LACK　EDGE”是文

件名，那个2002/12/18-16-35就是打印的时间了，因为我现在要打印上百张的

小样校对，小样还没有正式的名字，如果在每张图上没有文件名的标记以后就

很难查找，万分感激！

秋枫

四季豆同志现在比较忙，我来代答一下：

还是用rtext命令的D选项
下面是可能会用的，我整理一下：

1. 
   
2. [FONT=courier new]
   
3. 文件名: $(getvar, dwgname)
   
4. 当前布局名: $(getvar, ctab)
   
5. 当前路径: $(getvar, dwgprefix)
   
6. 文件名（不含.dwg后缀）: $(substr, $(getvar, dwgname), 1, $(-, $(strlen, $(getvar, dwgname)), 4))
   
7. 文件全路径全名: $(getvar, "dwgprefix")$(getvar, "dwgname")
   
8. 时间: $(edtime, 0, MON DD","  YYYY - H:MMam/pm)
   
9. [/FONT]

复制代码

doongs

谢谢秋枫
还想问两个问题
　　　　在R14中的Mtext中，如果我们加入了\H5;　　这样的语句，我们就控制了后面的字高为5，在这上面中语句中，我写了文件名和打印时间，我想文件名大一点，时间小一点，这样图面更美观
　　　第二；以上语句写的在哪里里找到他的对齐方式，我想放在图的右下角，但似乎只能是左对齐，文件名因为是英文的长度变化很大，哪里没有右对齐就很难放好！

秋枫

1. 你可以用两个rtext物体
2. 这个没有设置的地方。不过你可以通过字符串运算计算出位置来。
比如，用下面的代码：

1. 
   
2. 文件：$(substr,"------------------------------", 1, $(-, 30, $(-, $(strlen, $(getvar, dwgname)), 4)))$(substr, $(getvar, dwgname), 1, $(-, $(strlen, $(getvar, dwgname)), 4))
   

复制代码