;;--------------------------------------------------------------------------*
;;  Copyright 2011  DC4 Technisches B? GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
(in-package :DC4)

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

(sd-defdialog 'dc4-am-geo-owner-dialog
:dialog-title "3D-Besitzer"
:variables
  '(
    (tpnt  :value-type :docupntcnp
           :prompt-text "Punkt auf Teil angeben"
           :title "von 2D-Teil"
           :after-input (after-tpnt-action)
    )
   )
:local-functions
  '(
    (after-tpnt-action ()
     (let (mef teilpfad pfadlist owner3d)
      (setf mef (format nil "DC4_inq_teilpfad ~a,~a" (oli::gpntdocu_x tpnt)
                                                     (oli::gpntdocu_y tpnt)))
      (setf teilpfad (format nil "/~a" (sd-execute-annotator-function :fnc mef)))
;(display teilpfad)
      (setf pfadlist (sd-pathname-to-pathlist teilpfad))
      (if pfadlist
       (when (> (length pfadlist) 4)
        (progn
         (setf pfadlist (subseq pfadlist 4))
         (setf pfadlist (push "/" pfadlist))
   ;(display pfadlist)
         (setf lang (length pfadlist))
         (setf teilpfad (sd-pathlist-to-pathname pfadlist))
   ;(display teilpfad)
         (setf owner3d (sd-pathname-to-obj teilpfad))
								);;progn
							);;when
						);;if	
     )
    )
   )
 :ok-action
    '()
)

;;***************************************************************************
;;     ME10                                                                 *
;;***************************************************************************

(sd-execute-annotator-command :cmd
 (format nil "~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a"
" DEFINE DC4_inq_teilpfad                                 "
"    PARAMETER tpnt                                       "
"    LOCAL Cname                                          "
"    LOCAL Teilname                                       "
"    LOCAL Eindname                                       "
"    LOCAL Teilpfad                                       "
"    INQ_ENV 7                                            "
"    LET Cname ('~'+(INQ 302))                            "
"    LET Teilpfad ""                                      "
"    EDIT_PART tpnt                                       "
"    LOOP                                                 "
"      INQ_ENV 7                                          "
"      LET Teilname (INQ 301)                             "
"      LET Eindname (INQ 302)                             "
"      LET Teilpfad (Teilname+'/'+Teilpfad)               "
"    EXIT_IF (Eindname='1')                               "
"      END_PART                                           "
"    END_LOOP                                             "
"    LET Teilpfad (SUBSTR Teilpfad 1 ((LEN Teilpfad)-1))  "
"    EDIT_PART Cname                                      "
"    LET lispstring (DOCU_CSTRING_TO_LSTRING Teilpfad)    "
"    LET isopen (DOCU_OPEN_CONNECTION_TO_SD)              "
"    LET done (DOCU_ADD_LINE_TO_SD lispstring)            "
"    LET isclosed (DOCU_CLOSE_CONNECTION_TO_SD)           "
"  END_DEFINE                                             "
))