Trying to automate repetitive work using LISP

This is probably similar in concept to what you are looking for.

Here's a working example of a piece of code that'll create configurations for all parts that DON'T match some naming patterns, provided they have a model or "contents" name is set.

It looks fairly complicated due to the specific qualifiers for parts to ignore, and the requirements that contents name. This code can create a nice pile of configurations with one of each part shown in the viewport.

(use-package :oli)
; (LoadCode "create_conf") SIMPLE_CONFIGURATIONS
(sd-defdialog 'SIMPLE_CONFIGURATIONS
	:dialog-title "SIMPLE CONFIGURATIONS"
	:variables '(
		(MAIN_ASSEMBLY_object :TITLE "MAIN_ASSEMBLY" :value-type :assembly :initial-value nil)
		)
:ok-action
	'(progn 
	(setf MAIN_ASSEMBLY_name (SD-INQ-OBJ-CONTENTS-NAME MAIN_ASSEMBLY_object))
	(setf MAIN_ASSEMBLY_path (SD-INQ-OBJ-PATHNAME MAIN_ASSEMBLY_object))
	(setf list_of_patterns_to_ignore (list "X*" "287*" "G*" "E*" "S*"))
	;; get a list of all parts in a assembly, (recursively)
	(setf list_of_all_parts (sd-call-cmds (get_selection :allow_face_part :allow_wire_part :focus_type *sd-part-seltype* :select :recursive :in_assembly MAIN_ASSEMBLY_object)))
	;; new empty list
	(setf list_of_unique_parts '()) 
	;;iterate over every part
	(dolist (obj list_of_all_parts)
		;; continue if the contents name has been set, otherwise skip this object
		(if (not (null(SD-INQ-OBJ-CONTENTS-NAME OBJ)))
			(progn
				; Reset the ignore pattern
				(setf ignorematch nil) 
				(setf current_part_name (SD-INQ-OBJ-CONTENTS-NAME obj) )
				(dolist (pattern1 list_of_patterns_to_ignore)
					(if (sd-string-match-pattern-p pattern1 current_part_name )
						;; ignore pattern matched, ignore this part
						(setf ignorematch t) 
					)
				)
				(if (null ignorematch) ; ignore pattern not matched
					(when (null (FIND current_part_name list_of_unique_parts :test #'equal) )	
						;; if partname isn't found in list_of_unique_parts then, the configuration hasn't yet been created
						(progn
							;; add the part name to list_of_unique_parts so only one configuration will be made
							(setf list_of_unique_parts (cons current_part_name list_of_unique_parts)) 
							
							;; new string - a configuration name with part name embedded
							(setf new_configuration_name (format nil "CONFIGURATION_~A" current_part_name)) 
							
							;; drawlist1 is what objects to show in the configuration
							(setf drawlist1 (list obj)) 
							
							;; created a new configuration, overwrite any existing configurations
							(sd-create-configuration :name new_configuration_name :name-conflict :delete-old :owner MAIN_ASSEMBLY_object :drawlist drawlist1 ) 
							
							;; define my_list as the current list of all configurations in MAIN_ASSEMBLY_object
							(setf my_list (sd-inq-configurations :owner MAIN_ASSEMBLY_object))
							;; loop list of configurations 
							(dolist (configuration_obj my_list) 
								;;until current configuration is found
								(if (sd-string-match-pattern-p ( getf (sd-inq-configuration-props configuration_obj) :NAME) new_configuration_name)
									(progn
										;; activate the current configuration
										(sd-call-cmds (cfn_activate_configuration :CONFIG configuration_obj :ALL_VPS t)) 
										;; fit part to current viewport window
										(fit_vp (sd-inq-current-vp)) 
										;;Capture camera and drawlist for current configuration
										(cfn_capture :consider_drawlist :ON :consider_camera :ON :config configuration_obj :end_name complete)
										
									
									);;progn
								);;if
							
							);;dolist
						);;progn
					);;when
				);;if
			);;progn
		);;if
	);;dolist

	);;progn for ok-action
) ;; (sd-defdialog 

Can you explain more about what you mean by "views of all open models"? Do you want these views on a drawing in Annotation? If there are assemblies, do you want views of the individual models, or of the assemblies, or both?