サブ 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。 また、シートに応じて折り畳みに与えるオッズを決めるので。 代わりに、ベンドブラインドの同じコンセプトです。 マクロをポイントに投げるだけ。 私はあなたが一度に何かをしたいと、それはすべてのプレートの価値があります。 私は設計に平らな繰り返しを置くとき、時々私は忘れる前に述べたので、ボタンを押さずに、自動的に折り目が活性化します。 (ソリッドワークスでは、このことは自動で、平らに折りたたたむ音を上書き/下が既に入っていた)あなたはあなたに従って行うことができますか?私は行程(コピーしたが、どこにも記憶しない)このマクロは、
フラットモデルを選択し、起動し、すべての折り目
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 ディレクティブ エンドサブ