thisdrawing.sendcommand 执行 rectang命令

兰州人

Sub LSLS()
  Dim pp(0 To 2) As Double
  pp(0) = 1: pp(1) = 2
  TT = "(COMMAND " & Chr(34) & "RECTANG" & Chr(34) & " )"

用"""代替chr(34)
  TT = "(COMMAND " & """RECTANG"""
  TT = TT & "(LIST " & pp(0) & " " & pp(1) & ") "
  TT = TT & "(LIST " & pp(0) + 10 & " " & pp(1) + 10 & "))"
  ThisDrawing.SendCommand TT & vbCr

End Sub

mccad

不到不得已，不要用SendCommend方法，会造成程序执行顺序错乱。

wuyunpeng888

干什么？