alde67
Guest
buongiorno a tutti, uso 発明家 2024 プロ.
utilizzo questa regola per estrarre i dxf delle lamiere. funziona bene ma mi piacerebbe che nel nome del file ci sia lo spessore della lamiera.
Qulcuno che riesca 広告の実装?
グラジエ!
'アセンブリファイルとしてアクティブなドキュメントを定義する
dim oasmdoc として アセンブリドキュメント
oasmdoc = このアプリケーション.activedocument
oasmname = left(oasmdoc.displayname, len(oasmdoc.displayname) -4)
'アクティブなドキュメントがアセンブリファイルであることを確認してください
このapplication.activedocument.documenttype <> kassemblydocumentobject の場合、
messagebox.show("アセンブリファイルからこのルールを実行してください。", "ilogic")
出口のサブ
端 もし
'get user 入力
rusure = メッセージボックス.show ( _)
"これは、シートメタルであるすべてのアセンブリコンポーネントのdxfファイルを作成します。" ツイート
& vblf & "このルールは、部分ファイルが保存されていることを期待しています。" ツイート
と vblf と " _
& vblf & "すべてのアセンブリコンポーネントのdxfを作成したいですか? ツイート
& vblf & "これはしばらくかかることができます。", "ilogic - バッチ出力dxfs ",messageboxbuttons.yesno"
rusure = vbno なら、
フィードバック
その他
端 もし
opath = このドキュメント.path
odatamedium = このアプリケーション。transientobjects.createdatamedium
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = iomechanismenum.kfilebrowseiomechanism
ooptions = thisapplication.transientobjects.createnamevaluemap
'get dxf ターゲットフォルダーパス
ofolder = opath と "\" と oasmname と "dxf ファイル"
'dxf フォルダーをチェックし、存在しない場合に作成します。
system.io.directory.exists(ofolder)でなければ、
system.io.directory.createdirectory(フォルダ)
端 もし
- - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - -
'アセンブリによって参照されるファイルを見て下さい
文書化者としてのorefdocs
orefdocs = oasmdoc.allreferenceddocuments
ドキュメントとしてのorefdoc
'参照されたモデルの描画ファイルを扱う
'これはモデルが保存されていることを期待しています
orefdocs の各 orefdocs
iptpathname = left(orefdoc.fulldocumentname, len(orefdoc.fulldocumentname) - 3) & "ipt"
'モデルが保存されているチェック
if(system.io.file.exists(iptpathname) 以降
dim odrawdoc として partdocument
odrawdoc = thisapplication.documents.open(iptpathname, true) ディレクティブ
ofilename = left(orefdoc.displayname, len(orefdoc.displayname)))
お問い合わせ
'dxf ターゲットファイル名を設定する
お問い合わせ
customname =iproperties.value(ofilename, "custom", "pf_prt_znr")
キャッチ
customname ="astra srl" 'wert, wenn ipropertie pf_prt_znr nicht presentiert
エンドトライ
odatamedium.filename = ofolder & "\" & customname & "& ofilename & ".dxf"
dim ocompdef シートメタルコンポンデント定義
ocompdef = odrawdoc.componentdefinition
ocompdef.hasflatpattern = false の場合、
ocompdef.unfoldの
その他
ocompdef.flatpattern.edit は、
端 もし
dim sout を文字列として
sout = "フラットパターンdxf?acadversion=2004&outerprofilelayer=iv_outer_profile"
ocompdef.dataio.writedatatofile( sout, odatamedium.filename) のファイル
'ちょうどその作品をチェックする
'i=messagebox.show(odatamedium.filename、"title"、messageboxbuttons.okcancel)
'messagebox.show(i,"title",messageboxbuttons.ok)
i=2 の場合
'exit サブ
もしも
ocompdef.flatpattern.exitedit がリリースされました。
キャッチ
エンドトライ
odrawdoc.close ディレクティブ
その他
端 もし
次へ
utilizzo questa regola per estrarre i dxf delle lamiere. funziona bene ma mi piacerebbe che nel nome del file ci sia lo spessore della lamiera.
Qulcuno che riesca 広告の実装?
グラジエ!
'アセンブリファイルとしてアクティブなドキュメントを定義する
dim oasmdoc として アセンブリドキュメント
oasmdoc = このアプリケーション.activedocument
oasmname = left(oasmdoc.displayname, len(oasmdoc.displayname) -4)
'アクティブなドキュメントがアセンブリファイルであることを確認してください
このapplication.activedocument.documenttype <> kassemblydocumentobject の場合、
messagebox.show("アセンブリファイルからこのルールを実行してください。", "ilogic")
出口のサブ
端 もし
'get user 入力
rusure = メッセージボックス.show ( _)
"これは、シートメタルであるすべてのアセンブリコンポーネントのdxfファイルを作成します。" ツイート
& vblf & "このルールは、部分ファイルが保存されていることを期待しています。" ツイート
と vblf と " _
& vblf & "すべてのアセンブリコンポーネントのdxfを作成したいですか? ツイート
& vblf & "これはしばらくかかることができます。", "ilogic - バッチ出力dxfs ",messageboxbuttons.yesno"
rusure = vbno なら、
フィードバック
その他
端 もし
opath = このドキュメント.path
odatamedium = このアプリケーション。transientobjects.createdatamedium
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = iomechanismenum.kfilebrowseiomechanism
ooptions = thisapplication.transientobjects.createnamevaluemap
'get dxf ターゲットフォルダーパス
ofolder = opath と "\" と oasmname と "dxf ファイル"
'dxf フォルダーをチェックし、存在しない場合に作成します。
system.io.directory.exists(ofolder)でなければ、
system.io.directory.createdirectory(フォルダ)
端 もし
- - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - -
'アセンブリによって参照されるファイルを見て下さい
文書化者としてのorefdocs
orefdocs = oasmdoc.allreferenceddocuments
ドキュメントとしてのorefdoc
'参照されたモデルの描画ファイルを扱う
'これはモデルが保存されていることを期待しています
orefdocs の各 orefdocs
iptpathname = left(orefdoc.fulldocumentname, len(orefdoc.fulldocumentname) - 3) & "ipt"
'モデルが保存されているチェック
if(system.io.file.exists(iptpathname) 以降
dim odrawdoc として partdocument
odrawdoc = thisapplication.documents.open(iptpathname, true) ディレクティブ
ofilename = left(orefdoc.displayname, len(orefdoc.displayname)))
お問い合わせ
'dxf ターゲットファイル名を設定する
お問い合わせ
customname =iproperties.value(ofilename, "custom", "pf_prt_znr")
キャッチ
customname ="astra srl" 'wert, wenn ipropertie pf_prt_znr nicht presentiert
エンドトライ
odatamedium.filename = ofolder & "\" & customname & "& ofilename & ".dxf"
dim ocompdef シートメタルコンポンデント定義
ocompdef = odrawdoc.componentdefinition
ocompdef.hasflatpattern = false の場合、
ocompdef.unfoldの
その他
ocompdef.flatpattern.edit は、
端 もし
dim sout を文字列として
sout = "フラットパターンdxf?acadversion=2004&outerprofilelayer=iv_outer_profile"
ocompdef.dataio.writedatatofile( sout, odatamedium.filename) のファイル
'ちょうどその作品をチェックする
'i=messagebox.show(odatamedium.filename、"title"、messageboxbuttons.okcancel)
'messagebox.show(i,"title",messageboxbuttons.ok)
i=2 の場合
'exit サブ
もしも
ocompdef.flatpattern.exitedit がリリースされました。
キャッチ
エンドトライ
odrawdoc.close ディレクティブ
その他
端 もし
次へ