【Mac.Win】VectorWorks Club2ちゃんねる【その13】

【Mac.Win】VectorWor ..

268:260
12/12/14 21:42:47.37 .net
>>267
スクリプト作った。
バージョンが合うかどうかわからないけど試してみて。
こっちはv2011だけどちゃんと動作した。

スクリプトを実行すると、直線ツールになるので、任意の2点間に線を引く。
後は自動的にその中点に2D基準点を作成して、始めに作成した直線を削除してくれる。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

{任意の2点の中点に2D基準点を作成}
PROCEDURE CustomScript;
VAR
{代入}
ha:HANDLE;
{CallTool}
index:INTEGER;
{HCenter}
xa:REAL;
ya:REAL;
{Locus}
x,y:REAL;

BEGIN
CallTool(-201);{ツールを選択（終了後前ツール）：直線}
ha:=FSActLayer;{選択最上位ハンドル返。無し：NIL返}
HCenter(ha,xa,ya);{ハンドル指定図形の中心の座標を返すREAL}
DeleteObjs;{アクティブレイヤ上選択図形削除}
Locus(xa,ya);{2D基準点を作成}
END;
RUN(CustomScript);

次ページ

続きを表示

1を表示