cancel
Showing results for 
Search instead for 
Did you mean: 

Is it possible to set (by VB Script) the shape selection mode to automatic ?

SOLVED
Highlighted
New Contributor

Is it possible to set (by VB Script) the shape selection mode to automatic ?

Hello,

 

Is it possible to set (by VB Script) the shape selection mode (manual shape/automatic shape) to automatic ?

In KB 2441, it is said that it is an improvement request for future versions (CR 16105).

 

Is this improvement available ? In which release ?

How does it work ?

 

I thank you for advance

Muriel Renoud

2 REPLIES
MEGA

Re: Is it possible to set (by VB Script) the shape selection mode to automatic ?

The KB is not up to date.

The feature is available from MEGA 2009 SP5

 

Example of script

Sub Dump(oItm)
Print oItm.ItemProperty("ModeOcc_Shape")
Print oItm.ItemProperty("ModeOcc_ManualShape")
End Sub

Set oDrw = GetObjectFromId("~ihoT1TdCAT10[Logigramme]").Drawing("RW")
For Each oObj In oDrw.DrawingObjects
Print oObj.SegName
Set oItm = oObj.DrawingItem
Dump oItm
oItm.ItemProperty("ModeOcc_Shape") = "prosbeg.mgs"
Dump oItm
oItm.ItemProperty("ModeOcc_Shape") = ""
Dump oItm
oItm.ItemProperty("ModeOcc_Shape") = "prosbeg.mgs"
Dump oItm
oItm.ItemProperty("ModeOcc_ManualShape") = False
Dump oItm
oItm.ItemProperty("ModeOcc_ManualShape") = True
Dump oItm
Next
Jerome
New Contributor

Re: Is it possible to set (by VB Script) the shape selection mode to automatic ?

Thank you very much. It suits us.