Dim sApp As String
sApp = InputBox(“Enter the app name of XData!”, “”, sApp, Me.Left + 1800, Me.Top + 2400)
‘sApp \u4e3a\u7a7a\u8868\u793a\u6240\u6709 App<\/p>\n\n\n\n
![\"\"](\"https:\/\/www.wyrcad.com\/wp-content\/uploads\/2024\/06\/Input.jpg\")
<\/figure>\n\n\n\n\u2018\u5c4f\u5e55\u9009\u62e9\u56fe\u5143
Dim PointPicked As Variant
Dim oEntity As Object
oDraw.Activate
oDraw.Utility.GetEntity oEntity, PointPicked<\/p>\n\n\n\n
‘\u8bfb\u53d6\u6269\u5c55\u6570\u636e
Dim iType As Variant
Dim sValue As Variant
iType = DetachXData(oEntity, sApp, \u201cType\u201d)
sValue = DetachXData(oEntity, sApp, \u201cValue\u201d)<\/p>\n\n\n\n
\u2018\u6307\u5411 TargetRow \u884c\u7b2c\u4e00\u5217 \u2018\u5c55\u793a\u6269\u5c55\u6570\u636e Public Function DetachXData(ByVal oEntity As Object, Optional ByVal sApp As String = “”, Optional ByVal sScope As String = “”) As Variant
TargetRow = MaxRow<\/a>(oSheet) + 1 \u2018\u6709\u6587\u5b57\u7684\u6700\u5927\u884c
oSheet.Cells(TargetRow, 1).Select
oSheet.Rows(TargetRow).NumberFormatLocal = “@” ‘\u6587\u672c\u6a21\u5f0f<\/p>\n\n\n\n
Dim I As Integer, J As Integer
For I = LBound(iType) To UBound(iType)
oSheet.Cells(1, GetColumnNumber<\/a>(oSheet, iType(I), 1)) = iType(I)
oSheet.Cells(TargetRow, GetColumnNumber<\/a>(oSheet, iType(I), 1)) = sValue(I)
Next I
For J = MinColumn<\/a>(oSheet) To MaxColumn<\/a>(oSheet)
oSheet.Columns(J).AutoFit \u2018\u8c03\u6574\u5217\u5bbd
Next J<\/p>\n\n\n\n![\"\"](\"https:\/\/www.wyrcad.com\/wp-content\/uploads\/2024\/06\/XData.jpg\")
<\/figure>\n\n\n\n
Dim I As Integer, J As Integer
‘ Return the xdata for the entity
Dim XTypeOut As Variant
Dim XValueOut As Variant
oEntity.GetXData sApp, XTypeOut, XValueOut
If Not IsArray(XTypeOut) Then Exit Function
If Not IsArray(XValueOut) Then Exit Function
Dim iArray() As Integer
Dim sArray() As String
Dim vTemp As Variant
Dim iCount As Integer
For I = LBound(XTypeOut) To UBound(XTypeOut)
If Not IsInArray<\/a>(XTypeOut(I), iArray) Then
iCount = iCount + 1
ReDim Preserve iArray(0 To iCount – 1)
ReDim Preserve sArray(0 To iCount – 1)
iArray(iCount – 1) = XTypeOut(I)
End If
Next I
‘IsMissing \u53ea\u5bf9 Variant \u53d8\u91cf\u6709\u6548
If IsMissing(sScope) Or sScope = “” Or InStr(1, sScope, “Type”, vbTextCompare) > 0 Then ‘DataType
DetachXData = iArray
Else ‘DataValue
For I = LBound(iArray) To UBound(iArray)
For J = LBound(XTypeOut) To UBound(XTypeOut)
If XTypeOut(J) = iArray(I) Then
If iArray(I) = 1010 Or iArray(I) = 1011 Or iArray(I) = 1012 Or iArray(I) = 1013 Then ‘\u4e09\u7ef4
vTemp = XValueOut(J)
sArray(I) = sArray(I) & “|” & vTemp(0) & “,” & vTemp(1) & “,” & vTemp(2)
Else
sArray(I) = sArray(I) & “|” & XValueOut(J)
End If
sArray(I) = CutTerminal<\/a>(sArray(I), “|”)
Else
‘Nothing
End If
Next J
Next I
DetachXData = sArray
End If
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"