【最大10000ポイント】当たる!!質問投稿キャンペーン!

CaTiaは3DCADとしては、ハイエンドと言われ受講した。しかし曲線はスプラインだけでsin関数すら使えない。これではインチキだ。自動車メーカーが使っていると聞くが、まさかカッコよさの追求に使用しているのか(かっこの良い自動車なんか今まで見たこともない)。マクロにfunctionviewを使いたいが、どなたか善意のある方、使い方教えてくれませんか?(企業秘密だと・・・だめ?)

このQ&Aに関連する最新のQ&A

A 回答 (1件)

ここで質問するより CAD/DTPカテゴリのほうがいいかもしれませんよ



http://oshiete.goo.ne.jp/category/561/
    • good
    • 0
この回答へのお礼

有難うございました。
早速CAD・DPTで質問してみます。

お礼日時:2010/11/29 07:15

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QVB上で実行中の無限ループの止め方

今まで、CUIベースのBASICでのプログラムの経験はあるのですが
Visual系のBASICは初心者です。
原因はわかっているのでプログラムの修正はできるのですが
VB上でコンパイルして実行したときに無限ループに陥ってしまって
どうにもプログラムをとめられなくなります。
そんなことがないように、実行前に全てのプロジェクトを保存して
いますので、そんなに実害はないのですが、どうすればとめられるのでしょう・・
今現在は、タスクマネージャーから強制終了させています。

Aベストアンサー

無限ループの一番内側に
DoEvents
を入れておくと、ウィンドウ切替え->デバッガ終了操作が出来ますよ

危なそうなとこにも入れておくと、何かと安心です。

QCATIAのマニュアル良いの知りませんか?

初めまして。
今度、転職する事が決まったのですが、転職先でCATIA(3D)を使うのです。
今までオペレータをしていたので、2Dは大抵のソフトが使えるのですが、
3DはI-DEASを少し触った事がある程度なんです。
入社まで1ヶ月あるので、その間に勉強しようと思うのですが
何を参考にすれば良いか分かりません。
良いマニュアル知りませんか?
描く図面は機械系です。

あまり、PCやソフトの事詳しくなくて、CATIAのHP見ても
どれが良いのか分からないのです。
機械製図に詳しい方、CADの知識をお持ちの方是非ご協力お願い致します。

Aベストアンサー

あなたの熱心な姿勢には、感服いたします。

>その間に勉強しようと思うのですが
ま、まさか自分のPCにインストールしているのですか?
それなら、ディーラーにTELすれば、翌日にはすっ飛んで持ってきてくれると思います。しかもタダ。

つーのは、冗談として・・・・・

GMやトヨタなどクルマ屋さんが、CATIA宣言してから、機械系はCATIA尽くしになったな気がします。(ひょっとしてオレの周りだけか?)

逆にそういった追い風状況で、販売代理店などは、2本や3本の小口の客は、相手にしてくれないような雰囲気を感じます。(ひょっとしてオレだけか?)

>良いマニュアル知りませんか?

このようにトップダウンで売っているCADは、従来のボトムアップで利用者を増やして、売り上げて行く方法はとられないでしょうね。つまりAutoCADやJW-CADのように、書店に解りやすい解説書が並ぶことは、まずありえないでしょう。(IDEAS、PRO-Eもそうですね)

で、とりあえず手ごろなとこ¥1500。(ていうか、日本語はこれしかなさそう)
http://www-6.ibm.com/jp/manufacturing/prod/catia/v4manual_cd.html

でも、今は、V5で相当変わってるみたいだし、生で使わずに何らかの、ユーザインターフェースを特注していることも考えられるので、職場についてからでもいいのではないかとも思います。

あなたの熱心な姿勢には、感服いたします。

>その間に勉強しようと思うのですが
ま、まさか自分のPCにインストールしているのですか?
それなら、ディーラーにTELすれば、翌日にはすっ飛んで持ってきてくれると思います。しかもタダ。

つーのは、冗談として・・・・・

GMやトヨタなどクルマ屋さんが、CATIA宣言してから、機械系はCATIA尽くしになったな気がします。(ひょっとしてオレの周りだけか?)

逆にそういった追い風状況で、販売代理店などは、2本や3本の小口の客は、相手にしてくれ...続きを読む

QCATIA注釈について教えて下さい。

CATIA教育を受講したての新人です。
CATIA注釈を連続で付けるScriptをネットで探した所、欲しいScriptを探しましたが、うまく作動させることが出来ません。
他にも探し出して使ってみた簡単なScriptはうまく動いていますが、今回は前提条件を私が理解出来ていない様です。
そこでお願いです。
次に記載したScriptの解釈と設定方法があれば、お教えいただければ幸いです。
宜しくお願いします。

[注意書き]
・ バルーンの中に自動的に連番を記入します。
・ ・連番文字の高さはDIMSCALEシステム変数×4mmで記入します。
・ ・始点の指示の時にEnterキーを押す(または右クリックする)と、連番の開始値を変更するダイアログが表示されます。

[Script]
Dim Acad
Call Main
Sub Main()
Set Acad = CreateObject(“AcadRemocon.Body”)
Cnt = 1
If Not Acad.acGetVar("DIMSCALE", DimScale) Then Er: Exit Sub

以下は何とか理解出来ます。

CATIA教育を受講したての新人です。
CATIA注釈を連続で付けるScriptをネットで探した所、欲しいScriptを探しましたが、うまく作動させることが出来ません。
他にも探し出して使ってみた簡単なScriptはうまく動いていますが、今回は前提条件を私が理解出来ていない様です。
そこでお願いです。
次に記載したScriptの解釈と設定方法があれば、お教えいただければ幸いです。
宜しくお願いします。

[注意書き]
・ バルーンの中に自動的に連番を記入します。
・ ・連番文字の高さはDIMSCALEシステム変数×4m...続きを読む

Aベストアンサー

AcadRemocon って CATIA じゃなくて AutoCAD 用の外部ツールっぽいですけど?
しかも Web をざっと見たところ AcadRemocon 自体すでに公開がされておらず過去の存在らしく、最新の環境では動作しないような話。
私自身も AcadRemocon どころか AutoCAD も使ったことがないので詳細はわかりません。 CATIA の環境管理をしているぐらいで。。。

Dim Acad
Set Acad = CreateObject("AcadRemocon.Body")
AcadRemocon という ActiveX オブジェクトのインスタンスを生成して変数 Acad に設定。
AcadRemocon というツールを別途インストールしておく必要がありそう。
インストールされていなければここでエラーが発生してスクリプトが停止するが、このスクリプトでエラー トラップがされている場合は無言で終了しているかもしれない。

Set Acad = CreateObject("AcadRemocon.Body")
If Err.Number <> 0 Then
 MsgBox "エラー番号:" & Err.Number & vbCrLf & vbCrLf & "説明:" & Err.Description
End If
というようにしてみると、AcadRemocon のオブジェクトを作成に失敗してエラーが発生しているかどうかを確認できます。
--------
エラー番号:429
説明:ActiveX コンポーネントはオブジェクトを作成できません。
--------
とか表示されたら確定。


Sub Main() ~ End Sub
ご存じ、このスクリプトのメインとなるプロシージャー。
Call Main によって呼び出されている。


Cnt = 1
このあとどこかで使用する変数でしょうか。
名前から察するにカウンター的な使い方?


If Not Acad.acGetVar("DIMSCALE", DimScale) Then Er: Exit Sub
これは見づらい書き方。
If Not Acad.acGetVar("DIMSCALE", DimScale) Then
 Er
 Exit Sub
End If
とも書ける。
acGetVar は AutoCAD のシステム変数から値を取得する命令。
http://hp.vector.co.jp/authors/VA026873/AcadRemoconHelp/acGetVar.htm
このコードの場合は DIMSCALE という名前の環境変数の値を取得しようとしている。
取得した値は VBScript 側の DimScale という変数に格納される。
acGetVar が異常終了した場合は最終的に Exit Sub している。
つまり Sub Main() の残りの処理をすっ飛ばしている。
Er がなんなのかは不明。
ここでエラーが発生しているかどうかを確認するためには
If Not Acad.acGetVar("DIMSCALE", DimScale) Then
 Acad.ShowError
 Er
 Exit Sub
End If
としてみるとエラー内容が見られそう。
http://hp.vector.co.jp/authors/VA026873/AcadRemoconHelp/ShowError.htm

AcadRemocon って CATIA じゃなくて AutoCAD 用の外部ツールっぽいですけど?
しかも Web をざっと見たところ AcadRemocon 自体すでに公開がされておらず過去の存在らしく、最新の環境では動作しないような話。
私自身も AcadRemocon どころか AutoCAD も使ったことがないので詳細はわかりません。 CATIA の環境管理をしているぐらいで。。。

Dim Acad
Set Acad = CreateObject("AcadRemocon.Body")
AcadRemocon という ActiveX オブジェクトのインスタンスを生成して変数 Acad に設定。
AcadRemocon というツー...続きを読む

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

Qエクセル VBA ユーザーフォームを閉じる

ユーザーフォームを開く時は
UserForm1.Showですが
閉じる時は?
UserForm1.Close
だとコンパイルエラーになります。
End
にするしかないですか?

Aベストアンサー

Unload Me とか Unload UserForm1 でユーザーフォームを閉じることができます。

QExcel VBAで、ユーザーフォームの値を、モジュールで使用したい。

VBA初心者です。(おそらく)基本的な質問で、申し訳ありません。
ユーザーフォーム1には、テキストボックス1とコマンドボタン1が配置されているとします。

Sub TEST ()
Dim N
Userform1.Show
MsgBox N
End Sub

Private Sub CommandButton1_Click()
Dim N
N = TextBox1.Text
UserForm1.Hide
End Sub

Sub TESTを実行した時に、ユーザーフォーム1からNの値を引き継ぐには、どうしたら良いのでしょうか?よろしくお願いします。

Aベストアンサー

'モジュールに変数宣言(グローバル変数)
'Public 宣言すると他のモジュールやフォームと
'共有できる変数になります。
Public AA As String

'sample
'A1 を実行する。

Sub A1()
Call A2
AA = InputBox("input", , AA)
End Sub

Sub A2()
AA = InputBox("input", , AA)
End Sub

QEXCEL VBAで計算値を四捨五入、切り上げ、切捨てする方法

ネットで探してみたのですが、計算結果を四捨五入して特定のセルを
返すにはどうしたらいいのでしょうか?

Sub hokangosa()

Dim ZPS As Double
Dim ZPOS As Double
Dim DMN As Double
MsgBox (" >>> 補間誤差自動計算 <<< ")
MsgBox (" >>> 初期値入力します <<< ")
ZPS = InputBox(">>> ステップを入力してください<<<")
ZPOS = Sheet1.Cells(22, 4).Value
DMN = ZPOS / ZPS
Sheet1.Cells(23, 6).Value = DMN
End Sub

ここでDMNの値を四捨五入したいです。

またこれとは別に切上げ、切捨ても教えていただけるとありがたいです。

Aベストアンサー

DMN = Application.WorksheetFunction.Round(ZPOS / ZPS, 0)
で、四捨五入
DMN = Application.RoundDown(ZPOS / ZPS, 0)
で切り捨て
DMN = Application.RoundUp(ZPOS / ZPS, 0)
で切り上げです。

引数で、対象桁を変更できます。

QEXCEL VBAから他アプリケーションを操作することは可能ですか?

こんばんは。

VBAの本を購入し勉強していますが、VBAと他アプリケーションとの連携について記載が少なく(txtやcsvファイル操作)、どこまで出来るんだろうという不安があり質問しました。

(1)EXCEL VBAから他アプリケーションを起動し、設定操作、命令を送り操作することは可能でしょうか?
イメージとしては他アプリに一方的に命令を送り操作できれば良しです。(アプリ側からのリターン要求はしません。)

(2)第2の質問です。
VBAで他アプリを起動した状態で人が操作している感覚でマウスを操作できますか?(利用方法:他アプリの●ボタンを押したい!!)
目の前にソフトがあるのに触る操作は出来ないものでしょうか?
いろいろ調べて見ましたが、この様な事例はありません。
駄目元ですが、こんな操作を知っていましたら教えてください。
こんな操作ができればいいな~

Aベストアンサー

#2,4 です。

> EXCEL2000内の特定のセルに規定値外のデータが入力された場合に
> UWSCを起動して...

UWSC のスクリプトが完成しているとすれば、起動オプション付きで
バッチ処理すれば良いでしょう。実行タイミングは、シートまたは
ThisWorkbook の Change イベントが使えます。

例)シートモジュール

Private Const EXE_PATHNAME As String = "C:\Program Files\uwsc\uwsc.exe"
Private Const DQ      As String = """"

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim rChange   As Range
  Dim sCommand  As String
  Dim sScriptFile As String

  ' // 実行する UWSC スクリプト
  sScriptFile = "C:\sample.uws"
  ' // UWSC の起動オプションは UWSC のヘルプを参照
  sCommand = DQ & EXE_PATHNAME & DQ & " " & _
        DQ & sScriptFile & DQ
  
  ' // 変更されたのが単一セルかつ A 列でなければ終了
  If Target.Cells.Count > 1 Then Exit Sub
  Set rChange = Intersect(Target, Columns("A"))
  If rChange Is Nothing Then
    Exit Sub
  End If
  
  ' // さらに値が TEST だった場合のみ実行
  If rChange.Value = "TEST" Then
    Shell sCommand, vbNormalFocus
  End If

End Sub

#2,4 です。

> EXCEL2000内の特定のセルに規定値外のデータが入力された場合に
> UWSCを起動して...

UWSC のスクリプトが完成しているとすれば、起動オプション付きで
バッチ処理すれば良いでしょう。実行タイミングは、シートまたは
ThisWorkbook の Change イベントが使えます。

例)シートモジュール

Private Const EXE_PATHNAME As String = "C:\Program Files\uwsc\uwsc.exe"
Private Const DQ      As String = """"

Private Sub Worksheet_Change(ByVal Target As Range)

  ...続きを読む

QVBA オブジェクトが空かどうか判定する

皆様のお知恵を拝借させてください。

エクセルVBAでオブジェクトを入れる変数を定義し、その変数にオブジェクト
が入っているかどうか検査したいのですがどうしたらいいでしょうか。

例えば---
Dim a As Workbook
If a <> nothing then ←この部分が分からない。このままだとエラー。
処理
End if
---------
環境
エクセル2003
WinXPsp1

Aベストアンサー

もし、aが空だったら
If a Is Nothing Then 

もし、aが空じゃなかったら
If Not a Is Nothing Then

Qエクセル マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか?
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub


人気Q&Aランキング