Search the Community

Hi all, I started trying to understand all this scripting stuff so forgive me for dumb questions in advance. I'm attempting to set up some scripts to make my job as a draftsman that little bit more efficent. I mainly use AutoCAD and at the start of every feature survey I do theres a few things I like to do as cleanup. The first two are setting the viewres to 6000 which I've managed to do and it works (procedure Viewres;) and quick selecting all blocks with a certain name CCAD_CROSS and deleting them. To avoid as much confusion as possible I've attached a video of me manually deleting the blocks and I'm just trying to re-create this in SCAR so all my cleanup is done much faster. I know AutoCAD works with LISPS but I'd prefer to learn SCAR so i can replicate this across other programs that don't have the luxury. All i have to do to start is type QSELECT and press enter which I have and it works, then I'm under the impression I should maybe make SCAR search for a bitmap so i created one for the 'Object Type: Multiple' (see video) and then click on it then search for 'Block Reference' maybe with another bitmap? etc. etc. until it has completed all the steps I showed in the video. I can do this with co-ordinates and it works fine but I want to be able to give it to other people in my office to use and they may have their screens setup differently or at different resolutions. My script at the moment works if I just say IF bitmap found movemouse but I want it to click in the middle of my bitmap if it's found. If there is an easier way of achieving what I want im all for that. Attached is the mess of script I've attempted haha. Thanks in advance, Maccadin [sCAR]program Acad_Cleanup; var Bmp: Integer; x, y: Integer; Box1: Tbox; Desktop: TSCARWindowClient; procedure LoadBitmaps; begin Bmp := TSCARBitmap.Create('deNrNVO0RwyAIZYGs0SEYiHmchmUcptWggp9nz' + 'l6v/IkhDx48MC+44P178w4BgLh6R+eHyKH/KSwCUDFSwIKxJJxl3mJ0jjKICYl' + 'wh/GoR+c5UcYnd5mVK1QDICL0TpmNFUHcjWRV5TexXzB2qsa0CRePgTMBTHzTt' + 'QKImTRkn7HaAWKtxJqhzCGyQVGXE0YLMxdgPOiCKQqXkHBcqZpgnarNh/lqma6' + 'zJFjNWpZEC0C0ymlCQc4u28EP5Kv5/pHxuX0AQRuCJA=='); Desktop := TSCARWindowClient.Create(GetDesktopWindow); SetClient(Desktop); Box1 := GetWindowBox(GetDesktopWindow); end; procedure Viewres; begin wait(300) TypeText('VIEWRES' + Chr(13) + Chr(13) + '6000' + Chr(13)); end; procedure CCAD_CROSS; begin wait(1000) TypeText('QSELECT' + Chr(13)); if(FindBitmap(x, y, Bmp, 0, 0, Box1.X2 - 1, Box1.Y2 - 1)) then begin MoveMouse(500, 500); end; end; begin LoadBitmaps; Viewres; CCAD_CROSS; end.[/sCAR] cleanup.rar