2 返信 最新の回答 日時: Nov 17, 2004 3:27 PM ユーザー:(yuukirin)

    StrokeDashAndGapの設定について

      はじめまして、ゆうきりんともうします。

      只今、ID2.02、VB6.0にてスクリプトを書いているのですが「StrokeDashAndGap」の値を設定することができません。
      スクリプトの一部を掲載いたしますので、
      問題点をご指摘いただけないでしょうか。

      Set objline(2) = rightMaster.Lines.Add
      objline(2).StrokeWeight = 0.5
      objline(2).GeometricBound = Array(8, 79, 76.5, 79)
      objline(2).StrokeColor = MsjDocument.Swatches.Item(5)
      objline(2).StrokeDashAndGap = Array(1.5, 1.5)

      ※「StrokeDashAndGap」の行以外の部分は、正常に動作しています。
      ※スクリプティングガイドを読んでArrayで設定しているのですがココが問題点でしょうか?

      サンプルスクリプトが豊富なサイトもご存知でしたら、ご紹介いただけると大変助かります。
        • 1. Re: StrokeDashAndGapの設定について
          Level 1
          ゆうきりんさん、はじめまして。

          まず、
          ‘StrokeDashAndGap’メソッドは失敗しました:‘Rectangle’オブジェクト
          と表示されましたか?
          そうであれば、
          objline(2).StrokeDashAndGap = Array(1.5, 1.5)
          の前の行に
          objline(2).StrokeType = idDashed
          と入れてください。線種が「ベタ」のままだと思います。
          動かなかったら、どういうエラーなのか記述して下さい。エラーメッセージで解決できることもありますので。
          • 2. Re: StrokeDashAndGapの設定について
            Level 1
            流星さん、はじめまして。

            レスありがとうございます。

            教えていただいた。
            objline(2).StrokeType = idDashed 行を追加すると無事に設定することができました。

            エラーメッセージは、
            『‘StrokeDashAndGap’メソッドは失敗しました:‘Line’オブジェクト』と表示されていたのですが解決法がわかりませんでした。

            今回の場合は
            ・Indesignの「線」ウインドウの動作の観察
            ・スクリプティングガイド"Line"全項目の関係性などを考えながら精読をすればよかったのですね。

            勉強になりました。
            ありがとうございました!!