はじめまして。
excelのVBAを使用し、道路や下水道の縦断図を書こうと思っていますが
いくつか分からないことがあります。

DrawTextについて
1　DrawText(値,X座標,Y座標･･･と続きますが
この中の"Orientation"という箇所が何を示しているのか分かりません。

2　例えば"Text1 = Cells(1,1).text"で読み込んだデータを
DrawTextでHO_CADに出力しようとすると、
セル(1,1)が数値だった場合数値の最後に
半角スペースが読み込まれてしまうのですが回避できますか?
またcells(1,1).valueとした場合、
値がexcel上で"0.00"と表示されていても
HO_CADでは"0"と表示されてしまいますが、
小数桁まで表示できる方法はありますか?

以上2点です。
なにぶんVBAをいじり始めてから1週間のシロウトですので
的はずれな質問かもしれませんがよろしくお願いします。

Nissy様!!御疲れ様s_satoです。

>DrawTextについて
>1　DrawText(値,X座標,Y座標･･･と続きますが
>この中の"Orientation"という箇所が何を示しているのか分かりません。

これは、マニュアルにP21書いてありますが、

Orientatipn ： 文字の縦書き・横書きの別 ０ ：横書き０ 以外：縦書き


>2　例えば"Text1 = Cells(1,1).text"で読み込んだデータを
>DrawTextでHO_CADに出力しようとすると、
>セル(1,1)が数値だった場合数値の最後に
>半角スペースが読み込まれてしまうのですが回避できますか?

HO-cadで公開されているoleサーバでは、vbaから送れる関数DrawTextでは、
パラメータの形式がDim文で宣言する必要が有ります。

DrawText関数でパラメータ形の宣言するには

　value As String　'ご質問の内容では、valueがText1ですから"Dim Text1 As String"です。
　X1 As Double
　Y1 As Double
　Slant As Double
　Group As Integer
　Layer As Integer
　PenNo As Integer
　FNo As Integer
　Orientation As Integer
　Pos As Integer

関数パラメータをDim文で格納データの形を宣言します。
(VBAでは、明確に宣言しなくても動作はしますが、Ho-CADは、C++でプログラムされていますから
 宣言しないと問題を起こしやすくなります。)
    Dim Text1 As String
     :
     :

DrawText関数では、"Value"パラメータは、常に、String形式としないといけません。

セルの内容を反映させる場合は、常にセルの内容をtext形式に変換する必要があります。
　この場合は、セルの関数(vbaでは無く)で文字データにすることと、スペース文字を
排除しておくと良いと思います。
(VBAの関数でも無論出来ますが、テキストデータ自体にスペースが入っているのでは
ないですか、セルの関数のTEXTで結果をまず確認してみて、スペース入っていないか
を確認して、もし入っていなければ、セルのtext関数で元セルを参照した結果をVBAに
渡してはいかがでしょうか?)

>またcells(1,1).valueとした場合、
>値がexcel上で"0.00"と表示されていても
>HO_CADでは"0"と表示されてしまいますが、
>小数桁まで表示できる方法はありますか?
　これも、理由は一緒でHO-cadで公開されているoleサーバでは、vbaから送れる関数DrawTextでは、

パラメータの形式がDim文で定義する必要が有ります。
セルの内容は、テキストに勝手に変換されますから、0.00と具体的にテキストで入力されている
状態にして下さい。

(セルの書式設定での設定項目は、EXCEL本体での表示設定であり、VBAで参照したセルの内容は
("0"となっているのです。VBAのformat関数等で書式を設定することなどをして下さいね。)

>以上2点です。
>なにぶんVBAをいじり始めてから1週間のシロウトですので
>的はずれな質問かもしれませんがよろしくお願いします。　

難しい説明なので、VBAのHelpで関数毎に地道に調べて見てください。

参考としてくださいb(^^)v。

>セル(1,1)が数値だった場合数値の最後に
>半角スペースが読み込まれてしまうのですが回避できますか?

Nissy様こんばんは。S_Sato様回答ご苦労様です。

たとえばHO_CADに使用したいデータセルの全ての値に半角スペースが入るようでしたら、VBAで

Text1=Left(Text1,Len(Text1)-1)

でいけると思います。
半角スペースが入ったり入らなかったりするようであれば

If Right(Text1,1)=" " Then
   Text1=Left(Text1,Len(Text1)-1)
End If

です。

もちろんTex1は、S_Sato様のおっしゃる通り、Dim Text1 As String と宣言しておいてください。

Left,Right,Len,If〜Then〜End If についてはVBAヘルプを参照してください。

s_sato様、tomohiro様、coolyoppe様
ご指導ありがとうございました。
マニュアルも読み落としだらけで恥ずかしい限りです。

DrawTextではvalue As stringだったのですね。
今回は元のexcelのデータを数値ではなくtext関数で文字列として変換し
それをVBAで文字列として読み込みました。
おかげさまで0.00の表示も末尾にスペースが入ってしまう問題も解決しました。

みなさんどうもありがとうございました。

*.hocファイルをダブルクリックしたのですが、ファイルを開く事ができません。
また、ソフトを立ち上げて任意のファイルを開くという操作をしても開きません。
フォルダの関連付けに問題があるのでは、と思い設定しようとしたのですが、
「指定されたデバイス、パス、またはファイルへのアクセスは拒否されました」というエラー表示が
出て関連付けがうまくできないのです。
ただ、ソフト自体のアイコンに、ファイルをドロップするという操作をすれば開くことができるよう
なのですが・・・。
どなたか解決法をご教授していただけたらと思います。

ＯＳはWin98（もともとはWin95のものをアップグレードしたもの）、使用ソフトの
ＨＯのヴァージョンはVer2.4です。

よろしくお願いいたします。

kameさんは No.5735「hocファイルの関連付けができません」で書きました。

>*.hocファイルをダブルクリックしたのですが、ファイルを開く事ができません。
>また、ソフトを立ち上げて任意のファイルを開くという操作をしても開きません。
>フォルダの関連付けに問題があるのでは、と思い設定しようとしたのですが、
>「指定されたデバイス、パス、またはファイルへのアクセスは拒否されました」というエラー表示が
>出て関連付けがうまくできないのです。
>ただ、ソフト自体のアイコンに、ファイルをドロップするという操作をすれば開くことができるよう
>なのですが・・・。
>どなたか解決法をご教授していただけたらと思います。
>
>ＯＳはWin98（もともとはWin95のものをアップグレードしたもの）、使用ソフトの
>ＨＯのヴァージョンはVer2.4です。
>
>よろしくお願いいたします。

オプションのレジストりーの設定のところにあります

kitaさんは No.5737「Re:hocファイルの関連付けができません」で書きました。

kitaさん、早速ご教授くださいましてありがとうございます。
お蔭さまで、関連付けすることができました。
最近、HO-Cadを導入したばかりで、社内に詳しい者がおらず、この数日間、どうしたらよいものかと
悩んでおりましたが、解決に至り感謝いたします。

また、分からないことが出てきましたらよろしくお願いいたします。


>kameさんは No.5735「hocファイルの関連付けができません」で書きました。
>
>>*.hocファイルをダブルクリックしたのですが、ファイルを開く事ができません。
>>また、ソフトを立ち上げて任意のファイルを開くという操作をしても開きません。
>>フォルダの関連付けに問題があるのでは、と思い設定しようとしたのですが、
>>「指定されたデバイス、パス、またはファイルへのアクセスは拒否されました」というエラー表示が
>>出て関連付けがうまくできないのです。
>>ただ、ソフト自体のアイコンに、ファイルをドロップするという操作をすれば開くことができるよう
>>なのですが・・・。
>>どなたか解決法をご教授していただけたらと思います。
>>
>>ＯＳはWin98（もともとはWin95のものをアップグレードしたもの）、使用ソフトの
>>ＨＯのヴァージョンはVer2.4です。
>>
>>よろしくお願いいたします。
>
>オプションのレジストりーの設定のところにあります
>

ＨＯ−ＣＡＤが無いと仕事にならないほど重宝しております。
このたび、パソコンを買い換えることになりまして、ＨＯ−ＣＡＤを
快適に使うためには、どのような点に注意したらよいでしょうか？
たとえば、ＯＳ、メモリ、マウス等、よろしくお願いします。

SOKUJINさんこんにちは。

>ＨＯ−ＣＡＤが無いと仕事にならないほど重宝しております。
>このたび、パソコンを買い換えることになりまして、ＨＯ−ＣＡＤを
>快適に使うためには、どのような点に注意したらよいでしょうか？
>たとえば、ＯＳ、メモリ、マウス等、よろしくお願いします。
>


現在販売されている一般的なパソコンであれば、特にどれがいいということもなく、快適に使えるか
と思います。市販のパソコンであれば、RAM256MB・CPU1GB前後のものがほとんどだと思うので特に問
題ないと思います。

ＯＳに関しては、この掲示板でもたびたび取り上げられますが、Windows2000やXPなどでは、管理者
権限を持ったユーザーでないと、インストールが出来ないなどの制限があるようです。
ただ個人的に使用するパソコンにインストールするのであれば、特に問題もなく使用できるかと思い
ます。
またHO_CADと同時にEXCELやWORDなど複数のソフトを使用する機会が多いようでしたら、XPまたは200
0をお勧めします。（リソース不足によってフリーズする頻度が格段に減る）

マウスはマウスドライバに「Microsoft Office互換モード」とか「インテリマウス互換モード」がつ
いているものをお勧めします。ソフトごとにモードの設定が出来るものもあるので、そういうものの
方が便利かと思います。

出張のため掲示板が見られず、御礼が遅くなりました。
参考にさせていただきます。
ありがとうございました。
これからもよろしくお願いします。