; This script was created using Pulover's Macro Creator
; www.macrocreator.com
; it is for autohotkey2
; FritzHugo3 create and edit frome me - Tutorial video: https://www.youtube.com/watch?v=vYSXKvY_Yuw

#NoEnv
SetWorkingDir %A_ScriptDir%
CoordMode, Mouse, Window
SendMode Input
#SingleInstance Force
SetTitleMatchMode 2
;#WinActivateForce
SetControlDelay 1
SetWinDelay 0
SetKeyDelay -1
SetMouseDelay -1
SetBatchLines -1

; Initialize the counter
counter := 1

Macro1:
Sleep, 10000  ; Wait 10 seconds to allow time to switch to the Sweet Home 3D window
Loop, 28  ; Number of objects to export (adjust this number according to your objects count)
{
    Sleep, 333
    Send, {LControl Down}{e} ; open the object edit window to copy the name
    Sleep, 333
    Send, {LControl Up}
    Sleep, 333
    Send, {LControl Down}{c}  ; Copy the object name
    Sleep, 333
    Send, {LControl Up}{Escape}
    Sleep, 333
    Send, {LAlt Down}{LAlt Up}
    Sleep, 333
    Send, {a}
    Sleep, 333
    Send, {x}
    Sleep, 333
    Sleep, 333
    ; Create a formatted number with leading zeros (e.g., 0001, 0010, ...)
    formattedCounter := Format("{:04} ", counter)  ; 4-digit number with leading zeros and a space
    Send, %formattedCounter%{LControl Down}{v}  ; Insert the formatted number and the copied name
    Sleep, 333
    Send, {LControl Up}{.}{o}{b}{j}{Enter}
    Sleep, 333
    Sleep, 333
    Send, {Tab}
    Sleep, 333
    Send, {Space}
    Sleep, 333
    Sleep, 333
    Send, {Down}

    ; Increment the counter for the next loop
    counter++
}
Return

Backspace::ExitApp
F12::Pause