How to add Tokens Custom UDA for model objects such that we can call these in Drawings DSM VBScripts of Labels ?

[SanjoyNath]

Dear Experts,

How can i add more Tokens (Or UDA, Or like Custom properties for every features and for Model Objects) such that we can call these inside drawings ?

How to add Tokens Custom UDA for model objects such that we can call these in Drawings VBScripts of Labels?

We could use Custom properties (example  implemented with  vbscripts or report like  c# codes written for every small things  as Custom properties for every coordinates related things in Tekla) to get 100% Automated editing no touchups necessary to call data in drawings

[SanjoyNath]

Dear Experts,

How can we enhance these scripts to get all the proper labels on every cases 

Through DSM settings ?

analysis c:\Program_Files\Autodesk\AutoCAD_2019\ADVS\AstControls8x64.ocx
      AT_LINE=11387
      %%script
analysis c:\Program_Files\Autodesk\AutoCAD_2019\ADVS\Main.dll
      AT_LINE=180212
      %%script(If ("%StartX" = "%EndX" And "%StartY" = "%EndY") Or ("%EndX" = "") Then appendString("(%StartX/%StartY)") Else If "%StartX" = "" And "%EndX" <> "" Then appendString("%EndX/%EndY") Else appendString("(%StartX/%StartY)/(%EndX/%EndY)") End If)
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Kernel\Data\AstorDetailsBase.mdf
      AT_LINE=32521
      Script1%%script(If("%StartX"="%EndX" And "%StartY"="%EndY")Or("%EndX"="") Then appendString("(%StartX/%StartY)") Else If "%StartX"="" And "%EndX"<>"" Then appendString("(%EndX/%EndY)") Else appendString("(%StartX/%StartY)/(%EndX/%EndY)") End If)DSCScript1Script1Script1Script1Script1
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Kernel\Data\AstorProject.mdf
      AT_LINE=15605
      <Key>%%script(cutAngleX1 = getValueOfToken("IAngleX1"): cutAngleY1 = getValueOfToken("IAngleY1"): cutAngleX2 = getValueOfToken("IAngleX2"): cutAngleY2 = getValueOfToken("IAngleY2"): IF (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0 ) and (CDbl(cutAngleX1) >= 0.01 or CDbl(cutAngleY1) >= 0.01 or CDbl(cutAngleX2) >= 0.01 or CDbl(cutAngleY2)  >= 0.01 ) Then appendString("Bev'd") Else appendString("") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Kernel\Data\AstorProject.mdf
      AT_LINE=15609
      <Key>%%script(pLength = getValueOfToken("ILength"): pWidth = getValueOfToken("IWidth"): pContour = getValueOfToken("IContour"): IF 2*(CDbl(pWidth) + CDbl(pLength)) = CDbl(pContour) Then appendString("") Else appendString("CutPlate") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Kernel\Data\AstorProject.mdf
      AT_LINE=15613
      <Key>%%script(iClass = getValueOfToken("IClass"):If iClass = "CoumpoundBeam" Then appendString("Compd"):End If:If iClass = "PolyBeam" Then appendString("Curve"):End If:If iClass = "BentBeam" Then appendString("Curve"):End If:If iClass = "Beam" Then cutAngleX1 = getValueOfToken("IAngleX1"):cutAngleY1 = getValueOfToken("IAngleY1"):cutAngleX2 = getValueOfToken("IAngleX2"):cutAngleY2 = getValueOfToken("IAngleY2"):If (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0) and (Abs(CDbl(cutAngleX1)) >= 0.01 or Abs(CDbl(cutAngleY1)) >= 0.01 or Abs(CDbl(cutAngleX2)) >= 0.01 or Abs(CDbl(cutAngleY2))  >= 0.01) Then appendString("Bevel") Else appendString("Exact"):End If:End If:If iClass = "Plate" Then pLength = Replace(getValueOfToken("ILength"),",",""):pWidth = Replace(getValueOfToken("IWidth"),",",""):pContour = Replace(getValueOfToken("IContour"),",",""):If 2*(CDbl(pWidth) + CDbl(pLength)) > CDbl(pContour) + 2 Then appendString("Bevel") Else appendString("Exact"):End If:End If:)</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Steel\Data\AstorDetails.mdf
      AT_LINE=28955
      Shrunk LengthDSC#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Schrumpfl
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Steel\Data\AstorDetails.mdf
      AT_LINE=28961
      ceniaLongueur raccourcieShrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)D
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Steel\Data\AstorDetails.mdf
      AT_LINE=28963
      cia = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Shrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Longitud de rebaje
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Steel\Data\AstorDetails.mdf
      AT_LINE=28965
      #Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Shrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Shrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Zsugor
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Steel\Data\AstorDetails.mdf
      AT_LINE=28966
      si hossz#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\Steel\Data\AstorDetails.mdf
      AT_LINE=28967
      #Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\User2\Data\AstorAddIn.mdf
      AT_LINE=30715
      <Key>%%script(cutAngleX1 = getValueOfToken("IAngleX1"): cutAngleY1 = getValueOfToken("IAngleY1"): cutAngleX2 = getValueOfToken("IAngleX2"): cutAngleY2 = getValueOfToken("IAngleY2"): IF (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0 ) and (CDbl(cutAngleX1) >= 0.01 or CDbl(cutAngleY1) >= 0.01 or CDbl(cutAngleX2) >= 0.01 or CDbl(cutAngleY2)  >= 0.01 ) Then appendString("Bev'd") Else appendString("") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\User2\Data\AstorAddIn.mdf
      AT_LINE=30719
      <Key>%%script(pLength = getValueOfToken("ILength"): pWidth = getValueOfToken("IWidth"): pContour = getValueOfToken("IContour"): IF 2*(CDbl(pWidth) + CDbl(pLength)) = CDbl(pContour) Then appendString("") Else appendString("CutPlate") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\User2\Data\AstorAddIn.mdf
      AT_LINE=30723
      <Key>%%script(iClass = getValueOfToken("IClass"):If iClass = "CoumpoundBeam" Then appendString("Compd"):End If:If iClass = "PolyBeam" Then appendString("Curve"):End If:If iClass = "BentBeam" Then appendString("Curve"):End If:If iClass = "Beam" Then cutAngleX1 = getValueOfToken("IAngleX1"):cutAngleY1 = getValueOfToken("IAngleY1"):cutAngleX2 = getValueOfToken("IAngleX2"):cutAngleY2 = getValueOfToken("IAngleY2"):If (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0) and (Abs(CDbl(cutAngleX1)) >= 0.01 or Abs(CDbl(cutAngleY1)) >= 0.01 or Abs(CDbl(cutAngleX2)) >= 0.01 or Abs(CDbl(cutAngleY2))  >= 0.01) Then appendString("Bevel") Else appendString("Exact"):End If:End If:If iClass = "Plate" Then pLength = Replace(getValueOfToken("ILength"),",",""):pWidth = Replace(getValueOfToken("IWidth"),",",""):pContour = Replace(getValueOfToken("IContour"),",",""):If 2*(CDbl(pWidth) + CDbl(pLength)) > CDbl(pContour) + 2 Then appendString("Bevel") Else appendString("Exact"):End If:End If:)</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\AUS\User2\Data\AstorAddIn.mdf
      AT_LINE=43298
      Shrunk LengthDSC#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)0
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Kernel\Data\AstorDetailsBase.mdf
      AT_LINE=32522
      Script1%%script(If("%StartX"="%EndX" And "%StartY"="%EndY")Or("%EndX"="") Then appendString("(%StartX/%StartY)") Else If "%StartX"="" And "%EndX"<>"" Then appendString("(%EndX/%EndY)") Else appendString("(%StartX/%StartY)/(%EndX/%EndY)") End If)DSCScript1Script1Script1Script1Script1
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Kernel\Data\AstorProject.mdf
      AT_LINE=15629
      <Key>%%script(cutAngleX1 = getValueOfToken("IAngleX1"): cutAngleY1 = getValueOfToken("IAngleY1"): cutAngleX2 = getValueOfToken("IAngleX2"): cutAngleY2 = getValueOfToken("IAngleY2"): IF (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0 ) and (CDbl(cutAngleX1) >= 0.01 or CDbl(cutAngleY1) >= 0.01 or CDbl(cutAngleX2) >= 0.01 or CDbl(cutAngleY2)  >= 0.01 ) Then appendString("Bev'd") Else appendString("") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Kernel\Data\AstorProject.mdf
      AT_LINE=15633
      <Key>%%script(pLength = getValueOfToken("ILength"): pWidth = getValueOfToken("IWidth"): pContour = getValueOfToken("IContour"): IF 2*(CDbl(pWidth) + CDbl(pLength)) = CDbl(pContour) Then appendString("") Else appendString("CutPlate") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Kernel\Data\AstorProject.mdf
      AT_LINE=15637
      <Key>%%script(iClass = getValueOfToken("IClass"):If iClass = "CoumpoundBeam" Then appendString("Compd"):End If:If iClass = "PolyBeam" Then appendString("Curve"):End If:If iClass = "BentBeam" Then appendString("Curve"):End If:If iClass = "Beam" Then cutAngleX1 = getValueOfToken("IAngleX1"):cutAngleY1 = getValueOfToken("IAngleY1"):cutAngleX2 = getValueOfToken("IAngleX2"):cutAngleY2 = getValueOfToken("IAngleY2"):If (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0) and (Abs(CDbl(cutAngleX1)) >= 0.01 or Abs(CDbl(cutAngleY1)) >= 0.01 or Abs(CDbl(cutAngleX2)) >= 0.01 or Abs(CDbl(cutAngleY2))  >= 0.01) Then appendString("Bevel") Else appendString("Exact"):End If:End If:If iClass = "Plate" Then pLength = Replace(getValueOfToken("ILength"),",",""):pWidth = Replace(getValueOfToken("IWidth"),",",""):pContour = Replace(getValueOfToken("IContour"),",",""):If 2*(CDbl(pWidth) + CDbl(pLength)) > CDbl(pContour) + 2 Then appendString("Bevel") Else appendString("Exact"):End If:End If:)</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Steel\Data\AstorDetails.mdf
      AT_LINE=39418
      Shrunk LengthDSC#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Schrumpfl
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Steel\Data\AstorDetails.mdf
      AT_LINE=39424
      ceniaLongueur raccourcieShrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)D
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Steel\Data\AstorDetails.mdf
      AT_LINE=39426
      cia = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Shrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Longitud de rebaje
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Steel\Data\AstorDetails.mdf
      AT_LINE=39428
      #Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Shrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Shrunk Length#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)Zsugor
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Steel\Data\AstorDetails.mdf
      AT_LINE=39429
      si hossz#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\Steel\Data\AstorDetails.mdf
      AT_LINE=39430
      #Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)0
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\User2\Data\AstorAddIn.mdf
      AT_LINE=40903
      Shrunk LengthDSC#Height(2.60)Cut length = %%script(Cutlength = %Length-%ShrinkValue: appendstring cutlength)0
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\User2\Data\AstorAddIn.mdf
      AT_LINE=49969
      <Key>%%script(cutAngleX1 = getValueOfToken("IAngleX1"): cutAngleY1 = getValueOfToken("IAngleY1"): cutAngleX2 = getValueOfToken("IAngleX2"): cutAngleY2 = getValueOfToken("IAngleY2"): IF (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0 ) and (CDbl(cutAngleX1) >= 0.01 or CDbl(cutAngleY1) >= 0.01 or CDbl(cutAngleX2) >= 0.01 or CDbl(cutAngleY2)  >= 0.01 ) Then appendString("Bev'd") Else appendString("") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\User2\Data\AstorAddIn.mdf
      AT_LINE=49973
      <Key>%%script(pLength = getValueOfToken("ILength"): pWidth = getValueOfToken("IWidth"): pContour = getValueOfToken("IContour"): IF 2*(CDbl(pWidth) + CDbl(pLength)) = CDbl(pContour) Then appendString("") Else appendString("CutPlate") )</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\GBR\User2\Data\AstorAddIn.mdf
      AT_LINE=49977
      <Key>%%script(iClass = getValueOfToken("IClass"):If iClass = "CoumpoundBeam" Then appendString("Compd"):End If:If iClass = "PolyBeam" Then appendString("Curve"):End If:If iClass = "BentBeam" Then appendString("Curve"):End If:If iClass = "Beam" Then cutAngleX1 = getValueOfToken("IAngleX1"):cutAngleY1 = getValueOfToken("IAngleY1"):cutAngleX2 = getValueOfToken("IAngleX2"):cutAngleY2 = getValueOfToken("IAngleY2"):If (Len(cutAngleX1)>0 or Len(cutAngleY1)>0 or Len(cutAngleX2)>0 or Len(cutAngleY2)>0) and (Abs(CDbl(cutAngleX1)) >= 0.01 or Abs(CDbl(cutAngleY1)) >= 0.01 or Abs(CDbl(cutAngleX2)) >= 0.01 or Abs(CDbl(cutAngleY2))  >= 0.01) Then appendString("Bevel") Else appendString("Exact"):End If:End If:If iClass = "Plate" Then pLength = Replace(getValueOfToken("ILength"),",",""):pWidth = Replace(getValueOfToken("IWidth"),",",""):pContour = Replace(getValueOfToken("IContour"),",",""):If 2*(CDbl(pWidth) + CDbl(pLength)) > CDbl(pContour) + 2 Then appendString("Bevel") Else appendString("Exact"):End If:End If:)</Key>
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\INT\Kernel\Data\AstorDetailsBase.mdf
      AT_LINE=32419
      Script1%%script(If("%StartX"="%EndX" And "%StartY"="%EndY")Or("%EndX"="") Then appendString("(%StartX/%StartY)") Else If "%StartX"="" And "%EndX"<>"" Then appendString("(%EndX/%EndY)") Else appendString("(%StartX/%StartY)/(%EndX/%EndY)") End If)DSCScript1Script1Script1Script1Script1
analysis c:\ProgramData\Autodesk\Advance_Steel_2019\USA\Kernel\Data\AstorDetailsBase.mdf
      AT_LINE=32760
      Script1%%script(If("%StartX"="%EndX" And "%StartY"="%EndY")Or("%EndX"="") Then appendString("(%StartX/%StartY)") Else If "%StartX"="" And "%EndX"<>"" Then appendString("(%EndX/%EndY)") Else appendString("(%StartX/%StartY)/(%EndX/%EndY)") End If)DSCScript1Script1Script1Script1Script1