CAD支援ソフト探索2

プリント基板設計CAD(P-CAD/AltiumDesigner)にSolidoworksを併用

スポンサーサイト

--:-- ...Posted

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

VCC、GND配置のスクリプト

前の記事の続きで
SCHで電源関連のポート配置をするスクリプトを記述してみました。

特に問題なく動作しています。
プロジェクトファイルはこれら複数のスクリプトを統括する形にしています。

カスタマイズ画面でメニューのどこかに登録すれば使いやすくなります。
実務では電源の呼び名によって種類が多くなるのが難点かもしれません。




矢印タイプの+12Vのスクリプト
PlacePP_A_P12V.pas
****************************************************
Procedure PlacePP_A_P12V();
Var
   CurrentSheet    : ISch_Document;

Begin
   If SchServer = Nil Then Exit;

   CurrentSheet := SchServer.GetCurrentSchDocument;
   If CurrentSheet = Nil Then Exit;

{ Set  ------------------------------------}
   ResetParameters;
   AddStringParameter('Orientation','1');
   AddStringParameter('S','+12V');

{Style: Arrow}
   AddStringParameter('Style','1');
   AddStringParameter('Repeat','True');

   RunProcess('Sch:PlacePowerPort');

End;
****************************************************




矢印タイプの-5Vのスクリプト
PlacePP_A_N5V.pas
****************************************************
Procedure PlacePP_A_N5V();
Var
CurrentSheet : ISch_Document;

Begin
If SchServer = Nil Then Exit;

CurrentSheet := SchServer.GetCurrentSchDocument;
If CurrentSheet = Nil Then Exit;

{ Set ------------------------------------}
ResetParameters;
AddStringParameter('Orientation','3');
AddStringParameter('S','-5V');

{Style: Arrow}
AddStringParameter('Style','1');
AddStringParameter('Repeat','True');

RunProcess('Sch:PlacePowerPort');

End;
****************************************************




Power GroundタイプのGNDAのスクリプト
PlacePP_P_GNDA.Pas
****************************************************
Procedure PlacePP_P_GNDA();
Var
CurrentSheet : ISch_Document;

Begin
If SchServer = Nil Then Exit;

CurrentSheet := SchServer.GetCurrentSchDocument;
If CurrentSheet = Nil Then Exit;

{ Set ------------------------------------}
ResetParameters;
AddStringParameter('Orientation','3');
AddStringParameter('S','GNDA');

{Style: Power Ground}
AddStringParameter('Style','4');
AddStringParameter('Repeat','True');

RunProcess('Sch:PlacePowerPort');

End;
****************************************************
スポンサーサイト

Post comment

管理者にだけ表示を許可する

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。