개정판 a79d6d46
dev issue #000 : commit
| DTI_PID/SPPIDConverter/Drawing.vb | ||
|---|---|---|
| 616 | 616 | |
| 617 | 617 |
For Each connector As Connector In CONNECTORS |
| 618 | 618 |
If String.IsNullOrEmpty(connector.CONNECTEDITEM) = False Or connector.CONNECTEDITEM <> "None" Then |
| 619 |
Dim _sym As Symbol = FindObjectByUID(connector.CONNECTEDITEM) |
|
| 620 |
If _sym IsNot Nothing Then |
|
| 621 |
If _sym.SPPID_ITEM_OBJECT IsNot Nothing Then |
|
| 622 |
connectSymbol = _sym.SPPID_ITEM_OBJECT |
|
| 623 |
Exit For |
|
| 619 |
Dim result = FindObjectByUID(connector.CONNECTEDITEM) |
|
| 620 |
If TypeOf (result) Is Symbol Then |
|
| 621 |
Dim _sym As Symbol = result |
|
| 622 |
If _sym IsNot Nothing Then |
|
| 623 |
If _sym.SPPID_ITEM_OBJECT IsNot Nothing Then |
|
| 624 |
connectSymbol = _sym.SPPID_ITEM_OBJECT |
|
| 625 |
Exit For |
|
| 626 |
End If |
|
| 624 | 627 |
End If |
| 625 | 628 |
End If |
| 629 | ||
| 626 | 630 |
End If |
| 627 | 631 |
Next |
| 628 | 632 | |
| ... | ... | |
| 1101 | 1105 |
'' end |
| 1102 | 1106 |
End Sub |
| 1103 | 1107 | |
| 1108 | ||
| 1104 | 1109 |
Public Overrides Sub Modeling() |
| 1105 | 1110 |
Try |
| 1106 | 1111 |
Dim _Placement As Placement = New Placement |
| ... | ... | |
| 1134 | 1139 |
Console.WriteLine(ex.Message) |
| 1135 | 1140 |
End Try |
| 1136 | 1141 |
End Sub |
| 1137 | ||
| 1138 | 1142 |
Public Overrides Sub SetAttribute() |
| 1139 | 1143 |
Try |
| 1140 | 1144 |
Dim _obj As Object = FindObjectByUID(OWNER) |
내보내기 Unified diff