yuebu 发表于 2021-6-25 10:51:00

将dat中数据设置为CAD坐标形式

Sub 宏1()
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
      Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
      :="]", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
      1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
      , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
      Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _
      25, 1), Array(26, 1), Array(27, 1), Array(28, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Selection.Replace What:="line:", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
    Selection.Replace What:=", [", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
    Selection.Replace What:="[", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
      Selection.Replace What:="3q", Replacement:="3q ", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
    'For i = 1 To Cells(1, 1).End(xlDown).Row
    For i = 1 To Range("A65536").End(xlUp).Row
      b = Cells(i, 1).End(xlToRight).Column
      Cells(i, b) = Cells(i, b) + " "
    Next i
    Call h2
End Sub

664571221 发表于 2021-6-26 08:42:00

你好兄弟这个怎么用能搞一个动图吗

yuebu 发表于 2021-6-27 16:17:00


你也需要这个吗

664571221 发表于 2021-6-28 08:18:00


是的兄弟....

yuebu 发表于 2021-6-30 09:53:00

我这是EI里转出的DAT哦
页: [1]
查看完整版本: 将dat中数据设置为CAD坐标形式