サブメイン()
odocをdrawdocumentとして
シートとして dim osheet
dim oview as ドロービュー
dim の iter 長く
'アクティブなドキュメントが描画されているかどうかをチェックする
もし thisapplication.activedocument.documenttype <> kdrawingdocumentobject その後
出口のサブ
端 もし
odoc = このアプリケーション.activedocument
イタ = 1
すべてのシートに「詳細とセクションビューの識別子の名前を変更します
「すべてのシートを通して照らして下さい
odoc の各osheet の シート
「シートのすべてのビューを通してiterate
osheet.drawingviews の各ビューについて
oview.viewtype = Drawingviewtypeenum.kdetaildrawingviewtype またはoview.viewtype = drawviewtypeenum.ksectiondrawingviewtype その後
oview.name = num2letter(イター)
iter = iter + 1
instr(1,num2letter(iter), "i") > 0, instr(1,num2letter(iter), "o") > 0, instr(1,num2letter(iter), "q") > 0
iter = iter + 1
端 もし
端 もし
次のoview
次の表
エンドサブ
文字列としてpublic関数num2letter(num)
'対応するアルファに長く変換
'ex. 1 = a, 28 = ab
残り = num mod 26
全体 = 修正(num / 26)
num < 27 の場合
残り = 0 の場合
num2letter = "z"
その他
num2letter = chr(残り + 64)
端 もし
その他
残り = 0 の場合
num2letter = chr(whole + 63) & "z"
その他
num2letter = chr(whole + 64) & chr(remain + 64)
端 もし
端 もし
エンド機能
msgbox("ok fatto")ルールは共有されていましたが、このフォーラムのユーザーによって作成されていないので、私がレビューしたコードでは、ソースコードのスレッドを参照しています。
'オートアレイ:ロッサノプラデリア
'データ: 2019年4月16日
「このコードは、保証なしに「そのまま」に提供されます
' codice Originale: https://forums.autodesk.com/t5/inventor-forum/section-view-label-increment/m-p/6436629/highlight/true#m604786
' オートアコード オリジナル: https://forums.autodesk.com/t5/user/viewprofilepage/user-id/3909564
パブリックサブレジェンシー()
odocをdrawdocumentとして
シートとして dim osheet
dim oview as ドロービュー
dim iterdet, itersec 限り長い
'dim iteroth は長い'オプション機能です
'アクティブなドキュメントが描画されているかどうかをチェックする
このapplication.activedocument.documenttype = documenttypeenum.kdrawingdocumentobject の場合 それから
odoc = このアプリケーション.activedocument
' セクションビューの最初の文字 "a" (この番号の増加)
イタデット = 1
' 初期文字 "y" で詳細ビュー (この数字が減る)、 "z" で 20 に変更
イタセック = 400
' iteroth = 301' オプション機能
すべてのシートに「詳細とセクションビューの識別子の名前を変更します
odoc の各osheet の シート
osheet.drawingviews の各ビューについて
ケースoviewを選択します。 ビュータイプ
ケース ドローイングビューtypeenum.kdetaildrawingviewtype
oview.name = num2letter(iterdet)
イタデット += 1
ケース ドローイングビューtypeenum.ksectiondrawingviewtype
oview.name = num2letter(itersec)
itersec -= 1
その他
他のビュータイプ:オプション機能
'oview.name = num2letter(iteroth)
'iteroth += 1
端の選択
次のoview
次の表
その他
messagebox.show("Activedocument はドロードドキュメント型でなければなりません")
端 もし
エンドサブ
関数 num2letter(int16) 文字列として
' "abcdefghijklmnopqrstuvwxyz"
' 文字 da esclude dai nomi vista i, o, q, s, x, z.
文字列 = "abcdefghjklmnprtuvwy"
dim ベースとして int16 = chars.length
dim は int16 として、全体残ります
num2letter = "**"
num < 401 の場合
残り=int(num mod base)
全体 = int(数字/ベース)
num < ベース の場合
num2letter = iif(remain = 0、chars.last()、chars(remain - 1))
その他
num2letter = iif(remain = 0、chars(whole - 1) + chars.last()、chars(whole - 1) + chars(remain)))
端 もし
その他
messagebox.show("num2letter - valore massimo 同意する argomento num = 400")
端 もし
エンド機能
'オートアレイ:ロッサノプラデリア
'データのクレアジオーネ: 2019年4月16日
' リビジョン 01
'データリビジョン : 2019年4月18日
' codice Originale: https://forums.autodesk.com/t5/inventor-forum/section-view-label-increment/m-p/6436629/highlight/true#m604786
' オートアコード オリジナル: https://forums.autodesk.com/t5/user/viewprofilepage/user-id/3909564
' esempio ディ utilizzo
サブメイン()
レジデンシファイア()
エンドサブ
パブリックサブレジェンシー()
odocをdrawdocumentとして
シートとして dim osheet
dim oview as ドロービュー
dim iterdet, itersec 限り長い
'dim iteroth は長い'オプション機能です
' 関数 num2letter のオプション chars 引数
dim chars として string = "abcdefghijklmnopqrstuvwxyz"
'アクティブなドキュメントが描画されているかどうかをチェックする
このapplication.activedocument.documenttype = documenttypeenum.kdrawingdocumentobject の場合 それから
odoc = このアプリケーション.activedocument
' セクションビューの最初の文字 "a" (この番号の増加)
イタセック = 1
' 初期文字 "y" を詳細ビュー (この数字が減少)
' iterdet = 400 ' のダブル文字の名前を to y(または zz)
iterdet = chars.length ' を 1 つの文字の名前を to y(または z) のように呼びます。
' iteroth = 301' オプション機能
「すべてのシートに詳細とセクションビューの識別子の名前を変更します
odoc の各osheet の シート
osheet.drawingviews の各ビューについて
ケースoviewを選択します。 ビュータイプ
ケース ドローイングビューtypeenum.kdetaildrawingviewtype
oview.name = num2letter(iterdet)
' iterdet += 1 ' 詳細インデックスを増加させたい場合は
iterdet -= 1
ケース ドローイングビューtypeenum.ksectiondrawingviewtype
oview.name = num2letter(itersec)
' itersec -= 1 ' セクションのインデックスを削減したい場合
イタセック += 1
その他
他のビュータイプ:オプション機能
'oview.name = num2letter(iteroth)
'iteroth += 1
端の選択
次のoview
次の表
その他
messagebox.show("Activedocument はドロードドキュメント型でなければなりません")
端 もし
エンドサブ
パブリック関数 num2letter(int16 としてnum, string = "abcdefghjklmnprtuvwy") 文字列
「abcdefghijklmnopqrstuvwxyz」 エレンコ・コンプリート・デ・カルタペリ
' il valore di デフォルト dell'argomento chars esclude i seguenti caratteri
' 文字 da esclude dai nomi vista i, o, q, s, x, z
dim ベースとして int16 = chars.length
dim は int16 として、全体残ります
dim max as int16 = ベース ^ 2
num <=max と num の場合 > 0 それから
残り=int(num mod base)
全体 = int(数字/ベース)
num < ベース の場合
num2letter = iif(remain = 0、chars.last()、chars(remain - 1))
その他
num2letter = iif(remain = 0、chars(whole - 1) + chars.last()、chars(whole - 1) + chars(remain)))
端 もし
その他
"-<*" se num è マイナーディ 1
' "*> +" se num è oltre il limite massimo
num2letter = iif(num < 1、"-<*"、"*>+")
端 もし
エンド機能