（旧版）鍋ＣＡＤスクリプト投稿専用

（旧版）鍋ＣＡＤスクリプト投稿専用

現在投稿は禁止されています。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

[275] スクリプトを使ってのスクリプトを使っての２.５Ｄプログラム-----１６作目です - 2012/02/06(Mon) 15:56

275.lzh スクリプトを使っての２.５Ｄプログラム-----１６作目です

　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面111_2-PL-he_V-C2.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(111_2-PL-he_V-C2)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

274.lzh スクリプトを使っての２.５Ｄプログラム-----１５作目の訂正です

　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面111_1-PL-he_H-C2.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(111_1-PL-he_H-C2)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

[273] スクリプトを使っての２.５Ｄプログラム-----１４作目の訂正です - 2012/02/06(Mon) 15:54

273.lzh スクリプトを使っての２.５Ｄプログラム-----１４作目の訂正です

　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面110_2-PL-to_V-C2.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(110_2-PL-to_V-C2)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

[272] スクリプトを使っての２.５Ｄプログラム-----１３作目です - 2012/02/06(Mon) 15:53

272.lzh スクリプトを使っての２.５Ｄプログラム-----１３作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面110_1-PL-to_H-C2.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(110_1-PL-to_H-C2)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

271.lzh スクリプトを使っての２.５Ｄプログラム-----１２作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面106-11-C1-ZR1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(106-11-C1-ZR1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

270.lzh スクリプトを使っての２.５Ｄプログラム-----１１作目の訂正です

　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面105-13-S2S2CR-ZS1S1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(105-13a-S2S2CR-ZS1S1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

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

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

 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

255.lzh スクリプトを使っての２.５Ｄプログラム-----11作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面105-13-S2S2CR-ZS1S1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(105-13-S2S2CR-ZS1S1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

254.lzh スクリプトを使っての２.５Ｄプログラム-----10作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面105-12-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(105-12-S2S2CR-ZS1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

253.lzh スクリプトを使っての２.５Ｄプログラム-----9作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面105-11-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(105-11-S2S2CR-ZS1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

252.lzh スクリプトを使っての２.５Ｄプログラム-----８作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面104-13-S2S2CR-ZS1S1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(104-13-S2S2CR-ZS1S1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

251.lzh スクリプトを使っての２.５Ｄプログラム-----７作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面104-12-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(104-12-S2S2CR-ZS1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

250.lzh スクリプトを使っての２.５Ｄプログラム-----６作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面104-11-S2S2CR-ZS1.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(104-11-S2S2CR-ZS1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

249.lzh スクリプトを使っての２.５Ｄプログラム-----５作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面103-S2S2-ZS2.dg7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(103-S2S2-ZS2)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

248.lzh スクリプトを使っての２.５Ｄプログラム-----４作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面102-3-R2S2-ZR1.DG7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(102-3-R2S2-ZR1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

247.lzh スクリプトを使っての２.５Ｄプログラム-----３作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面102-2-C2S2-ZS1.DG7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(102-2-C2S2-ZS1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

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

246.lzh スクリプトを使っての２.５Ｄプログラム-----２作目です
　①ＤＧ７ファイルをＤＲＡＷフォルダ内に貼り付けて下さい（ＤＲＡＷフォルダの下にフォルダを作成して貼り付けても可）。
　　ＤＧ７ファイルにプログラムのために作図した図形がはいっています。
　②ＢＭＰファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい。（下のフォルダでは不可）。
　③ＰＡＳファイルをＳＣＲＩＰＴフォルダ内に貼り付けて下さい（ＰＡＳファイルはＳＣＲＩＰＴフォルダの下にフォルダを作成して貼り付けても可）。
　④ＤＡＴファイルは　図面102-1-C2S2-ZS1.DG7 にある数値を実行した結果です。
　⑤実行方法
　　　スクリプト　→読み込み(102-1-C2S2-ZS1)　→実行 →ツールバーのエディタにＮＣ →（ツールバー）名前を付けて保存

- ClipBoard -