;(in-package :custom)
;
(use-package :OLI)


(defun Bemassung_in_Grad1 ()
	
	(let (allebemassungen WINKELBEMASS DIMTYPE BEMWERT BEMASSINDEGREE BEMZAHL)
	
	(SETQ allebemassungen 
			(frame2::getres
				(get_selection 
					:focus_type *sd-anno-dimension-seltype*
			;		;:curr_part_only
			;		;:check_function #'(lambda (text-item) (if (find "ST-PART-PROP-NOT-UPTODATE" (sd-am-inq-info-attributes text-item) :test #'sd-string=) :ok :filter))
					:select :docu_dimension :by_drawing_docu_rest 
				); ende get selection
			) ;frame2::getres
	);nimmt alle Bemaßungen der Zeichnung auf

	(setq WINKELBEMASS ())
	
	(dolist (ITEM allebemassungen)
		(setq DIMTYPE (sd-am-inq-dim-type ITEM))
		
		(IF (eql :DIM_ANGLE DIMTYPE)
			(setq WINKELBEMASS (cons ITEM WINKELBEMASS))
		); end if
		
	);end dolist
	
	(setq BEMWERT())
	(setq BEMASSINDEGREE())
	
	(dolist (ITEM WINKELBEMASS)
		(setq BEMWERT (sd-am-dim-values-struct-main-value (sd-am-inq-dim-values ITEM)))
		(IF (> (length BEMWERT) 8 )
			(setq BEMASSINDEGREE (cons ITEM BEMASSINDEGREE))	
		)
	); end dolist
	
	(dolist (ITEM BEMASSINDEGREE)
		(setq BEMWERT (sd-am-dim-values-struct-main-value (sd-am-inq-dim-values ITEM)))
		(setq BEMZAHL (subseq BEMWERT 0 (- (length BEMWERT) 8)))
		(am_dim_props :page :value ITEM :main_value (format nil "~A°" BEMZAHL) :main_underline :off cancel) 
	); end dolist	
	
	) ; ende let
);ende defun