Jw_cad 相談室−その2 New

 Jw_cad についての相談の場としてお使いください
情報の交換には Jw_cad 情報交換室 をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。


新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム
65 / 1499     ←次へ | 前へ→

Re:寸法記入の操作方法が分かりません
 kojima  - 21/9/1(水) 21:45 -
▼株式会社サカノシタ 保全さん:
>図面記入〜通常の寸法記入は出来るのですが
>寸法の後に 寸法公差を 2段(小文字)で記入する操作方法が分かりません。


@REM 寸法値を指示して公差を記入
@echo off
REM #jww
REM #cd
REM #bz
REM #c公差1(+)の入力 無指定:0.01/_/a
REM #c公差2(-)の入力 無指定:0.01/_/b
REM #1ch文字を指示してください
REM #99#
REM #hp
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %1 %2>jwc_temp.txt
pause
goto end
#!ruby -Ks
include Math
def moji_l(str,moji_w,moji_d)
str_a=str.split('')
l=0
0.upto(str_a.size-1){|i|
if str_a[i].size==1
l+=moji_w/2
else
l+=moji_w
end
if i<str_a.size-1
if str_a[i].size==1
l+=moji_d/2
else
l+=moji_d
end
end
}

return l
end

hiritu=0.5
cl=1.0
cl2=0.25
p_k="+0.01"
m_k="-0.01"
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
p_k="+"+argument[2..-1]
when /\/b/
m_k="-"+argument[2..-1]
end
end

puts "hd"
hcw=[];hch=[];hcd=[];hcc=[]
while ARGF.gets
xy=$_.split
if xy[0]=~/^hq/
elsif xy[0]=~/^hcw/
print $_
xy.each{|item|hcw<<item.to_f}
elsif xy[0]=~/^hch/
print $_
xy.each{|item|hch<<item.to_f}
elsif xy[0]=~/^hcd/
print $_
xy.each{|item|hcd<<item.to_f}
elsif xy[0]=~/^hcc/
print $_
xy.each{|item|hcc<<item.to_i}
elsif xy[0]=~/^cn(\d+)/
cn=$_.chomp
print $_
if xy.size==1
moji_w=hcw[$1.to_i]
moji_h=hch[$1.to_i]
moji_d=hcd[$1.to_i]
moji_c=hcc[$1.to_i]
else
moji_w=xy[1].to_f
moji_h=xy[2].to_f
moji_d=xy[3].to_f
moji_c=xy[4].to_i
end
elsif xy[0]=~/^c[hsvo2r]/
moji=$'.chomp if $_=~/\"/
ch=xy[0]
x=xy[1].to_f
y=xy[2].to_f
xw=xy[3]
yh=xy[4]
arg=atan2(yh.to_f,xw.to_f)
l=hypot(yh.to_f,xw.to_f)

k_l1=moji_l(p_k,moji_w*hiritu,moji_d*hiritu)
k_l2=moji_l(m_k,moji_w*hiritu,moji_d*hiritu)
if k_l1>k_l2
l2=k_l1
else
l2=k_l2
end
x=x-(l2+cl)/2*cos(arg)
y=y-(l2+cl)/2*sin(arg)
printf("%s %.11f %.11f %s %s \"%s\n",ch,x,y,xw,yh,moji)
printf("cn0 %.3f %.3f %.3f %d\n",moji_w*hiritu,moji_h*hiritu,moji_d*hiritu,moji_c)

t_x=x+(l+cl)*cos(arg)+moji_h/2*cos(arg+PI/2)
t_y=y+(l+cl)*sin(arg)+moji_h/2*sin(arg+PI/2)
x1=t_x+cl2/2*cos(arg+PI/2)
y1=t_y+cl2/2*sin(arg+PI/2)
printf("%s %.11f %.11f %s %s \"%s\n",ch,x1,y1,xw,yh,p_k)

x2=t_x-(cl2/2+moji_h*hiritu)*cos(arg+PI/2)
y2=t_y-(cl2/2+moji_h*hiritu)*sin(arg+PI/2)
printf("%s %.11f %.11f %s %s \"%s\n",ch,x2,y2,xw,yh,m_k)

puts cn
else
print $_
end
end

__END__
:end

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/92.0.4515.159 Safari/537.36 Edg/92.0.902.84@ai126170111202.41.access-internet.ne.jp>
・ツリー全体表示

寸法記入の操作方法が分かりません 株式会社サカノシタ 保全 21/9/1(水) 12:58
Re:寸法記入の操作方法が分かりません R.N 21/9/1(水) 13:27
Re:寸法記入の操作方法が分かりません 株式会社サカノシタ 保全 21/9/1(水) 13:40
Re:寸法記入の操作方法が分かりません R.N 21/9/1(水) 14:11
Re:追記 R.N 21/9/1(水) 19:44
Re:追記 株式会社サカノシタ 保全 21/9/2(木) 10:00
Re:寸法記入の操作方法が分かりません kojima 21/9/1(水) 21:45
Re:感謝 !! R.N 21/9/2(木) 11:30

65 / 1499     ←次へ | 前へ→
新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム
 892257
ページ:  ┃  記事番号:  

C-BOARD Moyuku v1.03b5
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka