CoCreate User Forum

CoCreate User Forum (https://www.cocreateusers.org/forum/index.php)
-   Annotator (https://www.cocreateusers.org/forum/forumdisplay.php?f=48)
-   -   Textref made by an function (https://www.cocreateusers.org/forum/showthread.php?t=2546)

Klaus 06-19-2002 11:34 PM

Textref made by an function
 
I am trying to make an textref by this sd-inq-obj-mod-time function, but I have to selitem the owner of the drawing. Anyone ??? (docu-register-tr-type "JM_GROUP" "Sidst_modificeret" "???" 'jm-sidst-mod) (defun jm-sidst-mod () (sd-inq-obj-mod-time (selitem)))

Walter Geppert 06-20-2002 08:53 PM

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 )


All times are GMT -8. The time now is 05:14 AM.

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.