First of all, it's easy to create a new post: The top ringed region shows you how to get to all the forum posts for a particular forum, and the second ringed region is the button for new posts. I split this into a new thread, and renamed the thread. This SKILL will do what you want. procedure (CCFcycleAnnotation(@optional (session sevSession( hiGetCurrentWindow()))) let ((newChoice (choices '(dcOpPoints modelParameters componentParameters))) ;-------------------------------------------------------------------- ; Find current choice and get next in list. If no next, pick first choice ;-------------------------------------------------------------------- newChoice= cadr ( member (CCFcycleAnnotation.current choices)) || car (choices) CCFcycleAnnotation.current=newChoice sevAnnotateResults(session newChoice) ) ) Regards, Andrew
↧