Export only selected objects of a drawing

Hello,
I want to export only some objects of a drawing to png. Therefore I select them via click + Shift. I used CorelDraw before and there i can select, in the export window, "Only marked objects" (don't know the exact English term). Is there a comparable option to Corel?
Thanks,
Slodomir

off the top of my head i don't know a way of doing this automatically...maybe i just don't know of it...
My work around would be:
unlock everything
select your objects
invert your selection
hide the now selected objects
export...
bit of a work around but you could do an action to speed it up if you've got a few to do.
hope that helps

Similar Messages

Is there a way to take export dump with only selected objects

Hi,
I want to take a partial export dump containing only few objects of a particular schema in Oracle 10g DB.
I am trying to use "exp" utility for this.
The parfile used for this is as follows:
FILE=CSG_Objects.dmp
FULL=n
ROWS=y
COMPRESS=y
INDEXES=y
TRIGGERS=y
CONSTRAINTS=y
LOG=export_CSG_Objects.log
TABLES=table1,table2,table3...
With this I can only export tables but not other objects like views, procedures, sequences etc.
If I try to use other object name in TABLES list, I get errors.
Is there any way I could export other "selected" objects also?
Thanks & Regards,
Ullhas

There are 4 modes in exp and expdp. You can specify
full=y which will get all objects in the database
schemas = list which will get alll of the objects in these schemas
tables = list which get all of the tables in your list plus all of the objects dependent
on these tables
tablespaces=list which finds all fo the tables in those tablespaces and then does a table mode
export for the table list, including dependent objects.
Other than excluding/included a few objects, original exp does not have a way to specifically include certain objects. This was one of the enhancements to datapump expdp/impdp.
If you are running 10.1 or later, you can use datapump export/import. Now, you can do a table mode export and put in an include/exclude list.
include=tables,grants,table_statistics
or
exclude grants, index_statistics
If you let us know what you are trying to include or exclude, it would be easier to come up with a solution.
Dean

How to export only selected columns of WD ALV to excel

Hi,
I have WD ALV report with EXPORT button (since standard button was not working properly i just hide that and added custom one) & standard dropdown to choose layout. Out of 20 columns user may choose n number of columns, the same number of columns i need to transfer to xls. How to export only selected columns to xls. Any method or FM to filter number of columns being transfer to xls. please advise
Rgds
sudhanshu

Hi,
Where exactly we are (or going to be) using this reference i.e., CL_SALV_WD_CONFIG_TABLE. Im passing contents, filename & MIME type as:
call function 'SCMS_STRING_TO_XSTRING'
    exporting
      TEXT   = TEXT
    importing
      BUFFER = XTEXT.
WDR_TASK=>CLIENT_WINDOW->CLIENT->ATTACH_FILE_TO_RESPONSE(
**path to the word file
    I_FILENAME = 'WDP.xls'
String Variable
    I_CONTENT = XTEXT
File Type
    I_MIME_TYPE = 'EXCEL' ).
In CL_SALV_WD_CONFIG_TABLE we have few methods related to column settings however not sure where exactly we will be using this class reference. can you please give some idea so that i can do some r&d in that.
Rgds
Sudhanshu

Exporting only selected master pages

In an InDesign CS6 file, I want to export to PDF only the pages that use selected master pages. For example, if the file has master pages A-H, is there a way to only export to PDF pages that use master pages A-C, ignoring all the other pages that use master pages D-H?

Another interesting option might be to put all the Tabbed Pages on a different layer.
You can then double click layers to have them print or not print.
You should be able to export to a PDF and choose only the pages that are Print Layers - by turning on and off the layer print mode, you should be able to export only the pages, and only the tabs in different orders.
http://help.adobe.com/en_US/indesign/cs/using/WSa285fff53dea4f8617383751001ea8cb3f-7096a.h tml#WSC468E092-6078-4fcc-9739-A9CCE50EB732a
It's in the File>Export>Adobe PDF (Print) and in the General Tab there's an option of Export Layers - and this can be set to
All Layers
Visible Layers
Visible Layers and Printable Layers
I think by Hiding the Layers for Tabs you can choose Visible Layers only and it will only export those pages.
You can then switch the Tabs back on and turn off the layer for the Body text - and export those individually.

Export only selected lines

Hi,
I have the req to download or export only those lines within ALV which are selected
as excel format instead of complete lines,
Thx in advance for your kindly efforts
Friendly Regards
ertas ilahn

Hi Ertas,
The approach shoud be :
1. Have one field in your internal table for selection.
2. Make the particular field as a check box for selection in ALV fieldcatlog
3. Have a custom button in toolbar for for export to Excel
4. Once the custom button is presses, loop at the internal table of yours and pick up the selected items and export that to excel sheet using GUI_DOWNLOAD.
Hope this helps you.
Thanks,
Arun

How do I print or export only selected cells in Numbers?

Does anyone know how to do this in Numbers? I have been trying to do this for well over an hour...... I have looked at other posters' questions first, all the way back to 2008 in fact. The closest I have seen to an answer (and it is a workaround, not a true answer) is copy the selected cells into a new sheet. I have been using software spreadsheets (Lotus 123 and later Excel) going back to the mid-1980's. I cannot remember the last time I could not do this.
Friends, I do realize that many of the workarounds would have taken far less time than what I have invested, please do not feel the need to point that out. I am heading for a workaround right now as I have run out of time to devote to this task. Also, please do not suggest that I should "capture" the data by copying a screen shot to the clipboard or have it dump a .png on my desktop. Most of us here should know how to do that by now but that does not address the underlying issue of how to provide only a select piece of a spreadsheet to a 3rd party in a professional looking format. Well, off to copy and paste........
Thanks in advance,
Bill G.
Update (15 min later):
Boy, I hope one of you out there knows the solution to this. Copy and paste the selected area does not work either. You lose (this was an "Oh, duh!" sort of moment BTW) any figures populated by calculations not in the selection area.
Need to go eat, will try to feed the values in the new table from the same calculations in the first table. I can do that easily in Excel, I just have not tried it yet in Numbers. I am optomistic that it will work.
Thanks again,
Bill G.

As I'm lazy, I use this script and paste where I want.
--{code}
set the clipboard to (the clipboard as «class PDF »)
--{code}
I made a test which gave a funny result.
Given a Numbers document with a chart.
I selected the chart, the title and the legends
then I grouped these objects.
Select all
copy
run the script
I pasted in the sheet to be able to take a screenshot.
It's a bit inconsistent.
Text values are passed when they are in cells
They are passed when they are used as value labels in the chart
but they aren't passed when they are chart's title or legend's components.
Funny behavior, the graphic symbols are moved in the process to the location where they would be if the text components were nil strings.
No comment upon a table's title which can't be selected with the table itself.
Yvan KOENIG (VALLAURIS, France) lundi 3 octobre 2011 14:01:20
iMac 21”5, i7, 2.8 GHz, 4 Gbytes, 1 Tbytes, mac OS X 10.6.8 and 10.7.0
My iDisk is : <http://public.me.com/koenigyvan>
Please : Search for questions similar to your own before submitting them to the community

Is it possible to export only selective bookmarks?

Hi,
Can I export selective bookmarks e.g. rather than backing up all bookmarks? i.e. select multiple folders and just back up all bookmarks within the selected folders (in either either JSON or .HTML format).
It might be possible to do so or maybe there is an add-on that can do exactly this?
Actually I tried it by selecting only one (1) folder but the size of the exported .json and the .html file was exactly the same as the size of the total back files.
thnk you.

thnks so much again cor-el. Looks like you are the only person supporting FireFox :) but you are doing a wonderful work. So thnk u for all the help. I will try the solution later.

Exporting A Selection of Records to Excel

Hi All,
This is my first ever question to a forum, so please go easy on me! I'm also very new to Access and VBA. I'm building a database that stores (in related tables): TradingName, PropertyName, and PaddockName (as well as other relevant details). I have combined
(Joined) the data I require into a table as well as a query.
Now I want to export the Paddocks and Properties for each client. I have been able to export all clients and Paddocks (All Records) into Excel as well as individual Client and Paddock (Individual Record). But I want to be able to export all paddocks for
a property or a client (multiple records for a client or property).
My code is working for both scenarios (All Records and Individual Records) above but I'd like to know how to write code to export only selected Client or Property which is selected via a combobox.
The Code I have used seems to be typical on all forums I have visited, but none does what I want/need.
All help Appreciated
Thanks
Nath
This sub exports a SINGLE Record
'This Sub Exports ALL Records
Private Sub btnExportXls_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
'Set db = DAO.DBEngine.Workspaces(0).OpenDatabase("C:\database.mdb")
Set db = CurrentDb
' Set rs = db.OpenRecordset("MasterSummary", dbOpenSnapshot)
Set rs = db.OpenRecordset("tblExpXlsClientPropPdkDetails", dbOpenSnapshot)
'Start a new workbook in Excel
Dim oApp As New Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Set oBook = oApp.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
'Add the field names in row 1
Dim i As Integer
Dim iNumCols As Integer
iNumCols = rs.Fields.Count
For i = 1 To iNumCols
oSheet.Cells(1, i).Value = rs.Fields(i - 1).Name
Next
'Add the data starting at cell A2
oSheet.Range("A2").CopyFromRecordset rs
'Format the header row as bold and autofit the columns
With oSheet.Range("a1").Resize(1, iNumCols)
.Font.Bold = True
.EntireColumn.AutoFit
End With
oApp.Visible = True
oApp.UserControl = True
'Close the Database and Recordset
rs.Close
db.Close
End Sub
This Sub Exports A Single Record (Paddock) and is commented out as I trialed the other sub.
'Private Sub btnExportXls_Click()
'' The following Sub only exported 1 record at a time and only copied data to selected cells, it doesn't move to next free cells.
''Export Selected Client/Property to Excel
''First you must set a Reference to the Microsoft Excel XX.X Object Library
' Dim appExcel As Excel.Application
' Dim wrkBook As Excel.Workbook
' Set appExcel = New Excel.Application
' Set wrkBook = appExcel.Workbooks.Open(CurrentProject.Path & "\ClientPropertyPdkDetails.xlsx")
' appExcel.Visible = True 'Make Excel Window Visible
''Make Batch Sheet the active Worksheet
' wrkBook.Worksheets("Client Property Pdk").Activate
' With wrkBook.ActiveSheet
' .Range("A2").Value = Me![Client_ID]
' .Range("B2").Value = Me![TradingName]
' .Range("C2").Value = Me![Property_ID]
' .Range("D2").Value = Me![Property]
' .Range("E2").Value = Me![ID]
' .Range("F2").Value = Me![PaddockName]
' .Range("G2").Value = Me![PaddockArea]
' .Range("H2").Value = Me![ArablePdkArea]
' .Range("I2").Value = Me![MonitoredPdk]
' .Range("J2").Value = Me![SoilSamplePdk]
' .Columns("A:J").AutoFit 'Autofit Columns A thru J to hold contents
' End With
''DoCmd.OutputTo acOutputQuery, "qryClientPropertyPaddockJoined", acFormatXLSX, "K:\Dropbox\1a Graminus Consulting\Graminus Database\ClientPropertyPdkDetails.xlsx", , , acExportQualityPrint
'End Sub

Hi All,
Thanks for your help and input much appreciated! I think I was in a rutt and trying to be too tricky (I think). I have since changed tact and created a Public Function (Below) that creates a temporary query and export that instead. It works a treat.
Thanks Again
Nath
Public Function CreateQueryDAO()
'Purpose: Create a query based on Clients Property Name to Export to Excel
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb()
'The next line creates and automatically appends the QueryDef.
Set qdf = db.CreateQueryDef("qryPropertyDetails")
'Set the SQL property to a string representing a SQL statement.
qdf.sql = "SELECT tblExpXlsClientPropPdkDetails.* FROM tblExpXlsClientPropPdkDetails WHERE [Property_ID] =" & Forms![frmExportClientPropertyPaddockExl].txtPropertyID
'Do not append: QueryDef is automatically appended!
Debug.Print "qry[qryPropertyDetails] created."
'Start a new workbook in Excel
Dim oApp As New Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("qryPropertyDetails", dbOpenSnapshot)
Set oBook = oApp.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
'Add the field names in row 1
Dim i As Integer
Dim iNumCols As Integer
iNumCols = rs.Fields.Count
For i = 1 To iNumCols
oSheet.Cells(1, i).Value = rs.Fields(i - 1).Name
Next
'Add the data starting at cell A2
oSheet.Range("A2").CopyFromRecordset rs
'Format the header row as bold and autofit the columns
With oSheet.Range("a1").Resize(1, iNumCols)
.Font.Bold = True
.EntireColumn.AutoFit
End With
oApp.Visible = True
oApp.UserControl = True
Debug.Print "Property Exported to Excel."
'Delete new Query.
db.QueryDefs.Delete "qryPropertyDetails"
Debug.Print "qry[qryPropertyDetails] Deleted."
'Close the Database and Recordset
rs.Close
db.Close
Set qdf = Nothing
Set db = Nothing
'Source: http://allenbrowne.com/func-dao.html#CreateQueryDAO
Private Sub btnCreateQry_Click()
CreateQueryDAO
End Sub

EXPORT ONLY TABLES IN A SCHEMA USING DATA PUMP

Hi folks,
Good day. I will appreciate if I can get a data pump command to export only TABLE oBJECT in a specific shema .
The server is a 4 node RAC with 16 CPU per node.
Thanks in advance

If all you want is the table definitions, why can you use something like:
expdp user/password direcory=my_dir dumfile=my_dump.dmp tables=schama1.table1,schema1.table2,etc content=metadata_only include=table
This will export just the table definitions. If you want the data to, then remove the content=metadata_only, if you want the dependent objects, like indexes, table_statistics, etc, then remove the include=table.
Dean

Selecting Objects in Illustrator - selecting objects only completely contained within your selection box

Hi
Macbook Pro, Illustrator CC 2014.1.0
When selecting objects in Illustrator using a selection box created by dragging a selection tool, everything that the box touches gets selected. On programs like AutoCad, there are options to select only what is completely contained within the selection box. This can be very helpful. Can one do this in Illustrator?
Thanks in advance

I use Illustrator pretty often but I'm not at a level that I understand scripting. Maybe I'm out of luck then.

Select Objects Only Inside The Selection Marquee

Is there a way to make Illustrator select only the objects that are fully inside the selection marquee? As it is, it selects everything the marquee touches.

if you don't mind work arounds...I posted a script that does the job, look at post # 11
http://forums.adobe.com/thread/856221?start=0&tstart=0

Why can't I export only a selected clip?

I am a teacher. I used to record all the kids in a class doing a certain task, and then select the clip of each child and export each child as a separate QuickTime movie. We upgraded machines and now for the life of me I cannot figure out how to export only a selected clip in iMovie '08. Any help appreciated!

Make a separate Project for each child.
Drag the clip of that child into the project. Then Share to whatever format you choose.

Why can't I select an object from its center? Direct selecttool will only select bounding box.

Why can't I select an object from its center? Direct selecttool will only select bounding box.

You may have turned on "Object selection by path only" in the "Selection Options".

Export Aperture library objects to Finder folders

Inspired by the posted message by user http://discussions.apple.com/profile.jspa?userID=616539 I wrote a script that will do the following:
1. Sync Folders/SubFolders/Albums/Projects..etc hierarchy tree from Aperture to a Finder folders tree
2. At run-time the script will creates/append to a log file under (home directory)\Library\Logs\AppleScriptExportApertureLibrary.log
3. Exports all projects images versions with embedded metadata
4. Create a file system "hard links" for each photo in the respective Albums pointing to the project folder location in order to preserve space.
5. Compare modification date on the image files and modification date within Aperture and export only modified images in order to save time for a full sync/export.
6. In interactive mode you can select Export Folder location, Aperture Library location and Projects List (project list will contain project name and internal aperture project id).
7. In non-interactive (from command line) mode there are two arguments:
7a. "quiet" - exports all projects
7b. "quiet" "Project Information" - export only certain projects. the project information can be found in the log file.
8. Remove any images or folders from Finder export directory that do not exist in Aperture database any more.
Hopefully this would help anyone who is looking to export from Aperture on a regular basis. I am not sure how it will handle large amount of photos. I tested it with 3k+ photos.
Please note that you use this script at your own risk.
Here is the script code:
global theFoldersTree_G
global theLibraryPath_G
global theProcessedProjects_G
global theSelectedProjects_G
global theAllAlbums_G
global theScriptName_G
global Sqlite_G
global ApertureLibrary_G
global numExports_G
on run argv
set Sqlite_G to "/usr/bin/sqlite3"
set ApertureLibraryPath to POSIX path of (path to home folder) & "Pictures/"
set ApertureLibrary_G to ApertureLibraryPath & "Aperture Library.aplibrary/Aperture.aplib/Library.apdb"
set exportFolder to POSIX path of (path to home folder) & "Pictures/Aperture Exports/"
set theScriptName_G to "ExportApertureLibrary"
set theSelectedProjects_G to "ALL PROJECTS"
set theFoldersTree_G to {}
set theProcessedProjects_G to {}
set theAllAlbums_G to {}
set numExports_G to 0
logEvent("Started")
set theArgv1 to {}
set theArgv2 to {}
if (count of argv) ≥ 1 then
set theArgv1 to item 1 of argv
end if
if (count of argv) = 2 then
set theArgv2 to item 2 of argv
end if
logEvent("Passed ARGV 1: " & theArgv1)
logEvent("Passed ARGV 2: " & theArgv2)
if theArgv1 is not equal to "quiet" then
set theFile to (choose file with prompt "Please choose the Aperture Library file" default location POSIX file ApertureLibraryPath) as string
set ApertureLibrary_G to POSIX path of theFile & "Aperture.aplib/Library.apdb"
set exportFolder to POSIX path of (choose folder with prompt "Please choose the export folder" default location POSIX file exportFolder) as string
end if
logEvent("ApertureLibrary_G path is set to: " & ApertureLibrary_G)
logEvent("exportFolder path is set to: " & exportFolder)
try
tell application "Aperture"
logEvent("Getting list of project path information...") of me
set SqlStatement to "
select replace(A.ZLIBRARYRELATIVEPATH,'.approject',''),A.ZUUID
from ZRKFOLDER AS A
WHERE A.ZFOLDERTYPE=2
ORDER BY A.ZNAME"
set SQLProjectUUIDPath to DB_execute(SqlStatement) of me
set theProjectsOptions to SQLProjectUUIDPath as list
set end of theProjectsOptions to "ALL PROJECTS"
logEvent("Projects list: " & theProjectsOptions as string) of me
if theArgv1 is not equal to "quiet" then
set theSelectedProjects_G to choose from list SQLProjectUUIDPath with prompt "Please choose a project(s):"
end if
if theArgv2 is not equal to {} then
set theSelectedProjects_G to theArgv2
end if
logEvent("The selected projects : " & theSelectedProjects_G as string) of me
logEvent("Getting list of libraries...") of me
set theLibraryList to every library
logEvent("Found " & (count of theLibraryList) & " libraries") of me
repeat with theLibrary in theLibraryList
set theLibraryName to name of theLibrary
logEvent("Processing library: " & theLibraryName) of me
set LibraryFolders to {}
set theProcessedProjects_G to {}
tell application "Finder"
if not (exists (POSIX file (exportFolder & theLibraryName) of me)) then
logEvent("creating new folder " & theLibraryName & " at " & exportFolder) of me
make new folder at (POSIX file exportFolder of me) with properties {name:theLibraryName}
end if
end tell
set theLibraryPath_G to exportFolder & theLibraryName & "/"
logEvent("Getting list of folders...") of me
set theFolderList to every folder of library id (id of theLibrary)
logEvent("Found " & (count of theFolderList) & " folders") of me
set theRootFolderList to {}
if theFolderList is not equal to {} then
processFoldersTree(0, theFolderList) of me
repeat with theFolder in theFolderList
if (id of theFolder) is not in theFoldersTree_G as string then
logEvent("Found root folder : " & (name of theFolder) as string) of me
set end of theRootFolderList to theFolder
set end of LibraryFolders to (name of theFolder)
end if
end repeat
end if
if theRootFolderList is not equal to {} then
processFolders(theRootFolderList, theLibraryPath_G, "projects") of me
processFolders(theRootFolderList, theLibraryPath_G, "albums") of me
else
set theProjectList to every project of library id (id of theLibrary)
set end of LibraryFolders to processProjects(theProjectList, theLibraryPath_G, "projects") of me as list
processProjects(theProjectList, theLibraryPath_G, "albums") of me
end if
logEvent("Getting list of projects...") of me
set theProjectList to every project of library id (id of theLibrary)
logEvent("Found " & (count of theProjectList) & " projects") of me
logEvent("Getting list of albums...") of me
set theAlbumList to every album of library id (id of theLibrary)
logEvent("Found " & (count of theAlbumList) & " albums") of me
set theRootProjectList to {}
if theProjectList is not equal to {} then
repeat with theProject in theProjectList
if (id of theProject) is not in theProcessedProjects_G as string then
logEvent("Found root project : " & (name of theProject) as string) of me
set end of theRootProjectList to theProject
set end of LibraryFolders to (name of theProject)
end if
end repeat
end if
set theRootAlbumList to {}
if theAlbumList is not equal to {} then
processAlbumsTree(theProjectList, theFolderList) of me
set theRootAlbumList to {}
repeat with theAlbum in theAlbumList
if (id of theAlbum) is not in theAllAlbums_G as string then
logEvent("Found root album : " & (name of theAlbum) as string) of me
set end of theRootAlbumList to theAlbum
set end of LibraryFolders to (name of theAlbum)
end if
end repeat
end if
if theRootProjectList is equal to {} then
processAlbums(theRootAlbumList, theLibraryPath_G, "albums") of me
else
processProjects(theRootProjectList, theLibraryPath_G, "projects") of me
processProjects(theRootProjectList, theLibraryPath_G, "albums") of me
if theRootAlbumList is not equal to {} then
processAlbums(theRootAlbumList, theLibraryPath_G, "albums") of me
end if
end if
cleanup(LibraryFolders, theLibraryPath_G, "all") of me
end repeat
logEvent("total exports : " & numExports_G) of me
if theArgv1 is not equal to "quiet" then
display dialog "Total image exports : " & numExports_G buttons {"OK"} with title "Aperture Library Export" with icon note
end if
end tell
on error s number i partial result p from f to t
set s to "Error: " & s
logEvent(quoted form of (s))
if theArgv1 is not equal to "quiet" then
display dialog "ERROR : " & s buttons {"OK"} with title "Aperture Library Export" with icon note
end if
end try
end run
on cleanup(theObjects, thePath, theSelection)
logEvent("Cleaning export folders...") of me
logEvent("# Objects: " & (count of theObjects)) of me
logEvent("Export Folder: " & (thePath as string))
tell application "Finder"
logEvent("Getting list of folders...") of me
set theFolderList to every folder in folder (POSIX file thePath of me)
logEvent("Found " & (count of theFolderList) & " folders") of me
logEvent("Getting list of files...") of me
set theFileList to every file in folder (POSIX file thePath of me)
logEvent("Found " & (count of theFileList) & " files") of me
repeat with theFolder in theFolderList
set theFolderName to name of theFolder
if theFolderName is not in theObjects as string then
logEvent("Moving folder " & theFolder & " to trash...") of me
move theFolder to trash
end if
end repeat
if theSelection is not equal to "folder" then
repeat with theFile in theFileList
set theFileName to name of theFile
if theFileName is not in theObjects as string then
logEvent("Moving file " & theFile & " to trash...") of me
move theFile to trash
end if
end repeat
end if
end tell
logEvent("Cleaning completed...") of me
end cleanup
on logEvent(logMessage)
set theLine to quoted form of (((current date) as string) ¬
& " : " & logMessage)
do shell script "echo " & theLine & ¬
" >> ~/Library/Logs/AppleScript" & theScriptName_G & ".log"
end logEvent
on DB_lookupProjectPath(puuid)
set SqlStatement to "
select replace(rtrim(ZLIBRARYRELATIVEPATH,'.approject'),'/',':' )
from ZRKFOLDER
where
ZUUID ='" & puuid & "'"
set SqlRecords to DB_execute(SqlStatement)
return DB_record(SqlRecords, 1, 1)
end DB_lookupProjectPath
on processFolders(theFoldersList, theFolderPath, processOrder)
logEvent("processFolders... : " & theFolderPath) of me
set arrayOfFolders to {}
tell application "Aperture"
set theCount to count of theFoldersList
set theCounter to 1
repeat with theFolder in theFoldersList
set foldersOfFolder to {}
set theFolderName to name of theFolder
logEvent("Processing folder : " & theFolderName & " (" & theCounter & "/" & theCount & ")") of me
set theCounter to theCounter + 1
set end of arrayOfFolders to theFolderName
tell application "Finder"
if not (exists (POSIX file (theFolderPath & theFolderName) of me)) then
logEvent("creating new folder " & theFolderName & " at " & theFolderPath) of me
make new folder at (POSIX file theFolderPath of me) with properties {name:theFolderName}
end if
end tell
logEvent("Getting list of album...") of me
set theAlbumsListOfFolder to every album of folder id (id of theFolder)
logEvent("Found " & (count of theAlbumsListOfFolder) & " albums") of me
logEvent("Getting list of folder...") of me
set theFolderListOfFolder to every folder of folder id (id of theFolder)
logEvent("Found " & (count of theFolderListOfFolder) & " folders") of me
logEvent("Getting list of project...") of me
set theProjectsListOfFolder to every project of folder id (id of theFolder)
logEvent("Found " & (count of theProjectsListOfFolder) & " projects") of me
if theProjectsListOfFolder is not equal to {} then
set end of foldersOfFolder to processProjects(theProjectsListOfFolder, (theFolderPath & theFolderName & "/"), processOrder) of me as list
end if
if theFolderListOfFolder is equal to {} then
set end of foldersOfFolder to processAlbums(theAlbumsListOfFolder, (theFolderPath & theFolderName & "/"), processOrder) of me as list
else
if theAlbumsListOfFolder is not equal to {} then
set end of foldersOfFolder to processAlbums(theAlbumsListOfFolder, (theFolderPath & theFolderName & "/"), processOrder) of me as list
end if
set end of foldersOfFolder to processFolders(theFolderListOfFolder, (theFolderPath & theFolderName & ":"), processOrder) of me as list
end if
cleanup(foldersOfFolder, (theFolderPath & theFolderName & "/"), "all") of me
end repeat
end tell
logEvent("processFolders completed...") of me
return arrayOfFolders
end processFolders
on processFoldersTree(theParent, theFoldersList)
logEvent("processFoldersTree...") of me
tell application "Aperture"
repeat with theFolder in theFoldersList
if theParent is not 0 then
set end of theFoldersTree_G to (id of theFolder)
end if
set theFolderListOfFolder to every folder of folder id (id of theFolder)
if theFolderListOfFolder is not equal to {} then
processFoldersTree((id of theFolder), theFolderListOfFolder) of me
end if
end repeat
end tell
logEvent("processFoldersTree completed...") of me
end processFoldersTree
on processAlbumsTree(theProjectsList, theFoldersList)
logEvent("processAlbumsTree...") of me
set theAllAlbums_G to {}
tell application "Aperture"
repeat with theProject in theProjectsList
repeat with theAlbum in (every album of project id (id of theProject))
set end of theAllAlbums_G to (id of theAlbum)
end repeat
end repeat
repeat with theProject in theProjectsList
repeat with theAlbum in (every album of every subfolder of project id (id of theProject))
set end of theAllAlbums_G to (id of theAlbum)
end repeat
end repeat
repeat with theFolder in theFoldersList
repeat with theAlbum in (every album of folder id (id of theFolder))
set end of theAllAlbums_G to (id of theAlbum)
end repeat
end repeat
end tell
logEvent("processAlbumsTree completed...") of me
end processAlbumsTree
on DB_lookupImageInfo(puuid)
set SqlStatement to "
SELECT replace(A.ZLIBRARYRELATIVEPATH,'.approject',''),strftime('%m/%d/%Y %H:%M:%S',datetime(B.ZDATELASTSAVEDINDATABASE, 'unixepoch', '+31 years','localtime'))
from ZRKFOLDER AS A,ZRKVERSION AS B
where
B.ZPROJECTUUID = A.ZUUID AND
B.ZUUID ='" & puuid & "'"
set SqlRecords to DB_execute(SqlStatement)
return {theImagePath:DB_record(SqlRecords, 1, 1), theImageDate:DB_record(SqlRecords, 1, 2)}
end DB_lookupImageInfo
on processProjects(theProjectsList, theProjectPath, processOrder)
logEvent("processProjects... : " & theProjectPath) of me
logEvent("processOrder: " & processOrder) of me
set arrayOfProjects to {}
tell application "Aperture"
set theCount to count of theProjectsList
set theCounter to 1
repeat with theProject in theProjectsList
set ProjectFolders to {}
set theProjectName to name of theProject
set end of arrayOfProjects to theProjectName
set theContinue to 0
if "ALL PROJECTS" is not in theSelectedProjects_G as string then
if (id of theProject) is not in theSelectedProjects_G as string then
logEvent("Skipping project: " & theProjectName) of me
set theContinue to 1
end if
end if
if theContinue = 0 then
-- set theProjectPath to theProjectPath & DB_lookupProjectPath(id of theProject) of me
logEvent("Processing project : " & theProjectName & " (" & theCounter & "/" & theCount & ")") of me
tell application "Finder"
if not (exists (POSIX file (theProjectPath & theProjectName) of me)) then
logEvent("creating new folder " & theProjectName & " at " & theProjectPath) of me
make new folder at (POSIX file theProjectPath of me) with properties {name:theProjectName}
end if
end tell
if processOrder is equal to "projects" then
set end of theProcessedProjects_G to (id of theProject)
logEvent("Getting list of images...") of me
set theImageList to every image version of project id (id of theProject) as list
logEvent("Found " & (count of theImageList) & " images") of me
set end of ProjectFolders to processImages(theImageList, (theProjectPath & theProjectName & "/"), "project", "JPEG - Original Size") of me as list
end if
logEvent("Getting list of subfolders...") of me
set theSubfolderList to every subfolder of project id (id of theProject)
logEvent("Found " & (count of theSubfolderList) & " subfolders") of me
logEvent("Getting list of album...") of me
set theAlbumList to every album of project id (id of theProject)
logEvent("Found " & (count of theAlbumList) & " albums") of me
if theSubfolderList is equal to {} then
set end of ProjectFolders to processAlbums(theAlbumList, (theProjectPath & theProjectName & "/"), processOrder) of me as list
else
if theAlbumList is not equal to {} then
set end of ProjectFolders to processAlbums(theAlbumList, (theProjectPath & theProjectName & "/"), processOrder) of me as list
end if
set end of ProjectFolders to processSubfolders(theSubfolderList, (theProjectPath & theProjectName & "/"), processOrder) of me as list
end if
if processOrder is equal to "projects" then
cleanup(ProjectFolders, (theProjectPath & theProjectName & "/"), "all") of me
else
cleanup(ProjectFolders, (theProjectPath & theProjectName & "/"), "folder") of me
end if
end if
set theCounter to theCounter + 1
end repeat
end tell
logEvent("processProjects completed...") of me
return arrayOfProjects
end processProjects
on exportImage(imageUUID, imageName, exportFolder, imageType, isAlbum, exportSettings, imageExt)
set imageInfo to DB_lookupImageInfo(imageUUID) of me
set imageTime to theImageDate of imageInfo as Unicode text
set imageDate to date imageTime
set isExported to 0
set imageName to imageName & imageExt
set theFile to POSIX file (exportFolder & imageName)
tell application "Finder"
set isUpdate to 0
if not (exists theFile) then
logEvent("Image does not exist in folder : " & exportFolder) of me
set isUpdate to 1
else
logEvent("Get image modification date") of me
do shell script "ls -l " & quoted form of (exportFolder & imageName)
set imageFileDate to modification date of (info for theFile)
if imageDate ≥ imageFileDate then
logEvent("Image file date: " & imageFileDate as string) of me
set isUpdate to 1
end if
end if
if isUpdate = 1 then
if exists theFile then
move theFile to the trash
end if
if isAlbum is equal to "album" then
logEvent("Creating a link for image: " & imageName) of me
set theProjectFolder to theImagePath of imageInfo
do shell script "ln " & quoted form of (theLibraryPath_G & theProjectFolder & "/" & imageName) & " " & quoted form of exportFolder
else
set isExported to 1
logEvent("Exporting image: " & imageName) of me
tell application "Aperture"
if imageType is "master" then
set settings to exportSettings
export {image version id imageUUID} using settings to POSIX path of file exportFolder metadata embedded
else
set settings to exportSettings
export {image version id imageUUID} using settings to POSIX path of file exportFolder metadata embedded
end if
end tell
end if
end if
end tell
return isExported
end exportImage
on DB_execute(SqlStatement)
try
set SqlScript to Sqlite_G & space & "-separator '|'" & space & (quoted form of ApertureLibrary_G) & space & (quoted form of SqlStatement) & " 2>&1"
set SqlResult to do shell script SqlScript
set theARray to {}
set tid to AppleScript's text item delimiters
set AppleScript's text item delimiters to ASCII character 13
set SqlRecords to text items of SqlResult
set AppleScript's text item delimiters to tid
return SqlRecords
on error s number i partial result p from f to t
set s to "SQL Error: " & s
logEvent(quoted form of (s)) of me
end try
end DB_execute
on DB_record(SqlRecords, row, col)
try
set tid to AppleScript's text item delimiters
set AppleScript's text item delimiters to "|"
set SqlCols to text items of (item row of SqlRecords)
set AppleScript's text item delimiters to tid
return item col of SqlCols
on error
return {}
end try
end DB_record
on DB_lookupRecord(SqlRecords, theReturnCol, theText, theCol)
set theResult to ""
repeat with theRow in items of SqlRecords
set tid to AppleScript's text item delimiters
set AppleScript's text item delimiters to "|"
set theFields to text items of theRow
set AppleScript's text item delimiters to tid
if item theCol of theFields is equal to theText then
set theResult to item theReturnCol of theFields
exit repeat
end if
end repeat
return theResult
end DB_lookupRecord
on processImages(theImageList, exportFolder, isAlbum, exportSettings)
logEvent("processImages... : " & exportFolder) of me
if exportSettings contains "JPEG" then
set imageExt to ".jpg"
else
set imageExt to ".ANY"
end if
set arrayOfImages to {}
with timeout of 6000 seconds
set theCount to count of theImageList
set theCounter to 1
repeat with theImage in theImageList
set imageUUID to id of theImage
set imageName to name of theImage
set end of arrayOfImages to imageName & imageExt
logEvent("Processing image : " & imageName & " (" & theCounter & "/" & theCount & ")") of me
set numExports_G to numExports_G + (exportImage(imageUUID, imageName, exportFolder, "version", isAlbum, exportSettings, imageExt) of me)
set theCounter to theCounter + 1
end repeat
end timeout
return arrayOfImages
end processImages
on processAlbums(theAlbumsList, theAlbumPath, processOrder)
logEvent("processAlbums... : " & theAlbumPath) of me
set arrayOfAlbums to {}
tell application "Aperture"
set theCount to count of theAlbumsList
set theCounter to 1
repeat with theAlbum in theAlbumsList
set theAlbumName to name of theAlbum
logEvent("Processing album : " & theAlbumName & " (" & theCounter & "/" & theCount & ")") of me
set theCounter to theCounter + 1
set AlbumObjects to {}
set end of arrayOfAlbums to theAlbumName
tell application "Finder"
if not (exists (POSIX file (theAlbumPath & theAlbumName) of me)) then
logEvent("creating new folder " & theAlbumName & " at " & theAlbumPath) of me
make new folder at (POSIX file theAlbumPath of me) with properties {name:theAlbumName}
end if
end tell
logEvent("Getting list of images...") of me
set theImagesList to every image version of album id (id of theAlbum)
logEvent("Found " & (count of theImagesList) & " images") of me
if processOrder is equal to "albums" then
set end of AlbumObjects to processImages(theImagesList, (theAlbumPath & theAlbumName & "/"), "album", "JPEG - Original Size") of me as list
cleanup(AlbumObjects, (theAlbumPath & theAlbumName & "/"), "all") of me
end if
end repeat
end tell
logEvent("processAlbums completed...") of me
return arrayOfAlbums
end processAlbums
on processSubfolders(theSubfoldersList, theSubfolderPath, processOrder)
logEvent("processSubfolders... : " & theSubfolderPath) of me
set arrayOfSubfolders to {}
tell application "Aperture"
set theCount to count of theSubfoldersList
set theCounter to 1
repeat with theSubfolder in theSubfoldersList
set theSubfolderName to name of theSubfolder
logEvent("Processing subfolder : " & theSubfolderName & " (" & theCounter & "/" & theCount & ")") of me
set theCounter to theCounter + 1
set end of arrayOfSubfolders to theSubfolderName
tell application "Finder"
if not (exists (POSIX file (theSubfolderPath & theSubfolderName) of me)) then
logEvent("creating new folder " & theSubfolderName & " at " & theSubfolderPath) of me
make new folder at (POSIX file theSubfolderPath of me) with properties {name:theSubfolderName}
end if
end tell
set SubfoldersFolders to {}
logEvent("Getting list of albums ...") of me
set theAlbumsListOfSubfolder to every album of subfolder id (id of theSubfolder)
logEvent("Found " & (count of theAlbumsListOfSubfolder) & " albums") of me
logEvent("Getting list of subfolders...") of me
set theSubfoldersListOfSubfolder to every subfolder of subfolder id (id of theSubfolder)
logEvent("Found " & (count of theSubfoldersListOfSubfolder) & " subfolders") of me
if theSubfoldersListOfSubfolder is equal to {} then
set end of SubfoldersFolders to processAlbums(theAlbumsListOfSubfolder, (theSubfolderPath & theSubfolderName & "/"), processOrder) of me as list
else
if theAlbumsListOfSubfolder is not equal to {} then
set end of SubfoldersFolders to processAlbums(theAlbumsListOfSubfolder, (theSubfolderPath & theSubfolderName & "/"), processOrder) of me as list
end if
set end of SubfoldersFolders to processSubfolders(theSubfoldersListOfSubfolder, (theSubfolderPath & theSubfolderName & "/"), processOrder) of me as list
end if
cleanup(SubfoldersFolders, (theSubfolderPath & theSubfolderName & "/"), "all") of me
end repeat
end tell
logEvent("processSubfolders completed...") of me
return arrayOfSubfolders
end processSubfolders

If you do externalize your Masters to folders anywhere (same drive, internal/external drive, multiple drives, whatever), never be tempted to use Finder to mess with them.
As Frank said, use Relocate Masters. Otherwise you'll confuse Aperture when it wakes up expecting Masters to be in certain places when they have moved elsewhere.
It's possible to fix up the mess, but it's no fun!

Creating a rectangular marquee to select objects

I am trying to use the selection tool or the direct selection tool to create a rectangular marquee somewhere within the boundaries of an illustration.
I want to select only those objects that are fully or partially within that marquee.
I can use the lasso to select objects in this way.
But if I try to use the selection or direct selection tool, it selects and moves the first object I touch.
I can use the selection tools and begin from outside the image area and create a rectangular marquee of selected objects.
But I can't do this if I begin within the image.

Illustrator is mostly alone in its selection options. Some other vector drawing applications have an option as to the marquee selection behavior.
I wouldn't hold your breath for a change.
Mike

Export only selected objects of a drawing

Similar Messages

Maybe you are looking for