;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                               for CoCreate SolidDesigner
;;  Description:
;;      Annotation Template with additional command options
;;
;;  Reference  : https://ww3.cad.de/foren/ubb/Forum29/HTML/004975.shtml
;;  Docu       : https://support.ptc.com/help/creo_elements_direct/r20.7.0.0/advanced_documentation/integration_kit/reference/3ddocu/symbol_inq.html#sd-register-template
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Filename   : cadde-29-004975.lsp
;;  Version    : 1.0 initial-version by der_Wolfgang
;;  Created    : Wed Apr  2 10:09:42 CEST 2025
;;  Modified   : Wed Apr  2 11:48:17 CEST 2025
;;  Author     : der_Wolfgang@forum@cad.de
;;  Download   : cad.de ?
;;  SD-Version : developed with PE80
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package :cadde)
(use-package :oli)

;% Automatically written on 04/02/2025 at 10:21:51
;% Creo Elements/Direct Modeling Revision: 20.3 (20.3)

;(sd-am-define-annotation-template
;  :type    :SKETCH
;  :name    "CAD.de Urs Kiste CENTER CENTER"  ;; = default
;  :path    "/cadde"
;  :image   "ANNOTATION/Sketches/cadde/CAD.de Urs Kiste.bmp"
;  :2d-file "ANNOTATION/Sketches/cadde/CAD.de Urs Kiste.mi"
;  :action  "am_load_sketch_multiple")

;; the AM ikit funktion:

;(sd-am-register-symbol
;  :meta-name   meta-name
;  :create-dia  create-dia
;  :edit-dia    edit-dia
;  :pixmap-file pixmap-file
;  :file-name   file-name
;  :category    category)

(sd-register-template 
  :name "CAD.de Urs Kiste UPPER RIGHT"
  :action (format nil "am_load_sketch_multiple :filename \"~A/~A\" :adjust 9" 
                      (sd-inq-app-specific-user-customization-dir "SolidDesigner")
                      "ANNOTATION/Sketches/cadde/CAD.de Urs Kiste.mi")
  :application "Annotation"
  :type :sketch
  :path "/cadde"
  :image-file "ANNOTATION/Sketches/cadde/CAD.de Urs Kiste.bmp"
  )

(sd-register-template 
  :name "CAD.de Urs Kiste UPPER LEFT"
  :action (format nil "am_load_sketch_multiple :filename \"~A/~A\" :adjust 7" 
                      (sd-inq-app-specific-user-customization-dir "SolidDesigner")
                      "ANNOTATION/Sketches/cadde/CAD.de Urs Kiste.mi")
  :application "Annotation"
  :type :sketch
  :path "/cadde"
  :image-file "ANNOTATION/Sketches/cadde/CAD.de Urs Kiste.bmp"
  )

;; a funny one:
(oli::sd-register-template 
  :name "Create A4 Sheet"
  :action "(am_sheet_create :frame-type \"A4\" :scale \"1:1\")"
  :application "Annotation"
  :type :sketch
  :path "/cadde/April/first"
  ;image-file "C:/Program Files/PTC/Creo Elements/Direct Modeling Express 8.0/personality/bitmaps/bmp/commands/Annotation/drawing/new_sheet.png"
  )