I am writing a program for civil 3d (pipenetwork), but can not set the value of a partdatafield I've created:
Imports Autodesk.Civil.PipeNetwork.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Microsoft.VisualBasic
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Public Module c3d2010
<CommandMethod("test")> _
Public Sub test()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim ts As Transaction = doc.Database.TransactionManager.StartTransaction()
Dim pipeid As ObjectId = ed.GetEntity( _
New PromptEntityOptions(vbNewLine & "Select Pipe:")) _
.ObjectId
Dim fieldname As String = ed.GetString( _
New PromptStringOptions(vbNewLine & "tag:")) _
.StringResult
Dim value As Double = ed.GetDouble( _
New PromptDoubleOptions(vbNewLine & "value:")) _
.Value
Dim tubo As Pipe = ts.GetObject(pipeid, _
Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)
Dim pf As PartDataField = tubo.PartData.GetDataFieldBy(fieldname)
Dim oldval As Double = pf.Value
pf.Value = value
ts.Commit()
ed.WriteMessage(vbNewLine & "New=" & pf.Value & _
vbNewLine & "Old=" & oldval & _
vbNewLine & "real value=" & _
tubo.PartData.GetDataFieldBy(fieldname).Value)
End Sub
End Module
the test it should be, for example:
Command: test
Select pipe:
tag: coef
Value: 3
-------
New = 3
Old = 10
real value = 3
but "real value" is equal to 10 (old value)
why not work?
-----------------------
the partdatafield was created as (in AeccPartParamCfg.xml):
<AeccDfParameter name="coef" desc="coeficiente" context="coef_" index="0" datatype="Float" usage="Double_general" unit="" visible="True" internal="True"/>
and (in AeccPartParamCfg.xml)
<AeccPartDomainCfg domain="Pipe_Domain">
<AeccReqParam context="SweptShape"/>
<AeccPartTypeCfg type="Pipe" desc="Pipe">
<AeccOptParam context="coef_"/>
...
