F#Type Provider在Visual Studio 2017中降低了intellisense的速度

我有一个非常简单的类型提供者;所有类型都将被擦除,提供的类型具有2000 int只读属性Tag1。。Tag2000

let ns = "MyNamespace"
let asm = Assembly.GetExecutingAssembly()

let private newProperty t name getter isStatic = ProvidedProperty(name, t, getter, isStatic = isStatic)
let private newStaticProperty t name getter = newProperty t name (fun _ -> getter) true
let private newInstanceProperty t name getter = newProperty t name (fun _ -> getter) false
let private addStaticProperty t name getter (``type``:ProvidedTypeDefinition) = ``type``.AddMember (newStaticProperty t name getter); ``type``
let private addInstanceProperty t name getter (``type``:ProvidedTypeDefinition) = ``type``.AddMember (newInstanceProperty t name getter); ``type``

[<TypeProvider>]
type TypeProvider(config : TypeProviderConfig) as this = 
    inherit TypeProviderForNamespaces(config)

    let provider = ProvidedTypeDefinition(asm, ns, "Provider", Some typeof<obj>, hideObjectMethods = true)
    let tags = ProvidedTypeDefinition(asm, ns, "Tags", Some typeof<obj>, hideObjectMethods = true)           
    do [1..2000] |> Seq.iter (fun i -> addInstanceProperty typeof<int> (sprintf "Tag%d" i) <@@ i @@> tags |> ignore)

    do provider.DefineStaticParameters([ProvidedStaticParameter("Host", typeof<string>)], fun name args ->
        let provided = ProvidedTypeDefinition(asm, ns, name, Some typeof<obj>, hideObjectMethods = true)
        addStaticProperty tags "Tags" <@@ obj() @@> provided |> ignore
        provided
    )

    do this.AddNamespace(ns, [provider; tags])

然后是一个在单独文件中包含两个模块的测试项目:

module Common
open MyNamespace

type Provided = Provider<"">
let providedTags = Provided.Tags

type LocalTags() = 
    member this.Tag1 with get() : int = 1
    member this.Tag2 with get() : int = 2
.
.
    member this.Tag1999 with get() : int = 1999
    member this.Tag2000 with get() : int = 2000

let localTags = LocalTags()

module Tests

open Common
open Xunit

[<Fact>]
let ProvidedTagsTest () =
    Assert.Equal<int>(providedTags.Tag1001, 1001)

[<Fact>]
let LocalTagsTest () =
    Assert.Equal<int>(localTags.Tag100, 100)

一切正常(包括测试执行)。我遇到的问题是在我编写代码时Visual Studio内部的设计时行为。由于类型提供程序的原因,我希望会有一些开销,但速度太慢似乎太慢了。下面报告的时间以秒为单位,是指从按下点开始测量的时间(.)键,直到屏幕上出现intellisense属性列表

1. 提供的标签-&燃气轮机;15
2. localTags-&燃气轮机;5.

如果我注释掉或删除了第一个测试代码行(以便消除对所提供内容的任何引用),那么

3. localTags-&燃气轮机;立即的

如果属性的数量较大,则时间似乎呈指数增长,而不是线性增长,因此在10000时变为分钟。

问题包括:

• 这是正常的还是我做错了什么?
• 是否有指导方针来实现更快的响应?

如果有人对我为什么需要这么多属性感到好奇,我正在尝试向数据分析师提供一种工具,以便他们可以编写F#脚本,并从historian数据库中获取数据,该数据库的模式中有10000多个标记。