Ankündigung

Einklappen
Keine Ankündigung bisher.

Einfärben in DRAFT

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

  • Einfärben in DRAFT

    Hi Alle,
    da ich mich in Draft nicht wirklich Sattelfest bin mal ne "blöde" Frage.
    Kann man in Draft Element wie z.B. GLABs einfärben?
    Highlight ist leider keine Option.
    Danke!
    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]

  • #2
    Re: Einfärben in DRAFT

    Wenn ich jetzt noch wüßte was gemeint ist dann könnte ich da vielleicht weiterhelfen.
    glabs können grundsätzlich natürlich unterschiedlich gefärbt werden über tpen, llpen und lfpen, wenn das gemeint ist.
    Zu faul für eine gscheite Signatur

    Kommentar


    • #3
      Re: Einfärben in DRAFT

      Das wollte ich mir sparen.
      Ich möchte eigentlich nur das beim Selektieren (Makro) die bereits hinzugefügten GLABs z.B. ROT werden.
      Wenn das Programm fertig ist sollen sie wieder ganz normal (wie über die Pens definiert) dargestellt werden.
      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


      • #4
        Re: Einfärben in DRAFT

        Ich freu mich gerade richtig wieder mal helfen zu können
        versuche mal
        Code:
        enhance id@ oder enhance ce
        oder mit =refno geht es auch.
        Zu faul für eine gscheite Signatur

        Kommentar


        • #5
          Re: Einfärben in DRAFT

          Danke, funktioniert ausgezeichnet.

          Ich wollte es mit unterschiedlicher Farbzuweisung machen, das dürfte aber anscheinend in Draft nicht funktioniern.
          Code:
          ENHANCE CE COL 2
          Geht nur in Design.

          Aber besser als "an Stoa am Schädl"
          THX
          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


          • #6
            Re: Einfärben in DRAFT

            Ich bin nicht sicher was brauchst du,
            aber in draft kann man auch einfarben GLAB SLAB usw.
            Dies Code für Delete in Draft
            -----

            Code:
            tex = ARRAY()
            label /IDENTIFY_TEXP
              prompt off
              prompt load escape 'Identify element to be deleted or -Escape-'
              id ldim texp glab slab stra symb adim @
              handle (61,528)
              prompt on
              elsehandle none
              var !typ type
              if (|$!typ| eq |GLAB|) or (|$!typ| eq |SLAB|) then
              tpen 11
              endif
              if (|$!typ| eq |TEXP|) then
              font 15
              tpen 11
              endif
              if (|$!typ| eq |LDIM|) or (|$!typ| eq |ADIM|) then
              dfont 22
              endif
              if (|$!typ| eq |STRA|) then
              nlpen 11
              endif
            
              !tex.append(STRING(REF))
            golabel /IDENTIFY_TEXP
              endhandle
              prompt dismiss
              prompt on
            !NUMtex=!tex.Size()
            do !Line FROM 1 TO $!NUMtex
            $!tex[$!Line]
            var !type type
            delete $!type
            enddo
            !tex.clear()

            Kommentar


            • #7
              Re: Einfärben in DRAFT

              Hi Sergey,

              danke für die Idee.
              Da es nur um ein temporäres einfärben geht, war mir der Aufwand über die Pens zu groß,
              da nach der Prozedur ja wieder alles wieder den ursprünglichen Pen haben sollte.
              Enhance is gut.

              Ich schreib nur ein kleines Tool um Label alignen zu können.
              Ich wollte dem "Ursprungs Label" eine andere Farbe als den zu alignenden Labels.
              Ist nur "Schönheit", kein muß.

              Danke an Alle!
              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


              • #8
                Re: Einfärben in DRAFT

                Zitat von aequitas
                Hi Sergey,



                Ich schreib nur ein kleines Tool um Label alignen zu können.
                Ich wollte dem "Ursprungs Label" eine andere Farbe als den zu alignenden Labels.
                Ist nur "Schönheit", kein muß.

                Danke an Alle!
                Reicht Dir das Label Placement von PDMS da nicht aus? Klar kann man dort nicht auf ein vorhandenes Label reverenzieren aber ich find die Funktion an sich recht brauchbar, zumindest bleibt der Bereich frei so wie man sich das aussucht und die Labels überschneiden sich nicht mehr.
                Zu faul für eine gscheite Signatur

                Kommentar


                • #9
                  Re: Einfärben in DRAFT

                  Hab ich schon versucht solche macro zuschreiben
                  wenn du was bessere hast, kannst du uns auch zu schenken.

                  Code:
                  -----------------------------------macro für align glabs texp by x 
                  !tex = ARRAY()
                  !lab = ARRAY()
                  --############
                  prompt off
                  prompt load escape 'Select source object Texp or Glab or Slab:'
                  id texp glab slab @
                  var !tpenori tpen
                  var !ref ref
                  tpen 99
                  var !just justification
                  refresh
                  var !type type
                  --##############
                  if (|$!type| eq |TEXP|) then
                  var !xypos pdefi
                  !xyq = !xypos.split()
                  !xyq[4]=string($!xyq[4],'d0')
                  golabel/IDENTIFY_TEXP
                  endif
                  -------------------------------SLAB and GLAB
                  if (|$!type| eq |SLAB|) or (|$!type| eq |GLAB|) then 
                  OSET F
                      HANDLE ANY
                      ENDHANDLE
                      !XYPOS = XYPOS
                      !X = !XYPOS.EAST
                  --  !Y = !XYPOS.NORTH
                      golabel/IDENTIFY_lab
                  endif
                  
                  $*-----------------------
                  label /IDENTIFY_TEXP
                    prompt off
                    prompt load escape 'Select destination object(s) TEXP. ESC for enter'
                    id texp @
                    handle (61,528)
                      prompt on
                    elsehandle none
                  
                  --******************
                  var !tpenold tpen
                  var !fontold font
                  --tpen 99
                  font 15
                  --******************
                      !tex.append(STRING(REF))
                      golabel /IDENTIFY_TEXP
                      endhandle
                    prompt dismiss
                    prompt on
                  !NUMtex=!tex.Size()
                  do !Line FROM 1 TO $!NUMtex
                  $!tex[$!Line]
                  var !xyori pdefi
                  !xyori1 = !xyori.split()
                  Origin Offset X $!xyq[4] Y $!xyori1[6]
                  tpen $!tpenold
                  font $!fontold
                  just $!just
                  refresh
                  enddo
                  !tex.clear()
                  golabel/end
                  
                  $*-----------------------
                  label /IDENTIFY_lab
                    prompt off
                    prompt load escape 'Select destination object(s) GLAB or SLAB. ESC for enter'
                    id glab slab @
                    handle (61,528)
                      prompt on
                    elsehandle none
                  --******************
                  var !tpenold tpen
                  var !fontold font
                  --tpen 99
                  font 15
                  refresh
                  --******************
                      !lab.append(STRING(REF))
                      golabel /IDENTIFY_lab
                      endhandle
                    prompt dismiss
                    prompt on
                  !NUMlab=!lab.Size()
                  do !Line FROM 1 TO $!NUMlab
                  $!lab[$!Line]
                      HANDLE ANY
                      ENDHANDLE
                  OSET F
                  !xypos1 = xypos
                  !x1 = !xypos1.EAST
                  !y1 = !xypos1.NORTH
                  Xypos $!X $!y1
                  just $!just
                  tpen $!tpenold
                  font $!fontold
                  refresh
                  enddo
                  !lab.clear()
                  golabel/end
                  $*-----------label end
                  label/end
                  $!ref
                  tpen $!tpenori
                  refresh
                  end
                  Code:
                  --------------------------macro für align glabs texp by y
                  --------------------------
                  
                  
                  !tex = ARRAY()
                  !lab = ARRAY()
                  --############
                  prompt off
                  prompt load escape 'Select source object Texp or Glab or Slab:'
                  id texp glab slab @
                  var !tpenori tpen
                  var !ref ref
                  var !just justification
                  tpen 99
                  refresh
                  var !type type
                  --##############
                  if (|$!type| eq |TEXP|) then
                  var !xypos pdefi
                  --var !just justification
                  !xyq = !xypos.split()
                  !xyq[6]=string($!xyq[6],'d0')
                  golabel/IDENTIFY_TEXP
                  endif
                  -------------------------------SLAB and GLAB
                  if (|$!type| eq |SLAB|) or (|$!type| eq |GLAB|) then 
                  OSET F
                      HANDLE ANY
                      ENDHANDLE
                      !XYPOS = XYPOS
                   --   !X = !XYPOS.EAST
                   !Y = !XYPOS.NORTH
                      --OSET T
                      golabel/IDENTIFY_lab
                  endif
                  
                  $*-----------------------
                  label /IDENTIFY_TEXP
                    prompt off
                    prompt load escape 'Select destination object(s) TEXP. ESC for enter'
                    id texp @
                    handle (61,528)
                      prompt on
                    elsehandle none
                  
                  --******************
                  var !tpenold tpen
                  var !fontold font
                  --tpen 99
                  font 15
                  --******************
                      !tex.append(STRING(REF))
                      golabel /IDENTIFY_TEXP
                      endhandle
                    prompt dismiss
                    prompt on
                  !NUMtex=!tex.Size()
                  do !Line FROM 1 TO $!NUMtex
                  $!tex[$!Line]
                  var !xyori pdefi
                  !xyori1 = !xyori.split()
                  Origin Offset X $!xyori1[4] Y $!xyq[6]
                  tpen $!tpenold
                  font $!fontold
                  just $!just
                  refresh
                  enddo
                  !tex.clear()
                  golabel/end
                  
                  $*-----------------------
                  label /IDENTIFY_lab
                    prompt off
                    prompt load escape 'Select destination object(s) GLAB or SLAB. ESC for enter'
                    id glab slab @
                    handle (61,528)
                      prompt on
                    elsehandle none
                  --******************
                  --var !tpenold tpen
                  var !fontold font
                  --tpen 99
                  font 15
                  refresh
                  --******************
                      !lab.append(STRING(REF))
                      golabel /IDENTIFY_lab
                      endhandle
                    prompt dismiss
                    prompt on
                  !NUMlab=!lab.Size()
                  do !Line FROM 1 TO $!NUMlab
                  $!lab[$!Line]
                      HANDLE ANY
                      ENDHANDLE
                  OSET F
                  !xypos1 = xypos
                  !x1 = !xypos1.EAST
                  !y1 = !xypos1.NORTH
                  Xypos $!x1 $!Y
                  --tpen $!tpenold
                  font $!fontold
                  just $!just
                  refresh
                  enddo
                  !lab.clear()
                  golabel/end
                  $*-----------label end
                  label/end
                  $!ref
                  tpen $!tpenori
                  refresh
                  end
                  -------------------------------
                  -------------------------------
                  schreib ob es funktioniert
                  mfg
                  sergey

                  Kommentar


                  • #10
                    Re: Einfärben in DRAFT

                    Uns interessiert nur Y Ausrichtung, und so siehts aus:

                    Code:
                    define method .alignlab()
                      
                      !glab = array()
                      
                      $P Identify origin GLAB !
                    
                      id GLAB @
                      handle(61,528)
                        $!this.view
                        return
                      endhandle
                      !origin = !!ce
                      enhance ce
                      
                      $P Identify GLABs to align !
                      
                      do !i
                        id GLAB @
                        handle(61,528)
                          $!this.view
                          break
                        endhandle
                        !glab.append(|$!!ce.refno|)
                        enhance ce
                      enddo
                      
                      !glab.sort().unique()
                      
                      if !glab.size() eq 0 then
                        unenhance all
                        return
                      endif
                      
                      !xori = !origin.ddnmxy[1] + !origin.xyposition.east
                      handle(2,231)
                        !!alert.error(|DDNA not valid for origin GLAB!|)
                        unenhance all
                        return
                      endhandle
                      do !i index !glab
                        $!glab[$!i]
                        !xlab = !!ce.ddnmxy[1] + !!ce.xyposition.east
                        handle(2,231)
                          $P DDNA not valid for GLAB! -- Ignored
                          skip
                        endhandle
                        !off = !xori - !xlab
                        BY X $!off
                        UPDATE CE
                      enddo
                    
                      unenhance all
                      $!this.view
                      
                    endmethod
                    "!this.view" ist die aktuelle View und wird beim Aufruf des Programms gesetzt.
                    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


                    • #11
                      Re: Einfärben in DRAFT

                      Hallo Aequitas,

                      Danke für Macro
                      Kompakt und gut.

                      Gruss
                      sergey

                      Kommentar

                      Lädt...
                      X