ilogicの限界？
271 views
Skip to first unread message
やまら
Mar 22, 2016, 9:30:05 PM3/22/16
to Autodesk Inventorユーザ会
こんにちわ。
VBAでの話ですが・・・
idw環境とasm環境では、色々と違いがあります。
idwでは、sheet -> view -> componentと辿っていかないといけないかも。
どうしてもiLogicで済まなければ、前回のとき(パーツ配置でしたっけ?)と同じように、ThisDocumentから操作すればVBA相当のことができると思いますよ。
(コードアシストが無いから、VBAで組むよりしんどいけど)
ちょっと時間がないので、ご参考まで。
お京コン
Mar 23, 2016, 1:11:19 AM3/23/16
to Autodesk Inventorユーザ会
やまら 様
ありがとうございます。
やっぱり環境によりコードが違うんですね。
「表示」で思い当たるコード(Visible,IsActive,View,Show) を
試したのですがエラーメッセージが出ていました。
※公開メンバーでないとか、readonlyとか・・・↘
その後、ヒントを頂いていろいろ探していたら
「ThisDrawing.Document」というのも出てきたのですが
「ThisDocument」とはどう違うのでしょうか。
どちらを使うかでコードも変わるんでしょうか。
ヘルプのどこかにilogicで使えるコード一覧とかあればなぁと思います。
Message has been deleted
伊東@Accuphase
Mar 24, 2016, 4:13:35 AM3/24/16
to Autodesk Inventorユーザ会
iLogicの限界というよりも、マクロでやるのもいろいろ大変そうですね。
2016年3月23日水曜日 14時11分19秒 UTC+9 お京コン:
図面の場合、線などの要素に簡単にアクセス出来ないので、
スケッチの寸法を変えるようにはいかないと思います。
例：モデルエッジの直線
Document→Sheet→DrawingView→DrawingCurve→DrawingCurveSegment
ここまで深くアクセスして初めてVisibleのプロパティが使えます。
面白そうだったので、VBAのコードを書いてみました。
うちの環境では非表示まではできましたよ。
何かの役には立つかも。。。
Sub compVis()
Dim oViews As DrawingViews
Dim oView As DrawingView
Set oViews = ThisDocument.ActiveSheet.DrawingViews
For Each oView In oViews
If oView.Name = "ビュー1" Then
Exit For
End If
Next
Dim oBaseIam As AssemblyDocument
Set oBaseIam = oView.ReferencedDocumentDescriptor.ReferencedDocument
Dim oBaseIamCompOccs As ComponentOccurrences
Set oBaseIamCompOccs = oBaseIam.ComponentDefinition.Occurrences
Dim TargetCompOcc As ComponentOccurrence
For Each TargetCompOcc In oBaseIamCompOccs
If TargetCompOcc.Name = "「ブラウザ上のオカレンス名」" Then
Exit For
End If
Next
Call oView.SetDesignViewRepresentation("マスター", False)
Call oView.SetVisibility(TargetCompOcc, False)
ThisDocument.ActiveSheet.Update
End Sub
2016年3月23日水曜日 14時11分19秒 UTC+9 お京コン:
0 new messages