'@ transform: rotate component1:air
Component.New "component1"
sCommand = ""
sCommand = sCommand + "With Transform" + vbLf
sCommand = sCommand + ".Reset" + vbLf
sCommand = sCommand + ".Name ""component1:air""" + vbLf
sCommand = sCommand + ".Origin ""Free""" + vbLf
sCommand = sCommand + ".Center ""0"",""0"",""0""" + vbLf
sCommand = sCommand + ".Angle ""0"",""0"",""90-arf""" + vbLf
sCommand = sCommand + ".MultipleObjects ""True""" + vbLf
'上句控制是否复制:True/False
sCommand = sCommand + ".GroupObjects ""False""" + vbLf
sCommand = sCommand + ".Repetitions""1""" + vbLf
sCommand = sCommand + ".MultipleSelection""False""" + vbLf
sCommand = sCommand + ".Destination"""""+ vbLf
sCommand = sCommand + ".Material"""""+ vbLf
sCommand = sCommand + ".Transform""Shape"",""Rotate"""+ vbLf
sCommand = sCommand + "End With"
AddToHistory "transform: rotate component1:air", sCommand
评论3