Jw_cad作者さんのサイトの掲示板で以下のような質問がありました。
真四角の図形に対して、複線を4種類書きたいです。
1 離れ100、線種1、色2、レイヤー2
2 1+100離れ、線種3、色2、レイヤー1
3 2+300離れ、線種1、色3、レイヤー3
4 3からの離れ 任意で書き込み、線種5、色3、レイヤー4
任意の離れ寸法打ち込み 真四角の左上と右下を指示すればできると思うのですが、素人でして全く欠けませんでした。同じ作業を何度も繰り返すのですが、どなたか教えていただけませんでしょうか?
http://hpcgi2.nifty.com/jw_cad/c-board.cgi?cmd=ntr;tree=17992;id=003
複線な外部変形は私も作ってますが、
http://p-cata.from.tv/jwwgapp/p138.html
とか

でも、レイヤーの指定っていうのは入れてないですね。
結構、特殊っぽい。
それと、任意で書き込み?
いや、外部変形的には、1も2も3も、任意で入力させるだろう、普通。
複線間隔が、100、200、500、って固定値な外部変形ということ自体が、汎用的に作ろうとする外部変形では、有り得ない。その人のその用途だけにしか使えない。そんな超特注品的外部変形アプリを一般公開なんてのはしないと思う。頼まれて作るとしても、任意入力できるようにしておいて、最初に設定しといてね、で済ましてしまうと思います。(仕事=外注ソフトとして受けるんであれば別ですけど)

どうでしょ?

その最初の真四角の図形、という時点から
「script!」で作ってしまったほうが早いかも。
真四角の複線なのだから、合計5個の真四角だよね?
それだったら↓こんな感じ?
// 5真四角
#VAR
 lay0 = 0  ;*基本四角のレイヤ
 col0 = 1  ;*基本四角の線色
 typ0 = 1  ;*基本四角の線種
 siz = 1000 ;*基本四角の大きさ

 lay1 = 2  ;*四角1のレイヤ
 col1 = 2  ;*四角1の線色
 typ1 = 1  ;*四角1の線種
 dst1 = 100 ;*四角1の距離間隔

 lay2 = 1  ;*四角2のレイヤ
 col2 = 2  ;*四角2の線色
 typ2 = 3  ;*四角2の線種
 dst2 = 100 ;*四角2の距離間隔

 lay3 = 3  ;*四角3のレイヤ
 col3 = 3  ;*四角3の線色
 typ3 = 1  ;*四角3の線種
 dst3 = 300 ;*四角3の距離間隔

 lay4 = 4  ;*四角4のレイヤ
 col4 = 3  ;*四角4の線色
 typ4 = 5  ;*四角4の線種
 dst4 = 100 ;*四角4の距離間隔

 s
 x1
 y1
 x2
 y2

#DRAW
 // 基本四角
 LAYER lay0
 PEN col0,typ0,0
 CAL s = siz/2
 CAL x1 =-s
 CAL y1 =-s
 CAL x2 = s
 CAL y2 = s
 BOX x1,y1,x2,y2

 // 四角1
 LAYER lay1
 PEN col1,typ1,0
 CAL s = siz/2 + dst1
 CAL x1 =-s
 CAL y1 =-s
 CAL x2 = s
 CAL y2 = s
 BOX x1,y1,x2,y2

 // 四角2
 LAYER lay2
 PEN col2,typ2,0
 CAL s = siz/2 + dst1 + dst2
 CAL x1 =-s
 CAL y1 =-s
 CAL x2 = s
 CAL y2 = s
 BOX x1,y1,x2,y2

 // 四角3
 LAYER lay3
 PEN col3,typ3,0
 CAL s = siz/2 + dst1 + dst2 + dst3
 CAL x1 =-s
 CAL y1 =-s
 CAL x2 = s
 CAL y2 = s
 BOX x1,y1,x2,y2

 // 四角4
 LAYER lay4
 PEN col4,typ4,0
 CAL s = siz/2 + dst1 + dst2 + dst3 + dst4
 CAL x1 =-s
 CAL y1 =-s
 CAL x2 = s
 CAL y2 = s
 BOX x1,y1,x2,y2
実行結果
20110203a

     ↓
20110203b

みたいな

■GOOD JOB!
この記事よいネ!クリック!→