Hinoさまこんにちは。

R求積、大活用させていただいております。

以前ベータ版を配布していただいたトゥーです。

大変使いやすいのですが、たまーに普通の四角形なのにヘロン計算される事があり、手動で直していたのですが、本日たまたまそのきっかけが「4090.5」という辺を含む四角だと判明しました。

もしお手間ありましたらまた、改良の参考にして下さいませ。
では。

トゥーさんこんばんは。
最近バージョンが分岐しまくって今私が使っているのと配布しているものの差が把握できなくなってます
ですがヘロンに移行するフラグの一つが確か「向かい合う辺の長さが等しくない」なので、実は微妙にずれてしまっていたりしませんでしょうか。
R求積で使っている桁数以下の部分での誤差とか。
ミリ以下はPCでの計算誤差を収斂するために精度にあまり問題がでないであろう程度に丸めていますのでこういったエラーが出ることは大いに有り得ます。
ちょっと確認してみてくださいませんでしょうか。

Hinoさまこんにちは。

いつもすばらしいツールをありがとうございます。
ありがたく使用させて頂いております。
この度、R天空比較をダウンロードさせて頂き、色々試してみたのですが、
添付された図面を読み込み⇒外変起動⇒範囲選択⇒エクセル起動⇒マクロを有効にチェックを入れるのですが、エクセル画面に変化なく、エクセルを閉じると
ＪＷの画面に戻り未実行になってしまいます。
私の環境は、Ｗindows Ｖista ＳＰ２
Ｊw_cad Ｖer.7.02です。
お手数を掛けますが、よろしくお願いします。

先程、手違いで、書きかけのままno nameで送信してしまいました。
大変失礼しました。

ＴＯＳＨＩさんこんにちは。
そういえば以前rjさんにいただいたアイディアを実装した版が私のローカルPCにのみ置かれていましたので張っておきます。
[Link]
色の設定が出来るようになってます。
外変から起動せずにR天空比較.xlsファイルをダブルクリックで起動しますと普通のエクセルファイルとして編集出来るようになってます。

付属ファイルでの稼動も確認できました。
お試しくださいませ。

Hinoさま今晩は。
先日、R天空比較の件で質問させて頂きました、ＴＯＳＨＩです。
早速、アドバイスを頂き驚いております。ありがとうございます。
すぐにダウンロードして試してみたのですが、やはり上手く動いてくれません。
同じくHinoさまのR平均地盤も使わせて頂いているのですが、
こちらの方は問題なく動いているのですが、
因みに、R平均地盤では、xlsファイルをダブルクリックで起動し編集後、保存すると、
同じフォルダ内にjwc_temp.txtファイルが出来るのですが、
R天空比較.xlsファイルの場合は生成されない事と、マクロを有効にチェックを入れると、
実行時エラー'53'ファイルが見つかりません、というメッセージが出ますが、
これはどういう意味なのでしょうか。
分からないなりに参考書で調べてみたのですが、よくわかりません。
まだまだ修行が足りない初心者のぼやきです。
もう少し自分なりにいじってみようと思っています。
ありがとうございました。

ＴＯＳＨＩさんこんにちは。
たぶん問題解消できました。
↓ダウンロードしてみてください。
[Link]

何が起きていたかと言いますと。

まず私のメンテナンス用に、R天空比較.xlsが起動した時、同じフォルダ内にある「jwc_temp.txt」ファイルの更新日時と現在の日時を参照して5秒以内であれば外変として起動し、それ以外は普通のエクセルファイルとして起動するようにしていたことがすべての原因ではないかと考えています。

マクロセキュリティの警告が出て実行するにチェックをしたりしている間にすぐ5秒経ってしまうのでまず一つ目の実行されない問題はここだろうと。
とりあえず20秒に伸ばしました。

それとjwc_temp.txtファイルの日時を確認するときにjwc_temp.txtファイルが存在しているかどうか確認しておらず、必ず存在していることを前提として処理していたことに気が付きました。
そこでファイルの有無をチェックするようにしてみました。

さてこれが当りだと良いのですが

Hinoさま今晩は。
出来ました〜〜＼(~o~)／
感動です。早速意味もなしに、何度も試してみてニヤニヤしてしまいました。
実は何度実行しても上手く行かず諦めかけておりました。
お忙しい中をアドバイスを頂き本当にありがとうございました。
これからも感謝しつつHinoさんの有用なツールの数々を使用させて頂きます。
ありがとうございました。

Hino様こんばんは。

初めてご連絡させて頂きます。
いつも素晴らしいツール、誠にありがとうございます。
今回、R天空比較を使用させて頂きたく思い、試してみたのですが、上手く動いてくれませんでした。
どのようにしたら動いてくれるか色々調べておりましたら、こちらのページを見つけまして、一読致しました所、上記の2010年にTOSHI様がご質問されている状況と類似しておることがわかりました。

添付された図面を読み込み⇒外変起動⇒範囲選択⇒エクセル起動⇒マクロを有効にチェックを入れるのですが、エクセル画面に変化なく、エクセルを閉じるとＪＷの画面に戻り未実行になってしまいます。

私の環境は、Ｗindows10　サーフェス
Ｊw_cad Ｖer.8.25aです。

お手数を掛けますが、何卒よろしくお願いします。
本当に便利なツールだと思い、是非使わせて頂きたいです。。

masatoさん、こんにちは。

上に貼ってあるこちらのバージョンを試してみてください。
[Link]

ちなみにエクセルのバージョンが分かれば教えてください。

Hino様こんばんは。

早速ありがとうございます。
頂戴致しましたLinkをクリック致しました所、
エラー（4xx）　お探しのページが見つかりません。
となってしまいました。

Excelのバージョンは、
Microsoft® Excel® 2019 MSO (バージョン 2205 ビルド 16.0.15225.20278) 64 ビット
でございます。

何度も申し訳ございません、宜しくお願い致します。

masatoさん、こちらこそすみません。
リンク切れてました
こちらです→[Link]

Hino様

とんでもございません、お手数お掛けしております。。
早速DLし試してみました。

以前のR天空比較のｴｸｾﾙﾃﾞｰﾀは消去し、今回頂戴しましたR天空比較のｴｸｾﾙﾃﾞｰﾀを入れ替えました。
入れ替えた後、JWWより　外部変形→R天空比較　を実行したところ、

申し訳ございません。R天空比較.xlsが見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。
とのエラーが発生致しました。

その後、試しに今回頂戴しましたR天空比較のｴｸｾﾙﾃﾞｰﾀを、97-2003ﾜｰｸｼｰﾄに変換してみましたところ、上記エラーは解消されましたが、

実行エラー1004
Cellsメソッドは失敗しました　Globalｵﾌﾞｼﾞｪｸﾄ
のエラーが発生してしまいました。

別件にてご指南頂きました、デバックをクリックしてみましたら、
標準モジュール
→main
→num1 = Cells(18, 7) * 100 '数値1　が黄色くなっておりました。

何度も誠に申し訳ございません。