• Industries
  • Products
  • Buy
  • Services & Support
  • Communities
  • Discussion Groups

    .NET

    Reply
    *Expert Elite*
    Posts: 1,647
    Registered: ‎04-29-2006

    Re: SendStringToExecute

    03-21-2012 11:00 AM in reply to: _gile

    Another way using F# is to define three functions so that the arguments order allows to use the "pipe forward" operator (|>).

     

    let get prop param obj =
        obj.GetType().InvokeMember(prop, BindingFlags.GetProperty, null, obj, param)
    
    let set prop param obj =
        obj.GetType().InvokeMember(prop, BindingFlags.SetProperty, null, obj, param) |> ignore
    
    let invoke meth param obj =
        obj.GetType().InvokeMember(meth, BindingFlags.InvokeMethod, null, obj, param)
    
    [<CommandMethod("foo")>]
    let foo() =
        let acad = Application.AcadApplication
        acad |> invoke "ZoomExtents" null |> ignore
        acad |> get "Preferences" [||] |> get "Display" [||] |> set "CursorSize" [| 5 |]

     

    Gilles Chanteau
    Please use plain text.
    Active Member
    Posts: 8
    Registered: ‎03-03-2012

    Re: SendStringToExecute

    03-22-2012 08:38 AM in reply to: _gile

    Thank you all for your responce

    Hans P

    Please use plain text.