Ankündigung

Einklappen
Keine Ankündigung bisher.

Nozzle orientation info to drawing

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Nozzle orientation info to drawing

    Is there possibility to get nozzle orientation (degrees? to equiment drawing?

    I havent found any attribute wich can do this. Can it be calculated from something?

  • #2
    Hi,
    This is my only idea:
    #p1dir
    Hope this helps
    Geht net, gibt's net!
    [Entfessler Start]
    Ois wos I do verzapf, is mei eigana Bledsinn und spieglt net die Meinung der Bude wo I hakl (g'haklt hob oder hakl'n werd) wida.
    [Entfessler Ende]

    Kommentar


    • #3
      Hi Sleve,

      you can create with p1dir macro/function and calculate the correct orientation.

      I 've used this logic 4/5 years ago sucessfully

      e.g

      Code:
      var !equi name of equi of id @
          handle(2,111)
           return error 1 'Select equipment'
          endhandle
       var !limits :cdlimits of view
          handle(2,111)
            return error 1 'Select view'
          endhandle
          !limits = !limits.replace('From','')
      
          !view = name of view
          !layer = !view & '/USER_Labs'
      
      var !nozz coll all NOZZ with matchw(name of equi,'$!equi') within $!limits
      
      
        do !i index !nozz
      
            $!nozz[$!i]
      
      var !p1 p1dir     
      
         !orient = object direction(|$!p1|)
      
      if !p1.occurs(|U|).neq(1) and !p1.occurs(|D|).neq(1) then 
      
         !nozzangl = !orient.angle(N)
      
         if !p1.occurs(|S|).eq(1) and !p1.occurs(|W|).eq(1) then 
      
               !nozzangl = 360 - !nozzangl
      
      
           elseif !p1.occurs(|S|).eq(0) and !p1.occurs(|W|).eq(1) then   
      
              !nozzangl = 360 - !nozzangl   
      
         endif  
      
              $!layer 
              new glab                               
              ddname $!nozz[$!i]                  
              handle(2,220)                          
              endhandle                              
              Xyposition 0 0  
              Cheight 2mm
              Lleader true
              Lleader true    
              Btext '$!nozzangl'  
              Txcolour Yellow
              LLStyle Solid 
              LLColour Red
      
       endif
      
      enddo

      Kommentar

      Lädt...
      X