0

在此先感谢您的帮助。我不知道我做错了什么，这变得非常令人沮丧。首先，一点背景...

程序：Revit MEP 2015 IDE：VS 2013 Ultimate

我创建了一个共享参数文件并将该文件中的参数添加到项目参数中。这些参数已应用于 Conduit Runs、Conduit Fittings 和 Conduit。

我正在使用 VB.NET 毫无问题地填充参数。代码运行后，我可以看到元素属性窗口中应用的预期文本。这是用于填充值的代码：

填充： 

Dim p as Parameter = Nothing
Dim VarName as String = "Parameter Name"
Dim VarVal as String = "Parameter Value"

p = elem.LookupParameter(VarName)      <-- elem is passed in to the function as an Element

If p IsNot Nothing Then
   p.Set(VarVal)
End if

这是我遇到错误的地方。当我尝试检索该值时，我可以通过参数的定义名称获取参数，但该值始终为空白。这是用于检索的代码...

Try
  For Each e As Element In fec.OfCategory(BuiltInCategory.OST_ConduitRun)
      sTemp = sTemp & "Name: " & P.Definition.Name & vbCrLf & "Value: " & P.AsString & vbCrLf & "Value As: " & P.AsValueString & vbCrLf & vbCrLf
      sTemp2 = sTemp2 & "Name: " & GetParamInfo(P, doc)
  Next
      MessageBox.Show(sTemp)
Catch ex As Exception
  MessageBox.Show(ex.Message)
End Try

消息框正确显示了所有参数名称，并且为 Revit 参数提供了一个值。但是，共享参数仅显示参数名称，值始终为空白。还有另一种我应该解决这个问题的方法吗？奇怪的是，如果我像这样使用用户选择的引用，我可以看到共享参数值......

Dim uiDoc As UIDocument = app.ActiveUIDocument
Dim Sel As Selection = uiDoc.Selection
Dim pr As Reference = Nothing
Dim doc As Document = uiDoc.Document
Dim fec As New FilteredElementCollector(doc)
Dim filter As New ElementCategoryFilter(BuiltInCategory.OST_ConduitRun)
Dim sTemp As String = "", sTemp2 As String = ""
Dim elemcol As FilteredElementCollector = fec.OfCategory(BuiltInCategory.OST_ConduitRun)
Dim e As Element = Nothing, el As Element = Nothing
Dim P As Parameter


pr = Sel.PickObject(ObjectType.Element)
e = doc.GetElement(pr)

For Each P in e.Paramters 
    sTemp = sTemp & "Name: " & P.Definition.Name & vbCrLf & "Value: " & P.AsString & vbCrLf & "Value As: " & P.AsValueString & vbCrLf & vbCrLf
    sTemp2 = sTemp2 & "Name: " & GetParamInfo(P, doc)
Next
MessageBox.Show(sTemp)

使用上面的方法，当用户直接选择对象时，我可以看到共享参数的值和名称。它们有何不同？

当值设置为开始时，我应该查看某种绑定吗？提前感谢大家的帮助。

问候，格伦

4

1 回答 1

0

神圣的Bejeesus ......我想通了，但我不确定为什么这些方法彼此不同......如果有人有任何见解，那就太好了。

我想在这里发布答案，以防万一其他人遇到同样的事情，所以......你可以看到我用来尝试读取上面参数的方法。在现在使用的方法中，只有几件事不同... 1) 元素集... 2) 将活动视图 Id 作为参数添加到 FilteredElementCollector... 3) 实现了 FilteredElementIterator .

据我所知，是迭代器使它与众不同……谁能解释它的不同之处？

以下是实际有效的方法...

Public Sub Execute(app As UIApplication) Implements IExternalEventHandler.Execute
  Dim prompt As String = ""
  Dim uiDoc As UIDocument = app.ActiveUIDocument
  Dim doc As Document = uiDoc.Document
  Dim ElemSet As ElementSet = app.Application.Create.NewElementSet
  Dim fec As New FilteredElementCollector(doc, doc.ActiveView.Id)
  Dim fec_filter As New ElementCategoryFilter(BuiltInCategory.OST_Conduit)
  fec.WhereElementIsNotElementType()
  fec.WherePasses(fec_filter1)
  Dim fec_i As FilteredElementIterator = fec.GetElementIterator
  Dim e As Element = Nothing
  fec_i.Reset()

  Using trans As New Transaction(doc, "Reading Conduit")
    trans.Start()
    While (fec_i.MoveNext)
      e = TryCast(fec_i.Current, Element)
      ElemSet.Insert(e)
    End While

    Try
      For Each ee As Element In ElemSet
        GetElementParameterInformation(doc, ee)
      Next
    Catch ex As Exception
      TaskDialog.Show("ERROR", ex.Message.ToString)
    End Try
    trans.Commit()
  End Using
End Sub

无论如何，感谢您提供的任何帮助。我敢肯定这不会是我最后一次在这里发帖。

问候，奔跑

于 2014-07-12T01:25:23.203 回答