Raster Attach + Microstation Basic

[aust...@swest.swz.dupont.com]

I wrote a Basic Macro to attach a raster reference file. The attach
raster reference dialog box comes up, and the fields in that box are
correct. Unfortunately, after the box closes Microstation is not looking
for two points to fit the raster reference into.

Here's the appropriate code...

MbeSendCommand "RASTER ATTACH INTERACTIVE "

' Opened modal dialog "Attach Raster Reference File"

MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.cit"

MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd c:\dgn\"

MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd 0003.cit"

' Closed modal dialog "Attach Raster Reference File"

' Following comment is the command to close a modal dialog
MbeSendCommand "MBE1 CLOSEMODAL OK"

' MS should be prompting for datapoints here.. why ain't it?

' Coordinates are in master units
startPoint.x = 112089.638802#
startPoint.y = 111945.436198#
startPoint.z = 0.000000#

' Send a data point to the current command
point.x = startPoint.x
point.y = startPoint.y
point.z = startPoint.z
MbeSendDataPoint point, 1%

point.x = startPoint.x + 37.245365#
point.y = startPoint.y - 37.245365#
point.z = startPoint.z
MbeSendDataPoint point, 1%

Can anyone else confirm this weirdness. The Deja News archive database
shows that a fella named bru...@t-wave.com had the same problem, but I
don't see that anyone offered him a solution. He has subsequently ceased
posting on this topic.

Could he have been quietly hushed up by the Bently brothers? And if so,
what's the going rate for hush money? :)

"Eschew Obfuscation!"

-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet

[kin...@volny.cz]

sub main

' Opened modal dialog "Attach Raster Reference File"
' MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.cit"'
' MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd c:\dgn\"
' MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd 0003.cit"
' Closed modal dialog "Attach Raster Reference File"
' Following comment is the command to close a modal dialog
' MbeSendCommand "MBE1 CLOSEMODAL OK"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
rasterfile$="c:\dgn\0003.cit"
MbeSendCommand "RASTER ATTACH interactive "+rasterfile
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' MS should be prompting for datapoints here.. why ain't it?
' Coordinates are in master units
startPoint.x = 112089.638802#
startPoint.y = 111945.436198#
startPoint.z = 0.000000#

' Send a data point to the current command
point.x = startPoint.x
point.y = startPoint.y
point.z = startPoint.z
MbeSendDataPoint point, 1%

point.x = startPoint.x + 37.245365#
point.y = startPoint.y - 37.245365#
point.z = startPoint.z
MbeSendDataPoint point, 1%

end sub

OK ?