ferro.84
Guest
Bonjour à tous,
Je demande de l'aide aux experts.
J'aimerais que le nom du concepteur soit compilé automatiquement dans la papeterie.
dans l'entreprise nous n'avons pas de pdm: à l'heure actuelle chaque utilisateur fait copie/colle de son nom pour chaque dessin, à la main!
mon idée, alors, est d'enregistrer dans chaque pc une variable locale (c.-à-d. le nom du concepteur utilisant ce pc) à rappeler avec un lisp chaque fois que le sauvetage du tableau 2d est fait.
fondamentalement, lors du lancement du "Save 2d", la procédure lisp lit la variable "nom du concepteur" et le écrit dans un point xy de la cartelle puis enregistrer le dessin.
le passé m'avait aidé à faire une procédure qui Droit un texte dans un point xy dans le cartilage
et l'enregistrer dans la variable apex (toujours merci!!), ici je mets un extrait du code:
Je voudrais exploiter la même logique, mais dans ce cas je dois écrire un texte dans le point xy, la pêche à partir d'une variable locale (le nom du dessin).
Comment pourriez-vous faire cette procédure ?
Ou peut-être qu'il y a aussi une meilleure façon de mettre en œuvre ça, j'ai pensé à ça...
Merci de votre aide!
Bon travail et bonne année !
Je demande de l'aide aux experts.
J'aimerais que le nom du concepteur soit compilé automatiquement dans la papeterie.
dans l'entreprise nous n'avons pas de pdm: à l'heure actuelle chaque utilisateur fait copie/colle de son nom pour chaque dessin, à la main!
mon idée, alors, est d'enregistrer dans chaque pc une variable locale (c.-à-d. le nom du concepteur utilisant ce pc) à rappeler avec un lisp chaque fois que le sauvetage du tableau 2d est fait.
fondamentalement, lors du lancement du "Save 2d", la procédure lisp lit la variable "nom du concepteur" et le écrit dans un point xy de la cartelle puis enregistrer le dessin.
le passé m'avait aidé à faire une procédure qui Droit un texte dans un point xy dans le cartilage
et l'enregistrer dans la variable apex (toujours merci!!), ici je mets un extrait du code:
Code:
(déf_apice ()
(setq angoli (sd-am-sheet-struct-corners (sd-am-inq-sheet)))
(setq coord_angolo_basso_destra (make-gpnt2d :x (gpnt2d_x (nième 1 angoli)) :y (gpnt2d_y (nième 0 angoli)))
(setq coord_angolo_basso_destra_x (gpnt2d_x (nième angoli)))
(setq coord_angolo_basso_destra_y (gpnt2d_y (nième 0 angoli))
(setq coord_apice_x (- coord_angolo_basso_destra_x 10))
(setq coord_apice_y (+ coord_angolo_basso_destra_y 8))
(setf coord_apice (gpnt2d coord_apice_x coord_apice_y))
(setf seleziona_testo (sd-call-cmds(get_selection :focus_type *sd-anno-text-seltype* :select coord_apice) :failure zéro))
(setf testo (sd-am-inq-text-strings (premier seleziona_testo)))
(premier testo)
)Comment pourriez-vous faire cette procédure ?
Ou peut-être qu'il y a aussi une meilleure façon de mettre en œuvre ça, j'ai pensé à ça...
Merci de votre aide!
Bon travail et bonne année !