ferro.84
Guest
Good morning to all,
I ask experts for help.
I'd like the designer's name to be automatically compiled in the paper mill.
in the company we do not have a pdm: at the moment every user makes copy/paste of his name for each drawing, by hand!
my idea, then, is to save in each pc a local variable (i.e. the name of the designer using that pc) to be recalled with a lisp every time the rescue of table 2d is made.
basically, when launching the "Save 2d", the lisp procedure reads the variable "designer name" and the writes in a xy point of the cartella and then save the drawing.
back time had helped me to do a procedure that Law a text in a xy point in the cartilage
and save it in the variable apex (still thanks!!), here I put an extract of the code:
I would like to exploit the same logic, only that in this case I must write a text in the xy point, fishing it from a local variable (the drawing name).
any advice on how could you do this procedure?
or maybe there's also a better way to implement this, I thought of this...
Thank you for your help!
Good work and a good year!
I ask experts for help.
I'd like the designer's name to be automatically compiled in the paper mill.
in the company we do not have a pdm: at the moment every user makes copy/paste of his name for each drawing, by hand!
my idea, then, is to save in each pc a local variable (i.e. the name of the designer using that pc) to be recalled with a lisp every time the rescue of table 2d is made.
basically, when launching the "Save 2d", the lisp procedure reads the variable "designer name" and the writes in a xy point of the cartella and then save the drawing.
back time had helped me to do a procedure that Law a text in a xy point in the cartilage
and save it in the variable apex (still thanks!!), here I put an extract of the code:
Code:
(def_apice ()
(setq angoli (sd-am-sheet-struct-corners (sd-am-inq-sheet(sd-am-inq-curr-sheet))))
(setq coord_angolo_basso_destra (make-gpnt2d :x (gpnt2d_x (nth 1 angoli)) :y (gpnt2d_y (nth 0 angoli))))
(setq coord_angolo_basso_destra_x (gpnt2d_x (nth 1 angoli)))
(setq coord_angolo_basso_destra_y (gpnt2d_y (nth 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 nil))
(setf testo (sd-am-inq-text-strings (first seleziona_testo)))
(setf apice (first testo))
)any advice on how could you do this procedure?
or maybe there's also a better way to implement this, I thought of this...
Thank you for your help!
Good work and a good year!