Groups | Search | Server Info | Login | Register

Groups > comp.cad.microstation.programmer > #8

Re: Raster Attach + Microstation Basic

Show all headers | View raw

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 ?

Back to comp.cad.microstation.programmer | Previous | Next | Find similar

Thread

Re: Raster Attach + Microstation Basic kincl_p@volny.cz - 2012-11-16 07:53 -0800

csiph-web