Date: Thu, 27 Mar 2014 23:48:03 +0400
From: Vladimir Zhbanov <vzhbanov AT gmail DOT com>
To: geda-help AT delorie DOT com
Subject: Re: [geda-help] how2 change pinlabel of a symbol in a schematic
Message-ID: <20140327194803.GB24939@localhost.localdomain>
Mail-Followup-To: geda-help AT delorie DOT com
References: <1395860707 DOT 4192 DOT 9 DOT camel AT micky>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="YiEDa0DAkWCtVeE4"
Content-Disposition: inline
In-Reply-To: <1395860707.4192.9.camel@micky>
User-Agent: Mutt/1.5.21 (2010-09-15)
Reply-To: geda-help AT delorie DOT com
Errors-To: nobody AT delorie DOT com
Precedence: bulk


--YiEDa0DAkWCtVeE4
Content-Type: text/plain; charset=utf-8
Content-Disposition: inline

On Wed, Mar 26, 2014 at 08:05:07PM +0100, Kurt Burger wrote:
>    Dear community,
>    I designed a 8-pin 1 row connector as a symbol in gschem. I defined the
>    pinlabels from 1-8.
>    After putting this connector (symbol) into my new schematic I want to
>    change some pinlabels, eg pinlabel pin 1 change pinlabel from "1" to
>    "12V".
>    I've no glue how to do it. I do now want to change the original symbol.
>    I spent already hours in searching but without result.
>    Any ideas are very welcome.
>    Kurt

You can use attached Scheme script. It should work for unstable
and, I hope, stable versions of gschem. See comments on how to use
it in the file itself.

--YiEDa0DAkWCtVeE4
Content-Type: text/plain; charset=utf-8
Content-Disposition: attachment; filename="rename.scm"

; This script contains a procedure to change pin attributes of a
; component.
;
; Usage:
;   (change-attrib-value "attrib-name" "old-value" "new-value")
;
; Details:
;   Place this file into the directory where your schematics
;     resides.
;   Open gschem and hit ':' (colon).
;   Type '(load "rename.scm")' (without outer quotes).
;   You can add the above command into one of your gafrc files to do
;     this automatically everytime gschem is run. To make it work,
;     place the file into the directory where the gafrc file
;     resides.
;
;   Then, everytime you want to rename some attributes do as
;   follows:
;     select the symbol(s) in question;
;     embed it hitting E B if it is not yet embedded;
;     hit ':' and type something like
;      (change-attrib-value "pinlabel" "1" "Vcc")
;
;   NOTE: ALL pin attributes with the given name and value will be
;   changed for ALL selected components.
(use-modules (geda object))
(use-modules (geda attrib))
(use-modules (gschem selection))

(define (change-attrib-value name old-value new-value)
 (for-each
  (lambda (obj)
    (if (component? obj)
      (for-each
        (lambda (primitive)
          (if (pin? primitive)
            (for-each
              (lambda(attr)
                (and
                  (attribute? attr)
                  (equal? (attrib-name attr) name)
                  (equal? (attrib-value attr) old-value)
                  (set-attrib-value! attr new-value)
                  (gschem-log (string-append
                                name ": "
                                old-value " -> " new-value
                                "\n"))
                  ))
              (object-attribs primitive))
            )
          )
        (component-contents obj)
        )
      )
    )
  (page-selection (active-page))))

--YiEDa0DAkWCtVeE4--