rotate display using applescript, tested on Mac os High Sierra(10.13)

route-screen.applescript

--
--	Created by: v1c77
--	Created on: 2018/7/21
--
--             DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
--                       Version 2, December 2004

--      Copyright (C) 2020 v1c77

--      Everyone is permitted to copy and distribute verbatim or modified
--      copies of this license document, and changing it is allowed as long
--      as the name is changed.

--               DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
--      TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION

--      0. You just DO WHAT THE FUCK YOU WANT TO.

use AppleScript version "2.7" -- Yosemite (10.10) or later
use scripting additions


tell application "System Preferences"
	quit
	delay 0.5
	launch
	activate
	set current pane to pane "com.apple.preference.displays"
	--reveal pane id "com.apple.preference.displays"
end tell

tell application "System Events"
	tell application process "System Preferences"
		tell window "DELL U2415" -- change the window name for different display
			delay 1
			click radio button "Display" of tab group 1
			set theGroup to tab group 1
			tell pop up button "Rotation:" of theGroup
				set theStat to value of it
				click
				tell menu 1
					if theStat = "Standard" then
						click menu item 4 -- 270 dig
					else
						click menu item 1 -- standard
					end if
				end tell
			end tell
		end tell
	end tell
end tell
tell application "System Preferences"
	quit
end tell

tried on Sonoma with no success

I just upgraded to Ventura and am also getting the error System events got an error: Can't get window "Displays" of application process "System Settings"

any update for Sonoma ? thx

I'm on macOS Sequoia 15.1.1.
here's a slightly adjusted version that works for me
I had to change
click button 1 of group 0 of sheet 1
to
click button 2 of group 0 of sheet 1
for it to work

tell application "System Events"
	
	key code 107 using {option down}
	
	delay 1
	tell window "Displays" of application process "System Settings"
		(* 
			The script below works only when the external monitor is selected.
			I was not able to select it programmatically:
				Displays are represented as buttons in `scroll area 1`,
				but nothing happens when they receive `click` command
			So, ask user for help with this and click on the proper monitor
		*)
		
		-- Give user 5 sec to click on the monitor to rotate
		set autoClose to 5
		set continueButton to "Continue (in " & autoClose & " sec)"
		set stopButton to "Stop"
		display dialog "Select monitor to rotate" giving up after autoClose buttons {stopButton, continueButton} default button continueButton cancel button stopButton
		
		-- This only works when the external monitor is selected (by default or by user)
		tell pop up button 0 of group 4 of scroll area 2 of group 0 of group 2 of splitter group 0 of group 0
			set theRotation to value of it
			click
			tell menu 1
				if theRotation = "Standard" then
					click menu item "90°"
				else
					click menu item "Standard"
				end if
			end tell
		end tell
		
		-- Confirm new display setting
		delay 1
		if exists of sheet 1 then
			click button 2 of group 0 of sheet 1
		end if
		
	end tell
end tell

ok, it works when I run it like this

but fails when I run it from the menu

even if this is enabled, it won t work

edit: after adding control center to accessibility, it works now! https://www.reddit.com/r/shortcuts/comments/1cxzfbc/shortcuts_is_not_allowed_to_send_keystrokes/

I ended up using displayplacer only, avoiding opening Settings at all.

I have an Automator workflow with Run AppleScript action:

on run {input, parameters}
	-- Run displayplacer list to get the current display configurations
	set displayplacerOutput to do shell script "/opt/homebrew/bin/displayplacer list"
	
	-- ID of the monitor you'll rotate
	set targetDisplayID to "8B54EED0-06DA-6D6D-0857-D6964E3302DB"
	
	-- Extract the last line of the output
	set lastLine to paragraph -1 of displayplacerOutput
	
	
	-- Safely extract the degree parameter for the target display from the last line
	-- First, identify the correct section of the last line
	set grepCommand to "echo " & (quoted form of lastLine) & " | grep -o 'id:" & targetDisplayID & ".*degree:[0-9]*'"
	
	set targetDisplaySection to do shell script grepCommand
	
	-- Extract the degree value
	set degreeParameter to do shell script "echo " & (quoted form of targetDisplaySection) & " | grep -o 'degree:[0-9]*'"
	
	set currentDegree to word 2 of degreeParameter
	
	-- Determine the new rotation based on the current rotation
	if currentDegree = "0" then
		-- vertical arrangement
		do shell script "/opt/homebrew/bin/displayplacer \"id:8B54EED0-06DA-6D6D-0857-D6964E3302DB res:1692x3008 scaling:on origin:(0,-3008) degree:90\""
	else
		-- horizontal arrangement
		do shell script "/opt/homebrew/bin/displayplacer \"id:8B54EED0-06DA-6D6D-0857-D6964E3302DB res:2560x1440 scaling:on origin:(-427,-1440) degree:0\""
	end if
end run

to use this script you'll need

• figure out where your displayplacer is by running where displayplacer (mine is in /opt/homebrew/bin/displayplacer)
• get your target display ID (the one you're rotating) by running displayplacer list and checking output in the end
• get configs for vertical and horizontal arrangement. To do this, arrange manually your perfect vertical/horizontal setup, run displayplacer list and see the output in the end.
  Note, the arrangement configs could be anything, e.g. in my case my vertical setup has higher resolution than horizontal.

This script runs MUCH faster since it does not need to run Settings and any UI.