Thread: Add elemt info
View Single Post
  #11  
Old 12-18-2018, 05:57 AM
andrea andrea is offline
Registered User
 
Join Date: Sep 2003
Location: italy
Posts: 261
Re: Add elemt info

help me, this is the example to which I want to add my info to the text indicated in the image

This is the macro that I created, but does not add the info to the text

(defun add_infos_to_sheet_text ()
(let (pnt-x pnt-y cmdstr)
(setf pnt-x (- (gpnt2d_x (Nth 1 (sd-am-sheet-struct-corners (sd-am-inq-sheet (sd-am-inq-curr-sheet))))) 125.964))
(setf pnt-y (+ (gpnt2d_y (Nth 0 (sd-am-sheet-struct-corners (sd-am-inq-sheet (sd-am-inq-curr-sheet))))) 22.792))
(setf cmdstr (format nil "ADD_ELEM_INFO 'TR:WTtr:PTC_WM_LIFECYCLE_STATE:2:0:1:-102:1:0' select global texts (pnt_xy ~a ~a) confirm end" pnt-x pnt-y))
(oli:sd-execute-annotator-command :cmd cmdstr)
;;(DISPLAY(format nil "~a ~a" pnt-x pnt-y))
)
)
Attached Thumbnails
Click image for larger version

Name:	Cattura.JPG
Views:	438
Size:	52.5 KB
ID:	1997  
Attached Files
File Type: mi 88.mi (57.0 KB, 539 views)
Reply With Quote