私はお金を払っている人ではなく、誰がPCと柔軟なものでより快適である人ではありません、私はすべてを自分で行う必要があり、私は何らかの方法で作業を明るくすることができます信頼できるディーラーはありますか? この操作を正確に行うボタンを作成しました。
「私たちはいつもこれをやった」私はお金を払っている人ではなく、誰がPCと柔軟なものでより快適である人ではありません、私はすべてを自分で行う必要があり、私は何らかの方法で作業を明るくすることができます
今、私はテーブルのための手動でテーブルを行う必要があります, テンプレートから古いテーブルにコピーペースト....迷惑!「私たちはいつもこれをやった」
私が理解したジョークとは別に、私はその理由で会社のために長年働いた、そしてゆっくりと彼らは、小さな投資が正当にutの仕事の配信時に反映されていることを認識しました。
「ソース転送ウィザード」では、まだ多くの仕事をすることができます。私はインベータのアプリケーションでそれを行うことができます, しかし、それはあまりにも重く、遅く、私はまだ質量で更新されるために古くなっている図面 (それはそれだけの価値はありません).
その後、手順は、あなたが顔に指示されたことを言う必要がある所有者に時間がかかります:私はお金を払っている人ではなく、誰がPCと柔軟なものでより快適である人ではありません、私はすべてを自分で行う必要があり、私は何らかの方法で作業を明るくすることができます
パブリックサブメイン()
'アクティブなドキュメントでタイトルをチェックする
お問い合わせ
odrawdocをdrawdocumentとして
odrawdoc = このアプリケーション.activedocument
'deferupdate state を描画するかどうかを確認します。
odrawdoc.drawingsettings.deferupdates = "false" でなければ、
'showerror(" は、描画ファイルが deferupdate であるため、タイトルを変更できません")
出口のサブ
端 もし
'sostituisco i simboli nel disegno
お問い合わせ
削除シンボル
コピーシンボル
キャッチ
エンドトライ
dim title="nome cartiglio nuovo"のタイトル
コール置換名(タイトル)
キャッチ
msgbox("errore durante sostituzione cartiglio")
エンドトライ
エンドサブ
サブ置換タイトル(文字列としてbyref title)
odrawdocをdrawdocumentとして
odrawdoc = このアプリケーション.activedocument
dim テンプレート = "percorso cartelle file con cartiglio nuovo.idw"
dim otemplate として ドロードドキュメント
osourcetitleblockdef を titleblockdefinition とする
dim onewtitleblockdef タイトルブロック定義
dim osheet = odrawdoc.activesheet
お問い合わせ
'apro il テンプレート
otemplate = thisapplication.documents.open(template, false)
'aggancio la defineizione del nuovo kartilio
osourcetitleblockdef = otemplate.titleblockdefinitions.item(title)
'copio la defineizinoe del cartiglio nel nuovo disegno
onewtitleblockdef = osourcetitleblockdef.copyto(odrawdoc、true)
'chiudo il テンプレート
otemplate.close ディレクティブ
'msgbox("tentativo di inserimento cartiglio"&タイトル)
'inerimento カルティグリオ sul disegno
' dim i は整数者として
' intprompts を整数 = 0
' i = 1 から onewtitleblockdef.sketch.textboxes.count
' dim otext = onewtitleblockdef.sketch.textboxes(i)
' if (otext.text = "my_prompt")
' intprompts = intprompts + 1
' が終わる場合
次へ
'msgbox("trovati"&"intprompts&"messaggiプロンプト")
dim oprompts(2) 文字列
オプロンプト(0) = ""
oprompts(1) = ""
oprompts(2) = ""
osheet.titleblock.delete()
osheet.addtitleblock (onewtitleblockdef、oprompts)
'msgbox("title block" を "& vbcr & title" に変更)
例外として ex をキャッチ
msgbox("errore": "&ex.message")
エンドトライ
エンドサブ
サブdeletsymbols
dim odoc として ドロードドキュメント = thisdoc.document
dim osksymdefs として スケッチedsymboldefinitions = odoc.sketchedsymboldefinitions
dim osksymdef として スケッチedsymboldefinition
osksymdefs の各 osksymdefs
osksymdef.isreferenced = false の場合、
osksymdef.deleteの
端 もし
次へ
エンドサブ
サブコピー
dim strselectedstamp as string = "result2"
dim strstamplist は新しい配列リストとして
dim strstamp boolean として必須
strstamprequired = true の
strstamplist.add("nome cartiglio nuovo")
'strstamplist.add("altro")
'strstamplist.add("test")
strselectedstamp = inputlistbox("スタンプを選択します。", strstamplist, strselectedstamp, "スタンプ選択", "利用可能なスタンプ")
dim strdrawdoc として inventor.drawingdocument = thisapplication.activedocument
文字列 = percorso cartele file con cartiglio nuovo.idw
dm strsourceidw をドロードドキュメントとして
strsourceidw = thisapplication.documents.open(sourcefile, false) ディレクティブ
dim icondef として スケッチsymboldefinition
dim copyfrom として スケッチsymboldefinition
お問い合わせ
strsourceidw.sketchedsymboldefinitions の各シンボル定義のため
copyfrom = (symboldef.copyto(strdrawdoc, true) ) から
次へ
例外として ex をキャッチ
messagebox.show(例:「タイトル」)
エンドトライ
strsourceidw.close() は、
エンドサブしかし、それはilogicコードですか? インサートする方法こんにちは。
私は彼女のこのルールと、フォームを作成してボタンを作る
ルールで交換する
「新しいカティリオ名」
"新しい cartiglio.idwでファイルフォルダをパス"
Code:パブリックサブメイン() 'アクティブなドキュメントでタイトルをチェックする お問い合わせ odrawdocをdrawdocumentとして odrawdoc = このアプリケーション.activedocument 'deferupdate state を描画するかどうかを確認します。 odrawdoc.drawingsettings.deferupdates = "false" でなければ、 'showerror(" は、描画ファイルが deferupdate であるため、タイトルを変更できません") 出口のサブ 端 もし 'sostituisco i simboli nel disegno お問い合わせ 削除シンボル コピーシンボル キャッチ エンドトライ dim title="nome cartiglio nuovo"のタイトル コール置換名(タイトル) キャッチ msgbox("errore durante sostituzione cartiglio") エンドトライ エンドサブ サブ置換タイトル(文字列としてbyref title) odrawdocをdrawdocumentとして odrawdoc = このアプリケーション.activedocument dim テンプレート = "percorso cartelle file con cartiglio nuovo.idw" dim otemplate として ドロードドキュメント osourcetitleblockdef を titleblockdefinition とする dim onewtitleblockdef タイトルブロック定義 dim osheet = odrawdoc.activesheet お問い合わせ 'apro il テンプレート otemplate = thisapplication.documents.open(template, false) 'aggancio la defineizione del nuovo kartilio osourcetitleblockdef = otemplate.titleblockdefinitions.item(title) 'copio la defineizinoe del cartiglio nel nuovo disegno onewtitleblockdef = osourcetitleblockdef.copyto(odrawdoc、true) 'chiudo il テンプレート otemplate.close ディレクティブ 'msgbox("tentativo di inserimento cartiglio"&タイトル) 'inerimento カルティグリオ sul disegno ' dim i は整数者として ' intprompts を整数 = 0 ' i = 1 から onewtitleblockdef.sketch.textboxes.count ' dim otext = onewtitleblockdef.sketch.textboxes(i) ' if (otext.text = "my_prompt") ' intprompts = intprompts + 1 ' が終わる場合 次へ 'msgbox("trovati"&"intprompts&"messaggiプロンプト") dim oprompts(2) 文字列 オプロンプト(0) = "" oprompts(1) = "" oprompts(2) = "" osheet.titleblock.delete() osheet.addtitleblock (onewtitleblockdef、oprompts) 'msgbox("title block" を "& vbcr & title" に変更) 例外として ex をキャッチ msgbox("errore": "&ex.message") エンドトライ エンドサブ サブdeletsymbols dim odoc として ドロードドキュメント = thisdoc.document dim osksymdefs として スケッチedsymboldefinitions = odoc.sketchedsymboldefinitions dim osksymdef として スケッチedsymboldefinition osksymdefs の各 osksymdefs osksymdef.isreferenced = false の場合、 osksymdef.deleteの 端 もし 次へ エンドサブ サブコピー dim strselectedstamp as string = "result2" dim strstamplist は新しい配列リストとして dim strstamp boolean として必須 strstamprequired = true の strstamplist.add("nome cartiglio nuovo") 'strstamplist.add("altro") 'strstamplist.add("test") strselectedstamp = inputlistbox("スタンプを選択します。", strstamplist, strselectedstamp, "スタンプ選択", "利用可能なスタンプ") dim strdrawdoc として inventor.drawingdocument = thisapplication.activedocument 文字列 = percorso cartele file con cartiglio nuovo.idw dm strsourceidw をドロードドキュメントとして strsourceidw = thisapplication.documents.open(sourcefile, false) ディレクティブ dim icondef として スケッチsymboldefinition dim copyfrom として スケッチsymboldefinition お問い合わせ strsourceidw.sketchedsymboldefinitions の各シンボル定義のため copyfrom = (symboldef.copyto(strdrawdoc, true) ) から 次へ 例外として ex をキャッチ messagebox.show(例:「タイトル」) エンドトライ strsourceidw.close() は、 エンドサブ
このdoc.document.documenttype = inventor.documenttypeenum.kdrawingdocumentobject の場合、
thisdrawing.keepextraresources = 偽
このdrawing.resourcefilename = "percorso completo nuovoテンプレート"
端 もしidw フィールドの通路を説明します。しかし、それはilogicコードですか? インサートする方法
プログラマではなく、ネットで見つけたルールから、必要なことをやったとき、私は保存して、もう何も触れませんでした。ニュース 確認のおかげで、その理由はシンボルの定義とスクリプトが古いバージョンの発明者のために書かれていると感じました。
また、以下のスクリプトを使ってテンプレートを置き換えるのもなぜか尋ねましたが、すべてのニーズに合わないことに気付きました。私はまた、彼が書いたバージョンが興味深い見つけた ジェレテジョン お問い合わせ デベート オートデスクサイトでは、よく書かれてきれいに思えるのでシェアしていますか?Code:このdoc.document.documenttype = inventor.documenttypeenum.kdrawingdocumentobject の場合、 thisdrawing.keepextraresources = 偽 このdrawing.resourcefilename = "percorso completo nuovoテンプレート" 端 もし
お問い合わせ ilogic 部分で完全に高速化されているidw フィールドの通路を説明します。
1) 上部のbroswerで、+ + をクリックして項目「モデル」と「+」を持っている必要があります。
2) 下のタブ「ルール」 - 「モジュール」 - 「グローバルモジュール」 - 「外部ルール」
違いは、最初に2つが機能しているファイルでのみ有効であるということです。最後の2つはそれらを常に使うことができます。
3) 2番目のオプションを検討するか、常に有効である場合は、「外部ルール」ボタンdxに移動します
4) 外部ルールを作成 -- パスを選択し、「registername.txt」を保存しますので、必要に応じて同僚と共有するのは簡単です
5) 前のメッセージのコードをコピーして貼り付けます。 保存して閉じる
6)新しく作成されたdxのキー規則のリストで見つけて下さい、それが働き、あなたが必要とするものをします。
7)空白スペースボタンdxでグローバルモジュールに移動 "モジュールを追加"
8)モジュール作成画面がフォーム名を入力する開きます
9) ルールエントリの下に残して、ルールが近いペインで右にドラッグするはずです
10) コールバックし、あなたが見つけたグローバルモジュールに行く必要があるルールを実行するために
モジュールが作成され、ルール名でボタンをクリック(カスタマイズ可能)