(旧版)鍋CADスクリプト投稿専用
  • 現在投稿は禁止されています。

  • [トップに戻る] [ワード検索] [管理用]

    [285] 注記オフセット - 2013/03/04(Mon) 17:12  

    Download:285.zip 285.zip 管理人さんの右寄せを更に改造して横文字専用ですが注記オフセットを作ってみました。
    注記の基準点に文字列の何処のポイントで移動させるかと言うものです。

    使い方の例としては円の中心に文字列を移動させたい場合に使えるとおもいます。

    ラジオボタン機能が無いのでチェックボックスで代用してます。
    また初めて作ったので改良の余地はかなりあると思います^^;



    [284] 注記中寄せ - 2013/03/04(Mon) 10:58  

    Download:284.zip 284.zip 管理人さんに作っていただいた右寄せを改造して
    中寄せ(センタリング)に小改造してみました。



    [283] 注記右寄せ - 2013/03/02(Sat) 10:19  

    Download:283.zip 283.zip 基準になる直線を基準に注記を右寄せします。(修正版)
    センタリングとかも応用が出来ますので、改造してみて下さい。



    [281] 作図線の削除プログラム - 2013/02/26(Tue) 16:35  

    // 作図線の削除プログラム 2013-02-23

    Program KillSakuzu;
    var
    i, Page, Layer, EType, LType, LColor, LWidth : integer;
    v1, v2, v3, v4, v5 : double;
    begin
    for i:=0 to GetMax-1 do
    begin
    if GetPageLayer(i, page, layer) then
    if page = GetActivePage() then
    if layer = GetActiveLayer() then
    if GetEntitie(i, EType, LType, LColor, LWidth, v1, v2, v3, v4, v5) then
    if EType < 4 then
    if LType = 6 then // 作図線
    Erase(i); // 消す
    end;
    end.



    [280] 作図5点セット - 2012/12/06(Thu) 11:14  

    Download:280.zip 280.zip 添付し忘れてました。


    [279] 作図5点セット - 2012/12/05(Wed) 17:24  

    スクリプトタブの所だけで、絵を書ければなとと
    思い作ってみました。スクリプトをあまり理解せずにつくってますので改良点はかなりあると思います。

    何方かもっと使い易くして頂けるとありがたいです。



    [277] 桁変更 - 2012/06/06(Wed) 18:30  

    Download:277.zip 277.zip アクティブなページの要素を桁変更後に新規のページに書き換えます。桁数の変更はスクリプトの5行目を書き換えて下さい。

    Program DigitDown;
    const
    fac = 0.0001; // 桁係数:任意の桁数に書き換えて下さい。



    [276] 長さ指定の直線 - 2012/02/29(Wed) 05:58  

    Download:276.zip 276.zip 開始座標と角度及び長さを指定してのの直線作図例です。


    [275] スクリプトを使ってのスクリプトを使っての2.5Dプログラム-----16作目です - 2012/02/06(Mon) 15:56  

    Download:275.lzh 275.lzh スクリプトを使っての2.5Dプログラム-----16作目です

     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面111_2-PL-he_V-C2.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(111_2-PL-he_V-C2) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [274] スクリプトを使っての2.5Dプログラム-----15作目の訂正です - 2012/02/06(Mon) 15:55  

    Download:274.lzh 274.lzh スクリプトを使っての2.5Dプログラム-----15作目の訂正です

     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面111_1-PL-he_H-C2.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(111_1-PL-he_H-C2) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [273] スクリプトを使っての2.5Dプログラム-----14作目の訂正です - 2012/02/06(Mon) 15:54  

    Download:273.lzh 273.lzh スクリプトを使っての2.5Dプログラム-----14作目の訂正です

     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面110_2-PL-to_V-C2.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(110_2-PL-to_V-C2) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [272] スクリプトを使っての2.5Dプログラム-----13作目です - 2012/02/06(Mon) 15:53  

    Download:272.lzh 272.lzh スクリプトを使っての2.5Dプログラム-----13作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面110_1-PL-to_H-C2.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(110_1-PL-to_H-C2) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [271] スクリプトを使っての2.5Dプログラム-----12作目です - 2012/02/06(Mon) 15:52  

    Download:271.lzh 271.lzh スクリプトを使っての2.5Dプログラム-----12作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面106-11-C1-ZR1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(106-11-C1-ZR1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [270] スクリプトを使っての2.5Dプログラム-----11作目の訂正です - 2012/02/06(Mon) 15:14  

    Download:270.lzh 270.lzh スクリプトを使っての2.5Dプログラム-----11作目の訂正です

     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面105-13-S2S2CR-ZS1S1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(105-13a-S2S2CR-ZS1S1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [269] 四角形パック - 2012/01/14(Sat) 19:28  

    Download:269.lzh 269.lzh 中心指定の四角.PASとサイズ指定の四角.PASが入っています。
    過去に高機能なスクリプトを投稿頂いていますが、入門用のシンプルな物です。



    [268] G95挿入 - 2011/07/09(Sat) 16:24  

    Download:268.lzh 268.lzh G84の前の行にG95を挿入するスクリプトです。

    以下の拡張手続きを使用する為に、Ver7.76以降でないと動きません。
    procedure EditorInsert(n:Integer, s:String); は、内蔵エディタの指定行(n)に文字列を挿入します。
    procedure EditorDelete(n:Integer); は、内蔵エディタの指定行(n)を削除します。



    [267] 周長指定の弧 - 2011/05/12(Thu) 09:56  

    Download:267.lzh 267.lzh 中心点と半径及び周長指定による弧の作図サンプルです。
    いろいろと改造しいてみて下さい。



    [266] 円トラップ(修正済み) - 2011/03/04(Fri) 18:22  

    Download:266.lzh 266.lzh Ver7.71より実装された SetTrap() の応用で、円のみトラップします。


    [265] 刻印反転文字 - 2011/01/18(Tue) 13:03  

    Download:265.zip 265.zip 初めまして、もぎゃと申します。

    以前こちらにUPされておりました、
    『刻印文字の作図とNCデータ』を、
    反転化+改行出来る様にしてみました。

    一通り確認は致しましたが・・・(; ̄ー ̄A
    不具合が有るかも知れませんので、
    使われる方は各自チェック願います。



    [264] 重複注記の削除 - 2010/10/06(Wed) 18:37  

    Download:264.lzh 264.lzh 重複注記の削除スクリプトを作ってみましたので、使ってみて下さい。
    内容をご覧になれば、鍋CADスクリプトは、レコード及び動的配列をもサポートする
    本格的な言語だと言う事がお解りになると思います。



    [262] 精度補正 - 2010/09/25(Sat) 10:28  

    Download:262.lzh 262.lzh DXF等で読み込んだデータを百分台で丸めるスクリプトです。
    今のところ穴位置(円の座標)のみですが、必要に応じて改造して下さい。
    CADのデータベースへのアクセス方法のサンプルにもなると思います。



    [259] 長穴スクリプト(中心間指定) - 2010/09/17(Fri) 13:10  

    Download:259.lzh 259.lzh スクリプトに付いている長穴についてですが、自分は設計ではないのでわかりませんが、
    長穴のスクリプトの場合RとRの交点の長さをLで決めますが、RとRの中心をLで表した方が使い易いと思います。
    自分はその使用にスクリプトをいじって使っています。いじった時の絵も自分で作成しました。



    [255] スクリプトを使っての2.5Dプログラム-----11作目です - 2010/04/11(Sun) 11:34  

    Download:255.lzh 255.lzh スクリプトを使っての2.5Dプログラム-----11作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面105-13-S2S2CR-ZS1S1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(105-13-S2S2CR-ZS1S1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [254] スクリプトを使っての2.5Dプログラム-----10作目です - 2010/04/11(Sun) 11:33  

    Download:254.lzh 254.lzh スクリプトを使っての2.5Dプログラム-----10作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面105-12-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(105-12-S2S2CR-ZS1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [253] スクリプトを使っての2.5Dプログラム-----9作目です - 2010/04/11(Sun) 11:32  

    Download:253.lzh 253.lzh スクリプトを使っての2.5Dプログラム-----9作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面105-11-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(105-11-S2S2CR-ZS1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [252] スクリプトを使っての2.5Dプログラム-----8作目です - 2010/04/01(Thu) 15:24  

    Download:252.lzh 252.lzh スクリプトを使っての2.5Dプログラム-----8作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面104-13-S2S2CR-ZS1S1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(104-13-S2S2CR-ZS1S1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [251] スクリプトを使っての2.5Dプログラム-----7作目です - 2010/04/01(Thu) 15:23  

    Download:251.lzh 251.lzh スクリプトを使っての2.5Dプログラム-----7作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面104-12-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(104-12-S2S2CR-ZS1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [250] スクリプトを使っての2.5Dプログラム-----6作目です - 2010/04/01(Thu) 15:22  

    Download:250.lzh 250.lzh スクリプトを使っての2.5Dプログラム-----6作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面104-11-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(104-11-S2S2CR-ZS1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [249] スクリプトを使っての2.5Dプログラム-----5作目です - 2010/04/01(Thu) 15:21  

    Download:249.lzh 249.lzh スクリプトを使っての2.5Dプログラム-----5作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面103-S2S2-ZS2.dg7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(103-S2S2-ZS2) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [248] スクリプトを使っての2.5Dプログラム-----4作目です - 2010/03/20(Sat) 11:10  

    Download:248.lzh 248.lzh スクリプトを使っての2.5Dプログラム-----4作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面102-3-R2S2-ZR1.DG7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(102-3-R2S2-ZR1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [247] スクリプトを使っての2.5Dプログラム-----3作目です - 2010/03/20(Sat) 11:09  

    Download:247.lzh 247.lzh スクリプトを使っての2.5Dプログラム-----3作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面102-2-C2S2-ZS1.DG7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(102-2-C2S2-ZS1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    [246] スクリプトを使っての2.5Dプログラム-----2作目です - 2010/03/19(Fri) 15:49  

    Download:246.lzh 246.lzh スクリプトを使っての2.5Dプログラム-----2作目です
     @DG7ファイルをDRAWフォルダ内に貼り付けて下さい(DRAWフォルダの下にフォルダを作成して貼り付けても可)。
      DG7ファイルにプログラムのために作図した図形がはいっています。
     ABMPファイルをSCRIPTフォルダ内に貼り付けて下さい。(下のフォルダでは不可)。
     BPASファイルをSCRIPTフォルダ内に貼り付けて下さい(PASファイルはSCRIPTフォルダの下にフォルダを作成して貼り付けても可)。
     CDATファイルは 図面102-1-C2S2-ZS1.DG7 にある数値を実行した結果です。
     D実行方法
       スクリプト →読み込み(102-1-C2S2-ZS1) →実行 →ツールバーのエディタにNC →(ツールバー)名前を付けて保存



    - ClipBoard -