• このフォーラムは、www.cad3d.it/forum1 - イタリアのデザインコミュニティの機械翻訳です。いくつかの用語は正しく翻訳されていません。

ノートの折目の自動idw

  • Thread starter Thread starter Donald Haxhiu Work
  • Start date Start date

Donald Haxhiu Work

Guest
おはようございます。私は、私がベース機能にリコールするとすぐに、自動的に折り畳みノート(例えば、90°/Ju 35°など)を置く方法があるかどうかを尋ねたかったです。 一つずつ折りたたたってのメモを入れたり、すべてを選ばせたりすることなく、 私は自動でフラットリップの開発を呼ぶとすぐに練習したいのですが、私はフォールドノートが表示されます。 どうすれば良いか教えてもらえますか?
 

Attachments

  • rip piatta note di pega.PNG
    rip piatta note di pega.PNG
    20.1 KB · Views: 12
こんにちは。
このようにして、フラットなビューを作り、アノテーションに行く --> インフォメーション
ビューを選択し、さまざまなオプションがあり、好きなように設定できます
 

Attachments

  • per piega 1.JPG
    per piega 1.JPG
    50.7 KB · Views: 16
  • per piega 2.JPG
    per piega 2.JPG
    93.5 KB · Views: 14
  • per piega 3.JPG
    per piega 3.JPG
    26.4 KB · Views: 16
私はその機能を知っているが、私はいつもそれを行う必要があります。 その後、折り目線の上にいるので、他のものの中では侵襲的ではない、折り目のノートを置く価値があります。 私はフラットな繰り返しを置くとき、私は自動的にフォールドノートを取得します何かを望んでいました。 (私はすでに、私はソリッドワークスから来ることを期待しています, そして、私はフラットな反復が私に自動的に折り目のメモを置くとすぐに)質問が発生した場所から. ここで、インベンターの代わりに、曲がった目隠しコマンドを押し、折り目と/またはメモを置くすべてのビューの行を選択します。 私は時々忘れてしまうので、自動でやりたい。 あなたによると存在していますか? 設定を自動でチェックしてもらえますか?
 
私は 行程 (コピーしたが、どこにも記憶しない)このマクロは、
フラットモデルを選択し、起動し、すべての折り目
Code:
サブ addbendnote()

' ドローイング文書がアクティブであると仮定
odocをdrawdocumentとして
odoc = thisapplication.activedocument を設定する

'ベンドエッジが選択されていることを確認してください。
odoc.selectset.count の場合 <> 1 それから
msgbox "seleziona un modello piatto."
出口のサブ
端 もし

odoc.setselect(1) がドロービューでない場合、
msgbox "seleziona un modello piatto."
出口のサブ
端 もし

dim oview as ドロービュー
oview = odoc.selectset(1) を設定する

デッサンカーブとして従う薄暗い
dim obendnote として bendnote


'単一のトランザクションで反復をラップする
' アプリケーションからトランザクションマネージャーを取得する
トランザクションマネージャーとして otxnmgr を dim
otxnmgr = thisapplication.transactionmanager を設定する

トランザクションとして otxn を dim
otxn = otxnmgr.starttransaction(odoc, "bendnotes") を設定する

oview.drawingcurvesで各従事者のために
もし(obendedge.edgetype = kbendupedge または obendedge.edgetype = kbenddownedge) なら、
'ベンドノートを作成する
obendnote = odoc.activesheet.drawingnotes.bendnotes.add(obendedge) を設定する
端 もし
次へ

' 操作からエラーが回復できない場合、txn を中止します。
err なら
msgbox 「操作中に異常なエラーが発生しました」
otxn.abort(オトクセン)
出口のサブ
端 もし

otxn.end ディレクティブ
エンドサブ
 
私は 行程 (コピーしたが、どこにも記憶しない)このマクロは、
フラットモデルを選択し、起動し、すべての折り目
Code:
サブ addbendnote()

' ドローイング文書がアクティブであると仮定
odocをdrawdocumentとして
odoc = thisapplication.activedocument を設定する

'ベンドエッジが選択されていることを確認してください。
odoc.selectset.count の場合 <> 1 それから
msgbox "seleziona un modello piatto."
出口のサブ
端 もし

odoc.setselect(1) がドロービューでない場合、
msgbox "seleziona un modello piatto."
出口のサブ
端 もし

dim oview as ドロービュー
oview = odoc.selectset(1) を設定する

デッサンカーブとして従う薄暗い
dim obendnote として bendnote


'単一のトランザクションで反復をラップする
' アプリケーションからトランザクションマネージャーを取得する
トランザクションマネージャーとして otxnmgr を dim
otxnmgr = thisapplication.transactionmanager を設定する

トランザクションとして otxn を dim
otxn = otxnmgr.starttransaction(odoc, "bendnotes") を設定する

oview.drawingcurvesで各従事者のために
もし(obendedge.edgetype = kbendupedge または obendedge.edgetype = kbenddownedge) なら、
'ベンドノートを作成する
obendnote = odoc.activesheet.drawingnotes.bendnotes.add(obendedge) を設定する
端 もし
次へ

' 操作からエラーが回復できない場合、txn を中止します。
err なら
msgbox 「操作中に異常なエラーが発生しました」
otxn.abort(オトクセン)
出口のサブ
端 もし

otxn.end ディレクティブ
エンドサブ
いいえ、しかし引用のために私は自分自身をsurrender。 また、シートに応じて折り畳みに与えるオッズを決めるので。 代わりに、ベンドブラインドの同じコンセプトです。 マクロをポイントに投げるだけ。 私はあなたが一度に何かをしたいと、それはすべてのプレートの価値があります。 私は設計に平らな繰り返しを置くとき、時々私は忘れる前に述べたので、ボタンを押さずに、自動的に折り目が活性化します。 (ソリッドワークスでは、このことは自動で、平らに折りたたたむ音を上書き/下が既に入っていた)あなたはあなたに従って行うことができますか?
 
こんにちは、私はプレス:私は外見、試して共有しませんでした。
ilogic を生成し、次のテキスト行を入力します。
プレート・モデル・シート・パーツを含む idw にルールを適用し、ルールは行の折目のメモを差し込みます。
それから、より精密であるためには、折目のタイプに従ってライン タイプを置くことはよいです:連続的なラインの折目、点線を折って下さい。

多分あなたは、テンプレート内のルールをインサートすることができますので、あなたは自動的にフラットモデルをインサートするときにそれを実行することができます: 誰が私にもっと知っている...

こんにちは。

odocをdrawdocumentとして
シートとして dim osheet
dim oview as ドロービュー
dim ocurve として デッサンカーブ
dim obendnoteとしてバンドノート
dim Bandanotecount は整数

odoc = このアプリケーション.activedocument
osheet = odoc.activesheet
Bandanotecount = osheet.drawingnotes.bendnotes.count

ブラインドノート=0 の場合、
お問い合わせ[add bend notes to views
For Each oView In oSheet.DrawingViews
For Each oCurve In oView.DrawingCurves
If oCurve.EdgeType = Inventor.DrawingEdgeTypeEnum.kBendDownEdge _
Or oCurve.EdgeType = Inventor.DrawingEdgeTypeEnum.kBendUpEdge Then
' Create the bend note
oBendNote = oSheet.DrawingNotes.BendNotes.Add(oCurve)
End If
Next 'oCurve
Next ']アーカイブ
その他
「何もしない」
端 もし
 

Forum statistics

Threads
46,674
Messages
380,976
Members
2
Latest member
loop80
このフォーラムは、www.cad3d.it/forum1 - イタリアのデザインコミュニティの機械翻訳です。いくつかの用語は正しく翻訳されていません。

Members online

No members online now.
Back
Top