MENU
256,365

スレッドNo.112

あったらイイなぁ

変形図形に
for next 文
があればいいな・・・

引用して返信編集・削除(未編集)

こんばんは。

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

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

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

確かにそうですね。

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

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

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


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

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

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

引用して返信編集・削除(未編集)

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

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

1.外構図に使う桝を作図するもの
2.桝と桝をつなぐ配水管(L=4m)
3.U型側溝

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

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


#****************************************
#排水管(最大40mまで)

#実寸に設定
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

#1本目
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
#2本目
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
#3本目
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
#4本目
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
#5本目
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
#6本目
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
#7本目
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
#8本目
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
#9本目
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
#10本目
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

#残りの4m未満の管
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

#************************************************************
#U型側溝

#実寸に設定
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


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

引用して返信編集・削除(未編集)

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

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

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

引用して返信編集・削除(未編集)

このスレッドに返信

このスレッドへの返信は締め切られています。

ロケットBBS

Page Top