How do you make a program run faster

[ccowgill]

This program currently works fine, the problem is, I can zoom out and watch each and every item move one at a time.

I would like it to run much faster, the drawing it is used on is also attached.
We use Eagle Point to create our cross section sheets and they have a bug in their latest patch, so I need a temporary fix until they fix their screw up.

	(defun c:xs (/ xsinfo xsobj)
	  (setq xsinfo
	  (ssget
		"_X"
		(list (cons 8 "DESIGNEARTHWORK,CL_ELEVATIONS,SLOPES,CL_ORIG_ELEV,STATIONS,DES_SUBBASE,DES_AGGBASE,DES_RUBBLIZED,DES_BASE,DES_LEVELING,DES_SHOULDER,ORIG_SURFACE,DES_WEARING,ANN_ELEV_OFF")
  )
	  )
	  )
	  (while (setq xsobj (ssname xsinfo 0))
 (command "move" xsobj "" <A href="mailto:"0,0" "@0.4777,0.4074">"0,0" "@0.4777,0.4074")
 (ssdel xsobj xsinfo)
	  )	 ;end while
	)	 ;end defun

[T.Willey]

Are you stepping through the selection set, and moving each item one at a time? and doing it all the same distance? If so, just move the selection set. Other than that, I don't know of a way off hand.

[ccowgill]

you are right, I was over complicating what I need to be done, I have been working on several programs that contain a bunch of steps that need to be completed for each item selected, this program, however, is a global move.

problem solved, thanks

[ccowgill]

is there a way to make this program fire right after another command is run? I would like it to automatically run after the update sheets command has been fired from Eagle Point.

If not, no big deal it is only 3 key strokes

[T.Willey]

I don't know how Eagle point works. But for lisp files to run right after each other, you could make a third one, and then call both for there.

(defun c:Test1 ()

(prompt "\nThis is the first lisp.")
)
(defun c:Test2()
(prompt "\nThis is the SECOND lisp.")
)
(defun c:Test3()
(c:Test1)
(c:Test2)
)

[kennet.sjoberg]

is there a way to make this program fire right after another command is run? I would like it to automatically run after the update sheets command has been fired from Eagle Point. . .

I suppose you can use a vlr-command-reactor that fire your code after Eagle Points command.

: ) Happy Computing !

kennet