How do i locate the last element?

[Jason Recliner]

I am trying to convert text to tags using Microstation Basic. Basically i want to step through a file looking for text on a certain level, get the string (using MbeElement.getString), place a cell at the origin of the text and then tag the cell with the string obtained from the text. The problem i am having is how to locate the cell to tag it once i have placed it, ie locate the last element created. I am assuming i need to use MbeStartLocate and/or MbeRelocate but i'm not sure how.

Any ideas?

 

[Who Me?]

Sub Main
Dim endOfFile as Long

' save the end of file position
endOfFile = MbeDgnInfo.endOfFile

' ... do something here like place an element..

' make the current file position the previous end of file position endOfFile = elem.FromFile(endOfFile)

' locate the element
MbeLocateElement endOfFile

' do something with the located element
' ...........

End Sub

 

[Jason Recliner]

I tried that but it wont select any elements,
after it gets to:
endOfFile = elem.FromFile(endOfFile)
endOfFile returns -1

 

[Dave Preston]

That suggests you have not placed a new element as the code is correct. If you still have problems post or email me your code

 

[Who Me?]

A working example

Sub Main
Dim endOfFile as Long

' save the end of file position
endOfFile = MbeDgnInfo.endOfFile

' ... do something here like place an element..
MbeSendCommand "PLACE LINE"
MbeSendDataPoint 0,0,0,1
MbeSendDataPoint 10,10,0,1

' make the current file position the previous end of file position endOfFile = elem.FromFile(endOfFile)

' do something with the located element
' ...........
MbeSendCommand "DELETE ELEMENT"
MbeLocateElement endOfFile
MbeLocateElement endOfFile

MbeStartDefaultCommand

End Sub

--
perl -e '$_ = "macart\@Nzemail.SPAM.com.au\n"; s/NO\.//; s/SPAM\.//; print;' | Sub Main | Dim endOfFile as Long | | ' save the end of file position | endOfFile = MbeDgnInfo.endOfFile | | | ' ... do something here like place an element.. | | | ' make the current file position the previous end of file position | endOfFile = elem.FromFile(endOfFile) | | | ' locate the element | MbeLocateElement endOfFile | | ' do something with the located element | ' ........... | | End Sub | | -- | perl -e '$_ = "macart\@Nzemail.SPAM.com.au\n"; s/NO\.//; s/SPAM\.//; | print;' | | | I am trying to convert text to tags using Microstation Basic. | | Basically i want to step through a file looking for text on a certain | | level, get the string (using MbeElement.getString), place a cell at | | the origin of the text and then tag the cell with the string obtained | | from the text. | | The problem i am having is how to locate the cell to tag it once i | | have placed it, ie locate the last element created. | | I am assuming i need to use MbeStartLocate and/or MbeRelocate but i'm | | not sure how. | | | | Any ideas? | |

 

[Jason Recliner]

Thanks for that.
I can now select the last element (a cell) but i'm having trouble tagging it. The macro runs through the file ok - finds the text, gets the string from it, place the cell at the text origin point, but it will only tag the first piece of text, the rest remain untagged. Is this because i am not creating a unique tag set definition for each one?

Code is attached below, i have cobbled it together from a few other ones so some it may look familiar...

Function PlaceTagCell (OriginPoint as MbePoint)
MbeSendCommand "ac=rm;place cell"
MbeSendDataPoint OriginPoint
MbeSendCOmmand "null"
End Function

Function AddTagSet (strSet As String) As Integer
Dim TagSet As New MbeTagSet
TagSet.name = strSet
AddTagSet = TagSet.add = Mbe_Success
End Function

Function AddTagDeF (strSet As String, strTag As String) As Integer Dim TagDef As New MbeTagDef TagDef.setName = strSet TagDef.name = strTag AddTagDef = TagDef.add = Mbe_Success End Function

Function AttachTag (Element As MbeElement, strSet As String, strTag As String,strVal As String) As Integer Dim Tag As New MbeTag Tag.setName = strSet Tag.name = strTag Tag.value = strVal AttachTag = Element.attachTag(Tag) = Mbe_Success End Function

'///////////////////////////////////////
Sub Main
Dim endOfFile As Long
Dim elem As new MbeElement
Dim RoomString as String
dim filepos as long
dim TextOrigin as MbePoint

MbeSendCommand "mark"

strSet$ = "room-no"
strTag1$ = "room-number"
strTag2$ = "building"
strTag3$ = "floor-level"
strTag4$ = "room-name-1"
strTag5$ = "campus"
strTag6$ = "asset"
strTag7$ = "room-name-2"

' Define Tag Set and two Tags
status = AddTagSet(strSet)

status = AddTagDef(strSet,strTag1)
status = AddTagDef(strSet,strTag2)
status = AddTagDef(strSet,strTag3)
status = AddTagDef(strSet,strTag4)
status = AddTagDef(strSet,strTag5)
status = AddTagDef(strSet,strTag6)
status = AddTagDef(strSet,strTag7)

' save the End of file position
endOfFile = MbeDgnInfo.endOfFile
RoomNum=0

BeginLoop:

filePos = elem.fromFile (0)

Do While filePos >= 0
If elem.level = 56 Then
If elem.type = 17 Then

'get string from room name text
status = elem.getString(RoomString)

'get origin point of room name text
status = elem.getOrigin(TextOrigin)

'change 'read' text to different
colour and level
elem.level = 63
elem.color = 3
status = elem.rewrite

'place cell on room name text
Status=PlaceTagCell(TextOrigin)

' make the current file position the
previous End of file position
endOfFile = elem.FromFile(endOfFile)
MbeLocateElement endOfFile

RoomNum=RoomNum+1

status =
AttachTag(elem,strSet,strTag1,Str$(RoomNum))
status =
AttachTag(elem,strSet,strTag2,strTag2)
status =
AttachTag(elem,strSet,strTag3,strTag3)
status =
AttachTag(elem,strSet,strTag4,RoomString)
status =
AttachTag(elem,strSet,strTag5,strTag5)
status =
AttachTag(elem,strSet,strTag6,strTag6)
status =
AttachTag(elem,strSet,strTag7,strTag7)

'print filepos
goto beginloop
End If
End If
filePos = elem.fromFile (filePos + elem.fileSize)
Loop
End Sub