Note coordinate Thru GRIP
Note coordinate Thru GRIP
(OP)
Hi all !
How can I get a Note coordinates with a GRIP program ?
How can I get a Note coordinates with a GRIP program ?
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
Note coordinate Thru GRIP
|
RE: Note coordinate Thru GRIP
Paul Phillips
Specialty Engineered Automation
http://www.sea4ug.com
RE: Note coordinate Thru GRIP
RE: Note coordinate Thru GRIP
It worked fine for me
GRIPSW/ DECLRV
ENTITY/ obj
NUMBER/ subtyp
NUMBER/ objori(3)
STRING/ ostr(255)
MASK/ 25
INEXTE/ ALL
loopob:
obj = NEXTE/ IFEND, allobj:
subtyp = &SUBTYP(obj)
IFTHEN/ subtyp == 1
ostr = &DMTEXT(obj)
objori = &ORIGIN(obj)
PRINT/ USING, '#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ #@@@@.@@ #@@@@.@@', $
ostr, objori(1), objori(2)
ENDIF
JUMP/ loopob:
allobj:
HALT
greetings from Germany
RE: Note coordinate Thru GRIP