File Path & Name Macro

Current situation – V8 & IPLOT
I am looking to see if anyone has a macro that will place the path &
filename of an open dgn file. I came across one that did the current
date and modified it to do date and time. Can’t figure out how
to make it do the path & name. I know it can be done through the
default print function but the bosses are stuck on IPLOT. This is the
date & time macro if it helps any.

Sub main
dim str_date as String
dim str_time as String

str_date = date$()
str_time = time$()

MbeSendCommand "Place Text"
MbeSendKeyin str_date+" "+str_time
End Sub

Any input is appreciated

 

You can use text string substitution in iplot. include something like this
in your pen table:
IF (CHARACTERS .EQ. '$$$@PATHFILENAME@$$$') THEN
CHARACTERS = DGNSPEC
ENDIF

 

Description:
The MbeDgnInfo.dgnFileName read-only String property returns absolute
pathname of the currently active design file.

Example:
Dim designFile as String
designFile$ = MbeDgnInfo.dgnFileName

--
perl -e '$_ = "macart\@Nzemail.SPAM.com.au\n"; s/NO\.//; s/SPAM\.//;
print;'
| Current situation – V8 & IPLOT
| I am looking to see if anyone has a macro that will place the path &
| filename of an open dgn file. I came across one that did the current
| date and modified it to do date and time. Can’t figure out how
| to make it do the path & name. I know it can be done through the
| default print function but the bosses are stuck on IPLOT. This is the
| date & time macro if it helps any.
|
| Sub main
| dim str_date as String
| dim str_time as String
|
| str_date = date$()
| str_time = time$()
|
| MbeSendCommand "Place Text"
| MbeSendKeyin str_date+" "+str_time
| End Sub
|
| Any input is appreciated

 

Thanks