vba+Sendcommand模拟peidt

Sub ll()
  ss = Array("EC", "EF", "EE")
  tt = "pedit  (handent " & Chr(34) & ss(0) & Chr(34) & ")" & vbCr & "y" & vbCr & "j" & vbCr
  Debug.Print tt
  For ii = 1 To 2
    tt = tt & "(handent " & Chr(34) & ss(ii) & Chr(34) & ")" & vbCr
    Debug.Print tt
  Next ii
  Debug.Print tt
  '"j" (handent "ef") (handent "ee") "" "")
  ThisDrawing.SendCommand tt & vbCr & vbCr
End Sub