Jw_cad 相談室−その2 New

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

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

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


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

Re:動かない外部変形を動かしたい。
 sugi  - 23/12/11(月) 6:13 -
機械屋には夜勤というものがあって
昼夜転倒の生活をしている人間もいるのです

桁表示の方は sprintf とか使えば直せると思うのですが
ちょっと待ってください

一括記入の方は調整は必要でしょうが大枠はできた気がする

REM 一括記入.bat
REM 勾配を‰表示の一括記入
CHCP 932
echo off
REM #jww
REM #cd
REM #h0
REM #c線と文字の離れ(図寸) 無指定:1.0 /_/a
REM #c勾配有効桁数 無指定:2 /_/b
REM #c長さ有効桁数 無指定:3 /_/c
REM #1ln線を指示してください free(L)
REM #99#
REM #e
copy jwc_temp.txt temp.txt
ruby -Ks -x %~f0 %1 %2 %3
GOTO END
REM #~

◎コメント
◎スクリプトファイル(ファイル名は自由)
◎以下の文をコピペ後、全角スペースを半角スペース二個に一括置換

#! ruby
# encoding: SJIS

$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")

include Math
require "matrix"

hch,hs,by,zusun,takasa,l,mk,ml=[],[],[],0,0,0,"",""
hanare=(ARGV[0] ? ARGV[0].gsub("/a","").to_f : 1.0)
kketa=(ARGV[1] ? ARGV[1].gsub("/b","").to_i : 2)
nketa=(ARGV[2] ? ARGV[2].gsub("/c","").to_i : 3)

puts "cc4"
open("temp.txt").readlines.each{|e|
 xy=e.split(" ")
 puts e unless /^hq|^ [\d-]/=~e
 if /^hs/=~e
  xy[1..-1].each{|item|by << item}
 elsif /^lg/=~e
  lg=xy[0][2,1]
  zusun=by[lg.hex].to_f
 elsif /^hch/=~e
  hch=xy
 elsif /^cn0/=~e
  takasa=xy[2].to_f*0.5*zusun
 elsif /^cn\d/=~e
  takasa=hch[e.gsub("cn","").to_i].to_f*0.5*zusun
 elsif /^ [\d-]/=~e
  xy=xy.map{|f|f.to_f}
  vs=Vector[xy[0],xy[1]]
  ve=Vector[xy[2],xy[3]]
  v1=ve-vs
  v2=Matrix[[0,-1.0],[1.0,0]]*v1*(1.0/v1.r)*(hanare+takasa)
  p1=(vs+v1*0.5+v2)
  p2=(vs+v1*0.5-v2)
  begin
   a=(v1[1]/v1[0]*1000).round(kketa)
  rescue
   a="垂直"
  end
  l=v1.r
  if a=="垂直"
   mk="i=垂直"
  elsif a<0
   mk=%Q|i=#{sprintf("%.#{kketa}f",a.abs)}‰→|
  elsif a==0
   mk=%Q|i=#{sprintf("%.#{kketa}f",a.abs)}‰|
  else
   mk=%Q|←i=#{sprintf("%.#{kketa}f",a.abs)}‰|
  end
  ml=sprintf("%.#{nketa}f",l.round(nketa))
  puts %Q|ch #{p1[0]} #{p1[1]} #{v1[0]} #{v1[1]} "#{mk}|
  puts %Q|ch #{p2[0]} #{p2[1]} #{v1[0]} #{v1[1]} "#{ml}|
 end
}
__END__
:END


引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36@global221-160-094.aitai.ne.jp>
・ツリー全体表示

動かない外部変形を動かしたい。 hide 23/12/7(木) 21:00
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 5:57
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 8:01
Re:動かない外部変形を動かしたい。 R.N 23/12/9(土) 8:05
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 9:53
Re:動かない外部変形を動かしたい。 R.N 23/12/9(土) 12:55
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 18:27
Re:動かない外部変形を動かしたい。 ban 23/12/9(土) 21:39
Re:動かない外部変形を動かしたい。 sugi 23/12/10(日) 5:45
Re:動かない外部変形を動かしたい。 hide 23/12/9(土) 16:50
Re:動かない外部変形を動かしたい。 sugi 23/12/10(日) 5:53
Re:動かない外部変形を動かしたい。 hide 23/12/10(日) 16:40
Re:動かない外部変形を動かしたい。 sugi 23/12/11(月) 6:13
Re:動かない外部変形を動かしたい。 hide 23/12/11(月) 12:12
Re:動かない外部変形を動かしたい。 sugi 23/12/11(月) 13:34
Re:動かない外部変形を動かしたい。 sugi 23/12/11(月) 15:30
Re:動かない外部変形を動かしたい。 hide 23/12/11(月) 22:14
Re:動かない外部変形を動かしたい。 sugi 23/12/13(水) 8:54
Re:動かない外部変形を動かしたい。 ban 23/12/13(水) 10:38
Re:動かない外部変形を動かしたい。 sugi 23/12/13(水) 11:03
Re:動かない外部変形を動かしたい。 hide 23/12/13(水) 21:10

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

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