Nomi viste.

[leggera]

İyi akşam,

Ancak, mektupların artan mektuplara sahip olması için isimleri ve ayrıntıları sıfırlayabilirsiniz?

Daha sonra bir bc görünümü yapmak için olur, bir örnek b ve sen bir ve c kalırsın...

Onları açıkça çağıran bir komut bilmiyorum. .

Teşekkür ederim.

 

[batleo]

ciao io, arayışı kullanabilir

alt ana()
dim odoc as çizimdocument
dim oform as page
dim oview as çizimview
dim iter as long

Aktif belgenin bir çizim olup olmadığını kontrol edin
Buapplication.activedocument.documenttype <> kdrawingdocumentobject sonra
çıkış alt alt alt
Sonunda, eğer sona erirse

Odoc = buapplication.activedocument

iter = 1

'rename detay ve bölüm tüm çarşaflarda tanımlayıcılar
Bütün çarşaflar aracılığıyla
Odoc'daki her bir forumu için. çarşaflar
"tüm görüşlerin hepsine göre
O tabloda her görüş için.drawingviews
Eğer oview.viewtype = çizimtypeenum.kdetaildrawingviewtype or oview.viewtype = çizimtypeenum.ksectiondrawingviewtype then then
Oview.name = num2letter(iter)
iter = iter + 1
Eğer instr (1, num2letter (iter), "i") > 0 veya instr (1, num2letter (iter), "o") > 0 veya instr (1, num2letter (iter), "q") 0 >
iter = iter + 1
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse
Bir sonraki oview
next oform

Sonunda alt alt

Public function num2letter(num as long) as string
“Döntücü alfa’ya uzun süre
1 = a, 28 = ab

= num mod 26
Tüm = düzeltme(num / 26)

If num < 27 then
Eğer kalırsanız = 0
num2letter = "z"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
num2letter = chr(remain + 64)
Sonunda, eğer sona erirse
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Eğer kalırsanız = 0
num2letter = chr( Whole + 63) & "z"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
num2letter = chr( Whole + 64) & chr(remain + 64)
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse
end fonksiyonu

msgbox ("ok fatto")

 

[leggera]

Cevap için teşekkür ederiz.
Şimdi, kuralları mucite nasıl koymak zorundayım.

 

[batleo]

Ayırma alanında geçişleri açıklamaya çalışıyorum.
1) Üst genel olarak, "model" ve "+" öğeye sahip olmanız gerekir + "ilogic" ekleyin.
2) sekmelerin altında “kurallar” görünüyor - " modüller" - küresel modüller" - "external kurallar"
Fark, ilk ikinin sadece çalıştığınız dosyada geçerli olmasıdır, son ikisi her zaman onları kullanabilir
3) İkinci seçeneği veya her zaman geçerli olmayı düşünün, dxx
4) dış kural yaratır - yolu seçin ve " Kayıtname.txt" tasarruf edin, böylece gerekli meslektaşları ile paylaşmak daha kolaydır.
5) Önceki mesajın kodunu kopyalayın ve yapıştırın. Kaydet ve yakın
6) Yeni yaratılan dx anahtar kuralında bulun, eğer çalışır ve ihtiyacınız olanı yapar.
7) boş uzay düğmesi dx "Add Module"
8) modülün yaratım ekranını açın
9) kuralların girişi altında kaldınız, kuralınızın yakın panede doğru sürüklenmesi gerekir.
10) Şimdi geri çağırmak ve sadece bulduğunuz kuralı uygulamak, bulduğunuz küresel modüllere gitmek zorundasınız.
Modül sadece kural adı ile düğmeye tıklayın (bu özelleştirilebilir)

 

[BrunoMusto]

İyi sabah, şu anda kullandığım bu kuralı oluşturmak için size teşekkür etmek istiyorum. Yarı-Austrian şirketimde, bölümlerini baştan ve z'den ayrıntıları yeniden adlandırmalıyım. Dosyayı düzenleyebilirseniz bilmek istiyorum, böylece bu özel düzeni yanıtlarsınız.

 

[dsw]

İyi sabah, bu kuralı oluşturmak için size teşekkür etmek istiyorum

Kural paylaşıldı, ancak bu forumun bir kullanıcısı tarafından yaratılmadı, incelediğim kodda kaynak kodunun konuya referanslar yazdım.

" autore: rossano praderi
" data: 16/04/2024
“Bu kod, garanti olmadan “as is” sağlanmaktadır.

" codice originale: https http://forums.autodesk.com/t5/inventor-forum/bölüm-view-label-increment/m-p/6436629/highlight / Fullm604786
" autore codice originale: https://forums.autodesk.com/t5/user/view Profil/user-id/390956464

Halk sub regenviewidentifiers()
dim odoc as çizimdocument
dim oform as page
dim oview as çizimview
dim iterdet, itersec as long
“Uzun ‘yeterli özellikler

Aktif belgenin bir çizim olup olmadığını kontrol edin
Buapplication.activedocument.documenttype = documenttypeenum.kdrawingdocumentobject O zaman sonra
Odoc = buapplication.activedocument

1.Bölümler için "a" ilk mektup (bu sayı artışı)
iterdet = 1

"yy" ilk mektupları ayrıntılı görüş için (bu sayı azalır), "z" için 20'ye kadar değişir.
itersec = 400 400

" iteroth = 301 ' Seçmeli özellikler

'rename detay ve bölüm tüm çarşaflarda tanımlayıcılar
Odoc'daki her bir forumu için. çarşaflar
O tabloda her görüş için.drawingviews
seçin case oview. viewtype
Vaka çizimitypeenum.kdetaildrawingviewtype
Oview.name = num2letter(iterdet)
iterdet + = 1 1 1
Vaka çizimitypeenum.ksectiondrawingviewtype
Oview.name = num2letter(itersec)
itersec - = 1
Başka bir durumda başka durum
“Diğer bakış türleri: Seçmeli özellikler
"oview.name = num2letter(iteroth)
‘iteroth + = 1 1 1
son seçim
Bir sonraki oview
next oform
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Mesajbox.show (" aktifdocument bir çizim türü olmak zorundadır")
Sonunda, eğer sona erirse
Sonunda alt alt

Public function num2letter(num as int16) as string
"abcdefghijklmnopqrstuvwxyz"
" harfe da escludere dai nomi vista i, o, q, s, x, z.
dim chars as string = "abcdefghjklmnprtuvwy"
dim üssü int16 = chars.long
dim kalır, bütün int16

num2letter = "**"

Eğer num < 401 o zaman
kalır = int(num mod üssü)
Bütün = int(num / base)

Eğer num < üssü o zaman
num2letter = iif(remain = 0, kars.last(), chars(remain - 1))
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
num2letter = iif(remain = 0, chars ( Whole - 1) + kars.last(), chars ( Whole - 1) + chars (remain)
Sonunda, eğer sona erirse
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Mesajbox.show("num2letter - valore Massimo consentito argomento num = 400")
Sonunda, eğer sona erirse
end fonksiyonu

Benim kodum test edilmedi ve bazı boşluklar olduğunu biliyorum, ancak herkes özel sorunlar olmadan çalışmalıdır.

cmq eğer birisi bunu test etme ve geri bildirim verme fırsatına sahipse...

 

[Matteo Cappelli dis.CAD]

İyi sabah, bence bu ücretsiz uygulama da yararlı olabilir

https://apps.autodesk.com/invntor/it/detail/index?id=5865579990954428&applang=en&os=win64

 

[BrunoMusto]

Kural paylaşıldı, ancak bu forumun bir kullanıcısı tarafından yaratılmadı, incelediğim kodda kaynak kodunun konuya referanslar yazdım.

" autore: rossano praderi
" data: 16/04/2024
“Bu kod, garanti olmadan “as is” sağlanmaktadır.

" codice originale: https http://forums.autodesk.com/t5/inventor-forum/bölüm-view-label-increment/m-p/6436629/highlight / Fullm604786
" autore codice originale: https://forums.autodesk.com/t5/user/view Profil/user-id/390956464

Halk sub regenviewidentifiers()
dim odoc as çizimdocument
dim oform as page
dim oview as çizimview
dim iterdet, itersec as long
“Uzun ‘yeterli özellikler

Aktif belgenin bir çizim olup olmadığını kontrol edin
Buapplication.activedocument.documenttype = documenttypeenum.kdrawingdocumentobject O zaman sonra
Odoc = buapplication.activedocument

1.Bölümler için "a" ilk mektup (bu sayı artışı)
iterdet = 1

"yy" ilk mektupları ayrıntılı görüş için (bu sayı azalır), "z" için 20'ye kadar değişir.
itersec = 400 400

" iteroth = 301 ' Seçmeli özellikler

'rename detay ve bölüm tüm çarşaflarda tanımlayıcılar
Odoc'daki her bir forumu için. çarşaflar
O tabloda her görüş için.drawingviews
seçin case oview. viewtype
Vaka çizimitypeenum.kdetaildrawingviewtype
Oview.name = num2letter(iterdet)
iterdet + = 1 1 1
Vaka çizimitypeenum.ksectiondrawingviewtype
Oview.name = num2letter(itersec)
itersec - = 1
Başka bir durumda başka durum
“Diğer bakış türleri: Seçmeli özellikler
"oview.name = num2letter(iteroth)
‘iteroth + = 1 1 1
son seçim
Bir sonraki oview
next oform
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Mesajbox.show (" aktifdocument bir çizim türü olmak zorundadır")
Sonunda, eğer sona erirse
Sonunda alt alt

Public function num2letter(num as int16) as string
"abcdefghijklmnopqrstuvwxyz"
" harfe da escludere dai nomi vista i, o, q, s, x, z.
dim chars as string = "abcdefghjklmnprtuvwy"
dim üssü int16 = chars.long
dim kalır, bütün int16

num2letter = "**"

Eğer num < 401 o zaman
kalır = int(num mod üssü)
Bütün = int(num / base)

Eğer num < üssü o zaman
num2letter = iif(remain = 0, kars.last(), chars(remain - 1))
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
num2letter = iif(remain = 0, chars ( Whole - 1) + kars.last(), chars ( Whole - 1) + chars (remain)
Sonunda, eğer sona erirse
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Mesajbox.show("num2letter - valore Massimo consentito argomento num = 400")
Sonunda, eğer sona erirse
end fonksiyonu

Benim kodum test edilmedi ve bazı boşluklar olduğunu biliyorum, ancak herkes özel sorunlar olmadan çalışmalıdır.

cmq eğer birisi bunu test etme ve geri bildirim verme fırsatına sahipse...

İyi öğleden sonra, öncelikle iş için teşekkür ederim. Kod ithal ettim ve yeni bir kural yarattım, ancak programı çalıştırmaya çalıştığımda hata alıyorum. İlk sırayı ortadan kaldırmak için sorunu düzeltsem, her şey doğru çalışır, ancak detaylar ve bölümler akılda olduğum şeylerden farklıdır. Bu sorunu rahatsız etmeden nasıl çözmeyi öğrenmek istiyorum, ama deneyimli bir programcı değilim. Teşekkür ederim.

 

[dsw]

Doğru düzeltme değişimi "sub main() "

Beklentilerinizden farklı nedir?
Daha fazla ayrıntı verebilir misiniz?

 

[BrunoMusto]

Doğru düzeltme değişimi "sub main() "

Beklentilerinizden farklı nedir?
Daha fazla ayrıntı verebilir misiniz?

Kesinlikle, ihtiyaç duyduğum şey, bölümlerden gelen ve z'den ayrıntıları yeniden adlandırmak. Avusturya kökleri ve katı kurallarla bir şirkette çalışmak, bu da aşırı görünebilir, operasyonun ayrılmaz bir parçasıdır.

 

[dsw]

Aslında, bölümler ve detaylar arasındaki isimleri yeniden atama siparişini tersine çevirdim, bölümler "yy" aşağı ve "a"dan gelen ayrıntılardan ayrıldı.

Orijinal kodumda, çift mektubu kabul ettim ve genellikle bölümler/details (e.g. i, o, q) isimlerinden çıkarılan mektupları dışladım ve aynı zamanda "x" ve "z".

Kodımın revizyonunu yaptım ve görüşlerin isimlerini tanımlamak için hangi mektupları tanımlamak için bir dize değişkeni tanımlama olasılığını ekledim.

Lütfen kodun tek seviye için tasarlandığına dikkat edin (görün adı, e.g. "a", "b"z), iki harf (ikinci seviye) kullanarak hesaba girmelisiniz.

bölümlerin "a" büyüyen ve ayrıntıların son mektuptan ("z" veya "y" veya diğer) descrescendo'dan başlayacağını ihmal etme, aynı isim ile bölümler ve detaylar olabilir.
Benim kodum bu tür bir kontrol yapmaz, ancak birden fazla bölüm/details (e.g. 10 bölüm ve 11 ayrıntı) değişken "kars" (e.g. 20 karakter) isimlerin bir çakışması gerçekleşir.

" autore: rossano praderi
' data creazione: 16/04/2024
' revizyone 01
' data revisione: 18/04/2024
" codice originale: https http://forums.autodesk.com/t5/inventor-forum/bölüm-view-label-increment/m-p/6436629/highlight / Fullm604786
" autore codice originale: https://forums.autodesk.com/t5/user/view Profil/user-id/390956464

" esempio di usingzo
alt ana()
Regenviewidentifiers()
Sonunda alt alt

Halk sub regenviewidentifiers()
dim odoc as çizimdocument
dim oform as page
dim oview as çizimview
dim iterdet, itersec as long
“Uzun ‘yeterli özellikler

" Seçmeli karlar fonksiyonu için argüman num2letter
dim chars as string = "abcdefghijklmnopqrstuvwxyz"

Aktif belgenin bir çizim olup olmadığını kontrol edin
Buapplication.activedocument.documenttype = documenttypeenum.kdrawingdocumentobject O zaman sonra
Odoc = buapplication.activedocument

1.Bölümler için "a" ilk mektup (bu sayı artışı)
itersec = 1

'İlk mektup "yy" ayrıntılı görüş için (bu sayı azalır)
" iterdet = 400" çift mektuplar için yy(veya zz)
Iterdet = chars.long ' for single letter names like a to y(or z)

" iteroth = 301" Seçmeli özellik

'rename detay ve bölüm tüm çarşaflarda tanımlayıcılar
Odoc'daki her bir forumu için. çarşaflar
O tabloda her görüş için.drawingviews
seçin case oview. viewtype
Vaka çizimitypeenum.kdetaildrawingviewtype
Oview.name = num2letter(iterdet)
" iterdet + = 1 ‘Eğer ayrıntıları artırmak istiyorsanız indeks indeks indeks
iterdet - = 1
Vaka çizimitypeenum.ksectiondrawingviewtype
Oview.name = num2letter(itersec)
" itersec - = 1 "Eğer bölüm indeksi azaltırsanız
itersec + = 1 1 1
Başka bir durumda başka durum
“Diğer bakış türleri: Seçmeli özellikler
"oview.name = num2letter(iteroth)
‘iteroth + = 1 1 1
son seçim
Bir sonraki oview
next oform
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Mesajbox.show (" aktifdocument bir çizim türü olmak zorundadır")
Sonunda, eğer sona erirse
Sonunda alt alt

Public function num2letter(num as int16, isteğe bağlı chars as string = "abcdefghjklmnprtuvwy")
"abcdefghijklmnopqrstuvwxyz" elenco completo dei caratteri
'Avalore di default dell'argomento chars esclude i seguenti caratteri
" harfe da escludere dai nomi vista i, o, q, s, x, z
dim üssü int16 = chars.long
dim kalır, bütün int16
dim max as int16 = baz ^ 2

Eğer <= max ve num > 0 Sonra 0
kalır = int(num mod üssü)
Bütün = int(num / base)

Eğer num < üssü o zaman
num2letter = iif(remain = 0, kars.last(), chars(remain - 1))
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
num2letter = iif(remain = 0, chars ( Whole - 1) + kars.last(), chars ( Whole - 1) + chars (remain)
Sonunda, eğer sona erirse
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
"-<* se num è küçüke di 1
"*>+" se num è oltre il limite kütleimo
num2letter = iif(num < 1, "-<*", "*>+")
Sonunda, eğer sona erirse
end fonksiyonu

Umarım açık oldum, çünkü herhangi bir şüpheniz var, sorun.

 

[BrunoMusto]

Çok teşekkür ederim. Her şeyi anladım ve bunu bizim çalışmamız için yararlı hale getirmek için benim zevkime değiştirmeyi başardım. Çok teşekkür ederim.