私はvbaセットのコンポーネントを質問します

[Adahm]

全てに

このコードでは、セットのコンポーネントを閲覧し、特定のコンポーネントを選択します。

サブメイン()
odoc をドキュメントとして
odoc = thisapplication.activedocument を設定する

isassembly(odoc) = false の場合
msgbox "questo documento non è assieme", vbcritical, "file non congruente"
出口のサブ
端 もし

dim oassdoc として アセンブリドキュメント
oassdoc = thisapplication.activedocument を設定する

dim scodice として 文字列
dim iitem として整数

n = 1 から oassdoc.referenceddocumentdescriptors.count
scodice = codice(ファイル名(oassdoc.referenceddocumentdescriptors.item(n).fulldocumentname)))
instr(1, scodice, "-03") の場合、
イテム = n
debug.print "codice componente 03:39" と scodice
出口のための
端 もし
次へ
エンドサブ

コンポーネントのデータ、タイプパラメーター、またはプロパティをいくつか読み込む必要があります。
ilogic では、単純なコマンドで使用できるので、できることは確信しています。

変数("ds0002-03:1"、"家族")

または

iproperties.value("ds0002-03:1、"プロジェクト、"部品番号")

誰が私を助けることができますか?
お問い合わせ

 

[Catafratto]

助けの例(そして他のすべての)を、参照から出現の跡に文書に調査して下さい。

他の例 私はそれらを見つける必要がありますが、今日私は間違っています。 軸線の各成分を1回分析するか、異なるものをしなければなりませんか?

 

[Adahm]

私は次の方法でaxiemeの特定のコンポーネントのパラメータを読みました。

サブメイン()
odoc をドキュメントとして
odoc = thisapplication.activedocument を設定する

isassembly(odoc) = false の場合
msgbox "questo documento non è assieme", vbcritical, "file non congruente"
出口のサブ
端 もし

dim oassdoc として アセンブリドキュメント
oassdoc = thisapplication.activedocument を設定する
dim opartdoc として partdocument

dim scodice として 文字列
dim iitem として整数

n = 1 から oassdoc.referenceddocuments.count
opartdoc = oassdoc.referenceddocuments.item(n) を設定する
scodice = codice(ファイル名(oassdoc.referenceddocuments.item(n).fulldocumentname)))
debug.printのscodice
instr(1, scodice, "-03") の場合、
イテム = n
debug.print vbcrlf と "codice:" と scodice
出口のための
端 もし
次へ

opartdoc = oassdoc.referenceddocuments.item(iitem) を設定する

debug.print readodocparam(opartdoc, "famiglia")

エンドサブ

パブリック関数 readodocparam(ドキュメントとしてodoc、snomeparametroを文字列として) バリアントとして
' restituisce il valore del parametro di uno specifico documento
' se il parametro non esiste, restituisce il valore false

パラメータとしてのパラメータを暗示
パラメータ = odoc.componentdefinition.parameters

nparametri = params.count ディレクティブ
readodocparam = 偽値

n = 1 から nparametri
'debug.print n & ": "&params.item(n). お名前 (必須)
params.item(n) の場合。 名前 = snomeparametro その後
params.item(n).units = "mm" の場合、
readodocparam = params.item(n).value * 10
その他
readodocparam = params.item(n). バリュー
端 もし
出口機能
端 もし
次へ
エンド機能

私はあなたの勉強し、あなたに知らせます。
自分達はもっと罰せられると思います。 私はいくつかの素晴らしさを使用し、溶液は少しアージーゴグルルらしいです。

 

[Adahm]

私の場合、私はちょうど、いくつかのパラメータを回復するために、セットの特定のコンポーネントを疑問にする必要があり、手動でそれらを接続する必要はありません。

私はあなたが私を通過したコードは、異なるマルチレベルを作るために素晴らしいです.
将来的に使うために保存しました。 お問い合わせ
私はすでに爆発を余儀なくするためにレベルメーターを追加しようとしました。 アルファベット順にコンポーネントを注文し、重複コンポーネントをまとめることができるのは良いでしょう。そのため、グループ化ではなく、異なる爆発物を抽出することを決めることができます。

しかし、私はそれを行う方法がわかりません。 あなたがまっすぐにしている場合は、結果をセットアップして共有します。