jp.wikiwiki.aiou_replacePathObjectsInteractively

(define (jp_wikiwiki_aiou_replacePathObjectsInteractively)
  (letseq
    ; targets に path を入れる
    ((targets (setof o (geGetSelectedSet) (equal "path" o~>objType))))
    (geDeselectAll)
    (geSelectArea (hiGetCurrentWindow)
      (enterBox ?prompts (list "Select area where changing paths exist."))
    )
    (let
      ; sources に path を入れる
      ((sources (setof o (geGetSelectedSet) (equal "path" o~>objType))))
      (while (and targets sources)
        ((car sources)~>points = (car targets)~>points)
        ((car sources)~>width  = (car targets)~>width )
        (dbDeleteObject (car targets))
        (setq targets (cdr targets))
        (setq sources (cdr sources))
      )
    )
  )
)