View Single Post
  #2  
Old 06-20-2002, 08:53 PM
Walter Geppert
Guest
 
Posts: n/a
re: Textref made by an function

In a drawing there may be more than one viewset with different owners. This function will return one of them (the first found): (defun dc4-am-desman-get-owner () (let (ret blatt anslist ans) (setf ret nil) (setf blatt (sd-am-inq-curr-sheet)) (when blatt (progn (setf anslist (sd-am-sheet-struct-views (sd-am-inq-sheet blatt))) (when anslist (progn (dolist (ans anslist) (when (and (not ret) (sd-am-view-struct-view-3d (sd-am-inq-view ans))) (progn (setf ret (sd-am-view-set-struct-owner (sd-am-inq-view-set (sd-am-view-struct-view-set (sd-am-inq-view ans )))) );;setf );;progn );;when );;dolist );;progn );;when );;progn );;when (values ret) );;let )