MaCADの掲示板

こんばんは。

>> 同じく凄くループ欲しい〜。
> そうですね。絶対・・・と言う事で、

絶対って・・・(^^;)助けて〜

> ループがあれば２なんかもっと短くできたのに

確かにそうですね。

> 線種や色、レイヤーは自社用なので変更して使ってみてください。
> 批評お願いします。

批評なんてとんでもないです。

公開有り難うございました。全て頂きました。^^


私も一つ、以下変形データー

#高低差　　　高さは実寸その他は図寸で作図する

input"高低差（mm）"%data1=100

#ハッチPEN_NO
%h_col1=6

#図寸に設定
zusun_set

#高低差100　1/50で図形を作成した
%h_sa1=50/%result_gscale*2

%koteisa1=%data1/%result_gscale

line:6:0:0:0:0:0:0:-1
line:0:0:0:-%koteisa1:0:0:0:-1
line:-6:-%koteisa1:0:-%koteisa1:0:0:0:-1

#ハッチ作図関数
hatch1:-6:-%koteisa1:0:-%koteisa1-%h_sa1:0.5:0.5:45:0:%h_col1:0:-1
hatch1:0:0:6:-%koteisa1-%h_sa1:0.5:0.5:45:0:%h_col1:0:-1

> 同じく凄くループ欲しい〜。
>

そうですね。絶対・・・と言う事で、ループがないのでこんなもの作ってみました。

１．外構図に使う桝を作図するもの
２．桝と桝をつなぐ配水管（L＝４ｍ）
３．Ｕ型側溝

ループがあれば２なんかもっと短くできたのに
ループがなくても３ならできます。#コンクリート桝

input"内法(mm)"%data1=500
input"肉厚(mm)"%data2=100

%px1=%data1*0.5
%px2=%px1+%data2
%px3=-1*%px1
%px4=-1*%px2

%py1=%data1*0.5
%py2=%px1+%data2
%py3=-1*%px1
%py4=-1*%px2

# 2
# 1
# 3
# 4 4 3 1 2

line:%px1:%py3:%px1:%py1:0:5:1:11
line:%px1:%py1:%px3:%py1:0:5:1:11
line:%px3:%py1:%px3:%py3:0:5:1:11
line:%px3:%py3:%px1:%py3:0:5:1:11

line:%px2:%py4:%px2:%py2:0:5:1:11
line:%px2:%py2:%px4:%py2:0:5:1:11
line:%px4:%py2:%px4:%py4:0:5:1:11
line:%px4:%py4:%px2:%py4:0:5:1:11

line:%px3:%py3:%px1:%py1:0:5:1:11
line:%px3:%py1:%px1:%py3:0:5:1:11


#****************************************
#排水管（最大４０ｍまで）

#実寸に設定
ziusun_set

%gpread_x1=-5000
%gpread_x2=5000
%gpread_y1=0
%gpread_y2=0

gpoint_read2

$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%kaku=%result_a

$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%nagasa=%result_a

$atai_marume:%nagasa/4000:4:1
%hon=%result_a-1

%amari=%nagasa-(%hon*4000)
if %amari<0 then
%amari=-1*%amari
endif

#%count=0

#チェック用
#moji:0: 0:0:3:8:0:%kaku:0
#moji:0:-1000:0:3:8:0:%nagasa:0
#moji:0:-2000:0:3:8:0:%hon:0
#moji:0:-3000:0:3:8:0:%amari:0
#moji:0:-4000:0:3:8:0:%count:0

#１本目
if %hon>0 then
%count=0
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#２本目
if %hon>1 then
%count=1
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#３本目
if %hon>2 then
%count=2
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#４本目
if %hon>3 then
%count=3
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#５本目
if %hon>4 then
%count=4
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#６本目
if %hon>5 then
%count=5
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#７本目
if %hon>6 then
%count=6
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#８本目
if %hon>7 then
%count=7
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#９本目
if %hon>8 then
%count=8
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif
#１０本目
if %hon>9 then
%count=9
line:%count*4000:0:(%count+1)*4000-200:0:%kaku:4:1:8
line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif

if %count=9 then
exit
endif

#残りの４ｍ未満の管
if %amari>50 then
# %count=%count+1
line:(%count+1)*4000:0:(%count+1)*4000+%amari:0:%kaku:4:1:8
# line:(%count+1)*4000-200: 200:(%count+1)*4000:0:%kaku:4:1:8
# line:(%count+1)*4000-200:-200:(%count+1)*4000:0:%kaku:4:1:8
endif

#************************************************************
#Ｕ型側溝

#実寸に設定
ziusun_set

%gpread_x1=-1500
%gpread_x2=1500
%gpread_y1=0
%gpread_y2=0

input"U-150 =1　U-180 =2　U-240 =3　U-300 =4"%type=1

gpoint_read2

$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%kaku=%result_a

$readkakudo_set:%kaku

$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%nagasa=%result_a

if %type=1 then
%atusa=30
%habaa=150/2*(-1)
%habab=150/2
endif

if %type=2 then
%atusa=35
%habaa=180/2*(-1)
%habab=180/2
endif

if %type=3 then
%atusa=45
%habaa=240/2*(-1)
%habab=240/2
endif

if %type=4 then
%atusa=50
%habaa=300/2*(-1)
%habab=300/2
endif

#延長方向
line:0:%habaa:%nagasa:%habaa:0:5:1:8
line:0:%habab:%nagasa:%habab:0:5:1:8
line:0:%habaa-%atusa:%nagasa:%habaa-%atusa:0:5:1:8
line:0:%habab+%atusa:%nagasa:%habab+%atusa:0:5:1:8

#分割線
bunkatusen2:0:%habaa-%atusa:0:%habab+%atusa:%nagasa:%habaa-%atusa:%nagasa:%habab+%atusa:600:0:2:5:1:8


線種や色、レイヤーは自社用なので変更して使ってみてください。
批評お願いします。

同じく凄くループ欲しい〜。

有ると作成の幅が広がりますよね。
（いずれは取り入れたいです。）

ＰＳ
今回は主に機械・電気設備用に変形図形を拡張しています。
（ひたすらサンプルを作成しながら拡張中で・・）
あ、そうそう変形作成の時に基点１個のみで作成しておけば、
次のバージョンではオフセット（基点変更）が簡単にできるようになります。