Increase screen updating while program is running

[LSElite]

Is there a way to change the rate in which your screen refreshes so you can watch your program run more smoothly instead of couple second increments?

[Tom Beauford]

What version are you running? What are you doing when you notice this, zooming, twisting a view, maybe rotation objects? Are you using View Transitions?

[LSElite]

I am running 2015 but we use versions 2013-2015 at out company.
the program is mainly inserting points and drawing lines but it is so slow that you see it 100 points every 3 seconds.
I am not sure what view transitions are.

The program just does stuff on the screen without moving the view.

[Tom Beauford]

View transitions are one possibility. Enter VTOPTIONS at the command line. If "Enable animation…" boxes are checked in the dialog box AutoCAD will slow those actions down so you can see what's happening.

It sounds like the program you mentioned is causing this though. What program is it? Is it a lisp routine you can post so we can debug it for you?

[LSElite]

I tried playing with the VTOptions and it didnt seem to make a difference.

The code as it stands now only works under specific set of circumstances.
I have pasted the main loop which is really choppy.

(while (= LoopBreak nil)
	  	(setq 	LoopBreak 	"T")
		(foreach Trail TrailList 
			(setq 	i2 0
					dist 0
					Tdist 0
					Visited	(cons CurrentPoint Visited)
			)
			(if (> (length Trail) 1)
				(repeat (- (length Trail) 1)
					(setq 	i2 		(+ i2 1)
							dist 	(distance (nth (- i2 1) Trail) (nth i2 Trail))
							TDist	(+ TDist dist)
					)
				)
			)
			(setq LoopBreak	(if (< TDist (+ MaxRadius (* Increment 20))) nil "T"))
			(progn
				(setq	CurrentPoint	(nth 0 Trail)
						Frontier		(vl-remove CurrentPoint Frontier)
						i1				1
						TrailList		(if (member Trail TrailList) (vl-remove Trail TrailList) TrailList)
				)
				(repeat 8
					(setq	FrontierProposed
								(cond	((= i1 8)	(list (nth 0 CurrentPoint)						(+ (nth 1 CurrentPoint) Increment)			(nth 2 CurrentPoint)))
										((= i1 7)	(list (+ (nth 0 CurrentPoint) Increment) 		(nth 1 CurrentPoint)						(nth 2 CurrentPoint)))
										((= i1 6)	(list (nth 0 CurrentPoint)						(- (nth 1 CurrentPoint) Increment)			(nth 2 CurrentPoint)))
										((= i1 5)	(list (- (nth 0 CurrentPoint) Increment) 		(nth 1 CurrentPoint)						(nth 2 CurrentPoint)))
										((= i1 4)	(list (+ (nth 0 CurrentPoint) Increment) 	(+ (nth 1 CurrentPoint) Increment)		(nth 2 CurrentPoint)))
										((= i1 3)	(list (+ (nth 0 CurrentPoint) Increment) 	(- (nth 1 CurrentPoint) Increment)		(nth 2 CurrentPoint)))
										((= i1 2)	(list (- (nth 0 CurrentPoint) Increment) 	(- (nth 1 CurrentPoint) Increment)		(nth 2 CurrentPoint)))
										((= i1 1)	(list (- (nth 0 CurrentPoint) Increment)	(+ (nth 1 CurrentPoint) Increment)		(nth 2 CurrentPoint)))
								)
							tempfrontier	frontier
							Frontier	(if (and (= nil (member FrontierProposed Visited)) (= nil (member FrontierProposed Frontier)))
											(if (ClashDetection CurrentPoint FrontierProposed)
												Frontier
												(cons FrontierProposed Frontier)
											)
											Frontier
										)
							TrailList	(if (and (= nil (member FrontierProposed Visited)) (= nil (member FrontierProposed tempFrontier)))
											(if (ClashDetection CurrentPoint FrontierProposed)
												TrailList
												(cons (cons FrontierProposed Trail) TrailList)
											)
											TrailList
										)
							HosePaths	(if (and (> Tdist IntRadius) (< Tdist ExtRadius))	
											(if (and (= nil (member FrontierProposed Visited)) (= nil (member FrontierProposed tempFrontier)))
												(if (ClashDetection CurrentPoint FrontierProposed) 
													HosePaths
													(cons (cons FrontierProposed Trail) HosePaths)
												)
												HosePaths
											)
											HosePaths
										)
							i1			(+ i1 1)
					)
				)
				(if (< TDist IntRadius) (command "clayer" "InternalDots" "point" currentpoint) nil)
				(if (and (> Tdist IntRadius) (< Tdist ExtRadius)) (command "clayer" "ExternalDots" "point" currentpoint))
				(if (and (> TDist ExtRadius) (< TDist IntMaxRadius)) (command "clayer" "SprayDots" "point" currentpoint) nil)
				(if (and (> Tdist IntMaxRadius) (< Tdist MaxRadius)) (command "clayer" "ExternalDots" "point" currentpoint))
			)
		)
	)

[Tom Beauford]

Using the command function to both change layer and draw each point is the problem. To speed it up you need to either entmake the points or use vla-AddPoint then modify the points layer. It will place them using the WCS though. I'm guessing this was written by someone using a UCS.

[LSElite]

Thanks Tom.
I used command specifically for speed of programming.
I will look into subbing it out for more efficient code.