Hi Peter,
Thank you, I don not have MapBasic and as you say I can see it's a
complex action. The solution I wanted was running a script in MapBasic
window that automatic change colours on polylines based on the selected
attributes. The only solution I see now is to use a software (like
Manifold) that use themes on formatting drawings and export it to
Mid/Mif to get the colours included.
Thanks
Regards
Sören
Hï Sören,
This cannot be done in a simple Update statement, becuase it's a complex
action that requires several steps:
1. Read the object from the table
2. Alter the object style using "Alter Object...."
3. update the object in the table with the new object
So you need either a loop or a special function, both solutions require
MapBasic.
'*************************************
'*************************************
'*************************************
1. The loop solution:
'*************************************
Sub UpdatePenStyle
Dim penNew As Pen,
nRowID As Integer,
oCur As Object
penNew = MakePen (2, 2, RED)
Fetch First From Selection
Do Until EOT(Selection)
oCur = Selection.OBJ
nRowID = Selection.ROWID
Alter Object oCur
Info OBJ_INFO_PEN, penNew
Update Selection
Set OBJ = oCur
Where ROWID = nRowID
Fetch Next From Selection
Loop
End Sub
'*************************************
'*************************************
'*************************************
2. The function approach
'*************************************
Function AlterPenStyle(ByVal oLine As Object, ByVal penNew As Pen)
AlterPenStyle = oLine
'***Here you ought to built in some check on object type etc.
Alter Object oLine
Info OBJ_INFO_PEN, penNew
AlterPenStyle = oLine
End Function
'*************************************
Sub UpdatePenStyle
Dim penNew As Pen
penNew = MakePen (2, 2, RED)
Update Selection
Set OBJ = AlterPenStyle(OBJ, penNew)
End Sub
'*************************************
HTH,
Peter Horsbĝll Mĝller
COWI A/S - Geographical Information
-----Original Message-----
From: Sören Lindqvist
To: [EMAIL PROTECTED]
Sent: 18-09-03 11:24
Subject: MI-L Change object colors in selection
Thanks for all helps this is a great list.
I have not find this in the manual how to do it.
I have an query selection on a network with polylines.
They are all standard black in color but I want to change the selection
to for example red color. How is this done?
Update selection .......???
Regards
Soren
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 8436
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 8468
