• Open Menu Close Menu
  • Apple
  • Shopping Bag
  • Apple
  • Mac
  • iPad
  • iPhone
  • Watch
  • TV
  • Music
  • Support
  • Search apple.com
  • Shopping Bag

Lists

Open Menu Close Menu
  • Terms and Conditions
  • Lists hosted on this site
  • Email the Postmaster
  • Tips for posting to public mailing lists
Re: scripting for Adobe Illustrator error
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: scripting for Adobe Illustrator error

  • Subject: Re: scripting for Adobe Illustrator error
  • From: Jake Rowlands <email@hidden>
  • Date: Tue, 18 Oct 2016 12:36:49 -0400
Posting the entire script. Error now is error "The variable WindowPosition is not defined." number -2753 from "WindowPosition" of line 71.

  1. tell application "Adobe Illustrator"
  2. set clicker to {23, 46}
  3. --set user interaction level to interact with all
  4. try
  5. if contents of selection is not "Client" then

  7. error number -128
  8. end if
  9. on error
  10. display dialog "Please select the word \"Client\"" giving up after 1.5
  11. error number -128
  12. end try

  14. activate
  15. set x to properties of selection
  16. delay 0.15
  17. tell application "System Events"
  18. keystroke "a" using command down
  19. end tell
  20. redraw
  21. set y to properties of selection
  22. set TheContent to contents of y
  23. set TheSize to size of x
  24. set TheSelection to item 1 of selection of y
  25. set TheContainer to container of y
  26. set selection to {}
  27. --set selection to page item 1 of document 1
  28. redraw



  32. tell document 1
  33. set TheFrame to every text frame whose contents is TheContent
  34. end tell


  37. --say "window"

  39. tell application "System Events"
  40. tell process "Adobe Illustrator"
  41. --beep
  42. set frontmost to true
  43. my do_submenu("Adobe Illustrator", "Window", "Tools", "Default")
  44. set Sizes1 to size of every window
  45. my do_submenu("Adobe Illustrator", "Window", "Tools", "Default")
  46. set Sizes2 to size of every window
  47. --beep
  48. if length of Sizes1 is not length of Sizes2 then
  49. if length of Sizes1 is greater than length of Sizes2 then
  50. set TheSize to item 1 of my RemoveComonList(Sizes1, Sizes2)
  51. else
  52. set TheSize to item 1 of my RemoveComonList(Sizes2, Sizes1)
  53. end if
  54. --beep
  55. set TOOLS to every window whose size is TheSize
  56. if TOOLS is {} then
  57. my do_submenu("Adobe Illustrator", "Window", "Tools", "Default")
  58. set TOOLS to every window whose size is TheSize
  59. end if
  60. --beep
  61. tell item 1 of TOOLS
  62. set WindowPosition to position
  63. set item 1 of WindowPosition to (item 1 of WindowPosition) + (item 1 of clicker)
  64. set item 2 of WindowPosition to (item 2 of WindowPosition) + (item 2 of clicker)
  65. end tell
  66. end if
  67. end tell
  68. end tell
  69. --say "Click"

  71. my MouseClick(item 1 of WindowPosition, item 2 of WindowPosition, 1)
  72. delay 1
  73. set TheContent to contents of the selection

  75. --beep

  77. set TheContent to my stringtolist(TheContent, return)


  80. set TheResult to {}

  82. set eventDate to current date
  83. set dayInteger to day of eventDate as integer as string
  84. set monthInteger to month of eventDate as integer as string
  85. set yearInteger to year of eventDate as integer as string
  86. if (count of every character of dayInteger) is 1 then
  87. set dayInteger to "0" & dayInteger
  88. end if
  89. if (count of every character of dayInteger) is 1 then
  90. set dayInteger to "0" & dayInteger
  91. end if
  92. if (count of every character of monthInteger) is 1 then
  93. set monthInteger to "0" & monthInteger
  94. end if
  95. set yearInteger to (items 3 through 4 of every character of yearInteger) as string
  96. set dateString to monthInteger & "." & dayInteger & "." & yearInteger
  97. --beep
  98. ----PRINT SCALE

  100. set SlugContents to my stringtolist(TheContent, return)
  101. set SlugBlack to {cyan:0.0, magenta:0.0, yellow:0, black:100}
  102. set AutoSlugList to {"xscalex", "xdateLRx", "xfilex", "xjobdescx", "xjobx", "xdateAx", "xdiex", "xdiesizex"}
  103. --set user interaction level to interact with all
  104. set ArtboardDims to artboard rectangle of artboard 1 of document 1
  105. set theWidth to width of document 1
  106. set theHeight to height of document 1
  107. set ThePath to file path of document 1
  108. set Parentfolder to item 2 of my FolderPathtoList(ThePath, 0, 1)
  109. --set xjobx to items 1 thru 10 of every item of Parentfolder as string
  110. set xjobx to item 1 of my stringtolist(Parentfolder, " ")

  112. set xjobdescx to items ((count of every item of xjobx) + 2) thru (count of every item of Parentfolder) of every item of Parentfolder as string
  113. set xfilex to name of document 1
  114. if theWidth is greater than theHeight then
  115. set ScaleV to round (776 / theHeight * 100)
  116. set scaleH to round (1198 / theWidth * 100)
  117. if scaleH is greater than ScaleV then
  118. set PrintScale to ScaleV
  119. else
  120. set PrintScale to scaleH
  121. end if
  122. else
  123. set ScaleV to round (1198 / theHeight * 100)
  124. set scaleH to round (776 / theWidth * 100)
  125. if scaleH is greater than ScaleV then
  126. set PrintScale to ScaleV
  127. else
  128. set PrintScale to scaleH
  129. end if
  130. end if

  132. if PrintScale > 99 then
  133. set PrintScale to 100
  134. end if

  136. set xscalex to PrintScale & "%"

  138. --beep
  139. set this_text to name of document 1
  140. set THE_TEXT to this_text as string






  147. -----------------------------Name Switch

  149. set userName to long user name of (system info)
  150. set userName to my name_switch(userName, "afelch", "AF")
  151. set userName to my name_switch(userName, "jrowlands", "JR")
  152. set userName to my name_switch(userName, "bpope", "BP")
  153. set userName to my name_switch(userName, "rbaer", "RB")
  154. set userName to my name_switch(userName, "bkoski", "BK")
  155. set userName to my name_switch(userName, "jelkins", "JE")
  156. set xdateLRx to dateString & " " & userName as string

  158. (*
  159. set thedisplay to {"Job: ", xjobx as string, return, "Description: ", xjobdescx, return, "File: ", xfilex, return, "Artist: ", xdateAx, return, "Last Rev: ", xdateLRx, return, "Print Out Date: ", xdatePOx, return, "Proof Scale: ", xscalex}

  161. display dialog (thedisplay as string) buttons {"Cancel", "Continue"} default button 2
  162. *)
  163. ------------




  168. (*
  169. repeat with fr from 1 to count of AutoSlugList
  170. try
  171. set fill color of every character of every word of text frame (item fr of AutoSlugList) of current document to SlugBlack
  172. on error
  173. set xfilex to false
  174. end try
  175. end repeat

  177. *)

  179. --beep
  180. set prejob to "Job#: "
  181. set prefile to "File Name: "
  182. set predatelr to "Last Revision: "
  183. set prescale to "ART IS: 100%  PROOF IS: "
  184. set end of TheResult to item 1 of TheContent
  185. set end of TheResult to return
  186. set end of TheResult to prejob & xjobx
  187. set end of TheResult to return
  188. set end of TheResult to xjobdescx
  189. set end of TheResult to return
  190. set end of TheResult to "File Name: " & xfilex
  191. set end of TheResult to return
  192. set end of TheResult to item 5 of TheContent
  193. set end of TheResult to return
  194. set end of TheResult to "Last Revision: " & xdateLRx
  195. set end of TheResult to return
  196. set end of TheResult to item 7 of TheContent
  197. set end of TheResult to return
  198. set end of TheResult to item 8 of TheContent
  199. set end of TheResult to return
  200. set end of TheResult to item 9 of TheContent
  201. set end of TheResult to return
  202. set end of TheResult to item 10 of TheContent
  203. set end of TheResult to return
  204. set end of TheResult to item 11 of TheContent
  205. set end of TheResult to return
  206. set end of TheResult to prescale & xscalex
  207. set TheResult to TheResult as string
  208. display alert TheResult

  210. set contents of item 1 of TheFrame to TheResult
  211. my ChangeFont(1, length of TheResult, "HelveticaNeueLTStd-Cn", index of TheContainer)
  212. set theStart to 1
  213. set theEnd to 7
  214. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  215. set theStart to (length of item 1 of TheContent) + 1
  216. set theEnd to theStart + (length of prejob)
  217. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  218. set theStart to theEnd + (length of xjobdescx) + (length of xjobx) + 2
  219. set theEnd to theStart + (length of prefile)
  220. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  221. set theStart to theEnd + (length of xfilex) + 2
  222. set theEnd to theStart + 13
  223. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  224. set theStart to theEnd + (length of item 5 of TheContent) - 13
  225. set theEnd to theStart + (length of predatelr)
  226. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  227. set theStart to theEnd + (length of xdateLRx) + 1
  228. set theEnd to theStart + (15)
  229. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  230. set theStart to theEnd + (length of item 7 of TheContent) - 14
  231. set theEnd to theStart + 6
  232. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  233. set theStart to theEnd + (length of item 8 of TheContent) - 5
  234. set theEnd to theStart + 6
  235. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  236. set theStart to theEnd + (length of item 9 of TheContent) - 5
  237. set theEnd to theStart + (length of item 10 of TheContent) + 13
  238. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)

  240. set theStart to theEnd + (length of item 11 of TheContent) - 11
  241. set theEnd to theStart + 8
  242. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)
  243. set theStart to theEnd + 5
  244. set theEnd to theStart + 10
  245. my ChangeFont(theStart, theEnd, "HelveticaNeueLTStd-HvCn", index of TheContainer)

  247. --------------







  255. --display dialog "Please select the word \"Client\"" giving up after 0.5


  258. end tell



  262. on RemoveComonList(list1, list2)

  264. set list3 to {}
  265. set templist1 to {}
  266. set templist2 to {}
  267. repeat with fr from 1 to count of list1
  268. set end of templist1 to item fr of list1 as string
  269. end repeat
  270. --set templist1 to reverse of templist1
  271. repeat with fr from 1 to count of list2
  272. set end of templist2 to item fr of list2 as string
  273. end repeat
  274. --set templist2 to reverse of templist2
  275. repeat with x from 1 to count of items of list1


  278. repeat with y from 1 to count of list1
  279. set n to item y of templist1
  280. if n is not in templist2 then set end of list3 to item y of list1
  281. end repeat
  282. end repeat

  284. return list3
  285. end RemoveComonList


  288. on do_submenu(app_name, menu_name, menu_item, submenu_item)
  289. try
  290. -- bring the target application to the front

  292. tell application "System Events"
  293. tell process app_name
  294. set frontmost to true
  295. tell menu bar 1
  296. tell menu bar item menu_name
  297. tell menu menu_name
  298. tell menu item menu_item
  299. tell menu menu_item
  300. click menu item submenu_item
  301. end tell
  302. end tell
  303. end tell
  304. end tell
  305. end tell
  306. end tell
  307. end tell
  308. return true
  309. on error error_message
  310. return false
  311. end try
  312. end do_submenu

  314. on FolderPathtoList(myPath, TrimFront, TrimBack)
  315. set FolderPath to {}
  316. ----beep
  317. set oldDelimiters to AppleScript's text item delimiters -- always preserve original delimiters
  318. ----beep
  319. set AppleScript's text item delimiters to {":"}
  320. set pathItems to text items of (myPath as text)
  321. ----beep
  322. set TF to (TrimFront as number) + 1
  323. set TB to ((count of pathItems) - TrimBack as integer) as integer
  324. set AppleScript's text item delimiters to oldDelimiters
  325. return items TF thru TB of pathItems as list
  326. end FolderPathtoList

  328. on name_switch(theVariable, Old, new)
  329. if theVariable is Old then
  330. set theVariable to new
  331. else
  332. set theVariable to theVariable
  333. end if
  334. end name_switch

  336. on stringtolist(TheString, TheDelimiter)
  337. set theList to {}
  338. set oldDelimiters to AppleScript's text item delimiters -- always preserve original delimiters
  339. set AppleScript's text item delimiters to TheDelimiter as list
  340. set theList to text items of (TheString as text)

  342. set AppleScript's text item delimiters to oldDelimiters
  343. return theList
  344. end stringtolist

  346. on ChangeFont(CharStart, CharEnd, TheFont, TheStory)
  347. tell application "Adobe Illustrator"
  348. set text font of text from character CharStart to character CharEnd of story TheStory of document 1 to text font TheFont
  349. end tell
  350. end ChangeFont

  352. on MouseClick(x, y, MouseButton)
  353. do shell script "
  354. /usr/bin/python <<END
  355. import sys
  356. import time
  357. from Quartz.CoreGraphics import *
  358. def mouseEvent(type, posx, posy):
  359.           theEvent = CGEventCreateMouseEvent(None, type, (posx,posy), kCGMouseButtonLeft)
  360.           CGEventPost(kCGHIDEventTap, theEvent)
  361. def mousemove(posx,posy):
  362.           mouseEvent(kCGEventMouseMoved, posx,posy);
  363. def mouseclick(posx,posy):
  364.           mouseEvent(kCGEventLeftMouseDown, posx,posy);
  365.           mouseEvent(kCGEventLeftMouseUp, posx,posy);
  366. ourEvent = CGEventCreate(None);
  367. currentpos=CGEventGetLocation(ourEvent);             # Save current mouse position
  368. mouseclick(" & x & "," & y & ");
  369. mousemove(int(currentpos.x),int(currentpos.y));      # Restore mouse position
  370. END"
  371. end MouseClick

On Mon, Oct 17, 2016 at 12:18 PM, Steve Mills <email@hidden> wrote:
Nothing you have posted provides enough information for anyone to help. You've given us small hunks of scripts that don't provide enough information. The last hunk you provide doesn't even attempt to get any "item 1" of any object, but you say the error is:

error "Can’t get item 1 of {}." number -1728 from item 1 of {}


The previous hunk you gave doesn't include the functions do_submenu or RemoveComonList, so we can't test it. If you really expect any kind of real help, you need to post the entire script.

Sent from iCloud's ridiculous UI, so, sorry about the formatting

 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (applescript-users@lists.apple.com)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users

This email sent to email@hidden

 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users

This email sent to email@hidden
  • Follow-Ups:
    • Re: scripting for Adobe Illustrator error
      • From: Yvan KOENIG <email@hidden>
References: 
 >Re: scripting for Adobe Illustrator error (From: Jake Rowlands <email@hidden>)
 >Re: scripting for Adobe Illustrator error (From: Steve Mills <email@hidden>)

  • Prev by Date: Re: ASOC warning messages
  • Next by Date: Re: scripting for Adobe Illustrator error
  • Previous by thread: Re: scripting for Adobe Illustrator error
  • Next by thread: Re: scripting for Adobe Illustrator error
  • Index(es):
    • Date
    • Thread