Model View Property Manipulation

[LSElite]

Hi All,

We currently use model view states to allow us to navigate through a building.
Each view state will isolate all layers for each level.
This works well enough but is notoriously difficult to manage and take a long time to set up.
I would like to make some routines to assist with the setup and management of the views.

This brings me to my problem:
I have been attempting to use the DXF codes edit the properties however the (entmod) function does not appear to update the view properties.
This particular routine is designed to update the view range of all views in the drawing based on the current zoom window.
Any help would be much appreciated.

I have included the code below:

(defun c:UpdateAllRanges ()
	(command "-VIEW" "SAVE" "_TEMP1")
	
	(if (setq vProps (tblsearch "view" "_TEMP1"))
		(setq vProps (list (assoc 40 vProps) (assoc 10 vProps) (assoc 41 vProps))))
	(setq cView (tblnext "VIEW" T))
	(while cView
		(foreach tProp vProps
			(setq cView (subst tProp (assoc (car tProp) cView) cView))
		)
		(entmod cView)
		(setq cView (tblnext "VIEW"))
	)
	
	(command "-VIEW" "DELETE" "_TEMP1")
)

[Tom Beauford]

From AutoCAD Help:http://help.autodesk.com/view/ACD/20...C-0D8C58F4C832
entmod (AutoLISP)
Remarks
#3 - You cannot use the entmod function to modify a viewport entity.