×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

NX POINT GRIP

NX POINT GRIP

NX POINT GRIP

(OP)
HI

Anyone who could help me with some source code for compiling a program?

The function should be like this:

The 3D-model part file contains some points.
These points is manually selected, one by one, from the modeling.
The grip program should output the X, Y and Z coordinates drawing table and the lenght betwen points.
Numbering of the points ( P1, P2.. ) shall be the same as the selecting order of the points. (or if grip could select points by it sef automaticly starting from wcs 0,0,0)

the table should look like this

pt       x             y          z          r

I don't know if i present problem corectly.  

RE: NX POINT GRIP

(OP)
Hi AGAIN

I got that GRIP aplication :)

$$
$$           PROGRAM: Point_Coordinates.grs
$$
$$   RELEASE HISTORY :
$$         25-Jan-10 :  Initial submission to library.
$$
$$
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$
$$       Variable Definition
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

NUMBER/           X(3)
NUMBER/           Y(3)
NUMBER/           Z(3)
NUMBER/           U(3)
NUMBER/           V(3)
NUMBER/           W(3)
NUMBER/        ILEN(3)
NUMBER/        IDECPL

ENTITY/           ENTY
ENTITY/           KSYS
ENTITY/           ENT
ENTITY/    LABELA(500)

STRING/      WVIEW(30)
STRING/  STATION(4,20)
STRING/    NOTA(10,30)

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$
$$       Data Definition
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

DATA/STATION,'X  #@@@.@@@@@@@@@@@@',$
             'Y  #@@@.@@@@@@@@@@@@',$
             'Z  #@@@.@@@@@@@@@@@@',$
             '#@@@@@@@@@@@@@@@@@@@'


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$
$$       Active Part Check
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

         IFTHEN/&ACTPRT==1
           MESSG/'You don''t have an active part !'
           HALT
         ENDIF


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$
$$       Read/Setup System Variables
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

         IWLAYER = &WLAYER
         IFONT   = &FONT
         ILWIDTH = &LWIDTH
         ITLWID  = &TLWID
         ITEXTOR = &TEXTOR
         ITDENS  = &TDENS
         ITXJUST = &TXJUST
         IVTXJST = &VTXJST
         IENSITE = &ENSITE
         ICFONT  = &CFONT
         ICSIZE  = &CSIZE
         IDSIZE  = &IDSIZE

         &WLAYER = 201
         &FONT   = &SOLID
         &LWIDTH = &NORMAL
         &TLWID  = &NORMAL
         &TEXTOR = &TXBANG
         &TDENS  = &NORMAL
         &TXJUST = &LEFT
         &VTXJST = &TOP
         &ENSITE = &MIDC
         &CFONT  = 1
         &CSIZE  = .1250
         &IDSIZE = .500
         ILABELA = 0
         IDECPL  = 3

         &FILARW = 1
         &ARIANG=20.
         &ASIZE=.2    
         &TLWID=&THIN
         &TEXTOR=&TXBANG
         &ENSITE=&MIDC
         &TDENS=&THIN
         &VTXJST=&TOP
         IRED=0

                              
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$
$$       Create Point Coordinate Label
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

LOOPA:   &VWCURS = &ANY      
         &WCS    = &ABS
         &DECPL  = IDECPL
         MASK/2,3
         IDENT/'Select Entity',ENT,CURSOR,X,MEMBER,OFF,RESP
         JUMP/END:,END:,,RESP
         &VWCURS=&ANY
         WVIEW=&VWSEL  
         IFTHEN/ENT<>&NULENT
           ITYPE=&TYPE(ENT)
           X=MAP/X,FROM,WVIEW,TO,&CURDRW
           IFTHEN/ITYPE==2
             OBTAIN/ENT,Z
           ELSE
             OBTAIN/ENT,Z,U
           ENDIF

           &VWCURS=&WORK
           POS/'Locate Label Origin',Y,RESP  
           JUMP/LOOPA:,LOOPA:,RESP

           CREATE/TXT,8
           DO/LOOPD:,N,1,3
             NOTA(N)=SUBSTR(STATION(N),1,9+IDECPL)
             WRITE/8,USING,NOTA(N),Z(N)
       LOOPD:
           RESET/8
           READ/8,USING,STATION(4),NOTA(1)
           READ/8,USING,STATION(4),NOTA(2)
           READ/8,USING,STATION(4),NOTA(3)
           FTERM/TXT,8
           
           ILABELA=ILABELA+1
           IFTHEN/Y(1)>X(1)
             LABELA(ILABELA)=LABEL/LEFT,Y(1),Y(2),$
             ENT,VIEW,WVIEW,NOTA(1..3)
           ELSE
             LABELA(ILABELA)=LABEL/RIGHT,Y(1),Y(2),$
             ENT,VIEW,WVIEW,NOTA(1..3)
           ENDIF
            
           IRED=IRED+1
           PRINT/'P'+ISTR(IRED)
           PRINT/NOTA(1)
           PRINT/NOTA(2)
           PRINT/NOTA(3)
         ENDIF
         JUMP/LOOPA:


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$
$$       Reinstate System Variables
$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

END:     &WLAYER = IWLAYER
         &FONT   = IFONT
         &LWIDTH = ILWIDTH
         &TLWID  = ITLWID
         &TEXTOR = ITEXTOR
         &TDENS  = ITDENS
         &TXJUST = ITXJUST
         &VTXJST = IVTXJST
         &ENSITE = IENSITE
         &CFONT  = ICFONT
         &CSIZE  = ICSIZE
         &IDSIZE = IDSIZE
         
HALT


This Aplication read point position and export to file txt position X Y Z i need to export it to table in drafting. Please someone Help ME


 

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources