Echelle des Fenêtres

[PhilBat]

Bonjour,

à partir de visual basic 2010 (VB NET), je désire sélectionner une fenetre

(créer au préalable par fmult) dans l'espace papier.

Récupérer ses propriétés dans le but de pouvoir modifier l'échelle de la fenêtre (par exemple).

Merci de votre aide

a+

Phil

[(gile)]

Salut,

 

Regarde dans la doc ObjectARX la classe Autodesk.AutoCAD.DatabaseServices.Viewport. Elle a une propriété CustomScale en lecture/écriture qui devrait correspondre à ce que tu cherches.

 

Un petit exemple pour changer l'échelle de la fenêtre sélectionnée (en F#, pour changer)

 

module ViewportScale

open Autodesk.AutoCAD.ApplicationServices
open Autodesk.AutoCAD.DatabaseServices
open Autodesk.AutoCAD.EditorInput
open Autodesk.AutoCAD.Runtime

[<CommandMethod("Test")>]
let Test() =
   let db = HostApplicationServices.WorkingDatabase
   let ed = Application.DocumentManager.MdiActiveDocument.Editor
   let peo = new PromptEntityOptions("\nSélectionnez une fenêtre: ")
   peo.SetRejectMessage("\nUniquement une fenêtre !")
   peo.AddAllowedClass(typeof<Viewport>, true)
   let per = ed.GetEntity(peo)
   if per.Status = PromptStatus.OK then
       use tr = db.TransactionManager.StartTransaction()
       let vp = per.ObjectId.GetObject(OpenMode.ForWrite) :?> Viewport
       let pdo = new PromptDoubleOptions("\nEntrez la nouvelle échelle: ")
       pdo.AllowNegative <- false
       pdo.AllowZero <- false
       pdo.DefaultValue <- vp.CustomScale
       pdo.UseDefaultValue <- true
       let pdr = ed.GetDouble(pdo)
       if pdr.Status = PromptStatus.OK then
           vp.CustomScale <- pdr.Value
       tr.Commit()