ciao
Makrounuzu inceledim, bazı hataları buldum, ana kişi bu şekilde iki ana nesneyi yazmanız için kullanılan yöntemlerdir, bu yüzden aynı zamanda tablo belgesinin (drawingdoc) bir parçasısınız.
dim, nesne olarak değiştirir
dim, işleri mahvediyor. sldworks
Masa içindim nesne olarak boğuldu ‘diventa
dim sldworks olarak battı.drawingdoc
“Bölüm içindim swpart as object 'diventa
dim swpart as sldworks. partdoc
'siemedim swasm as object 'diventa
dim swasm as sldworks.assemblydoc
ad ogni modo ho riscritto holdto e ti ho inserito i commenti così capisci cosa sta facendo la makro nelle varie fasi.
dim, işleri mahvediyor. sldworks
dim sldworks olarak battı.drawingdoc
dim boolstatus as boolean
dim longstatus uzun, uzun zamandır, uzun zamandır
dim Stylecount as long, i as long
dim swsheet as sldworks. Sayfa
alt ana()
Ayarlama = uygulama. sldworks
swdraw = exchangep.activedoc
‘ ‘ ‘ Şu anda aktif sayfası kullandımswsheet = swdraw.getcurrentsheet
vsheetnamearr = swdraw.getsheetnames
‘ ‘ ‘ Şu anda aktif sayfa adı kullandım‘ ‘ ‘ Not ekleme döngüsünden sonra rapor etmek için sonunda ihtiyacım var
“Başlangıç sayfasının aktifleştirilmesi
dim nsheet as string
nsheet = swsheet.getname
"ciclo i foglifor each vsheetname in vsheetnamearr
bret = swdraw.activatesheet(vsheetname): debug.assert bret
dim mynote as object
dim myannotation as object
dim mytextformat as object
"Ben notu ekleMynote = swdraw.insertnote()<font size="72pts" style="b">Boza")
</font>
“Ben özellikleri, yeri, renk vs tanımlarım.Eğer mynote bir şey değilse o zaman
mynote.lockposition = false
Mynote. st = 0
boolstatus = mynote.setballoon (0, 0)
Myannotation = mynote.getannotation()
Eğer myannotasyon bir şey değilse o zaman
Uzunstatus = myannotation.set Leader3(sw Leaderstyle_e.swno_ Leader, 0, gerçek, sahte, sahte, sahte)
boolstatus = myannotation.setposition (0.115, 0.07, 0)
Mytextformat = swdraw.getuserpreferencetextformat ****
Mytextformat.italic = false
Mytextformat.underline = false
Mytextformat.strikeout = false
Mytextformat.bold = gerçek
Mytextformat.escapement = 0
Mytextformat.linespacing = 0.001
Mytextformat.charheightinpts = true
Mytextformat.typefacename = " yüzyıl gothic"
Mytextformat. geniş faktör = 1
Mytextformat.oblique st = 0
Mytextformat.linelong = 0
Mytextformat.vertical = false
mytextformat.backwards = false
Mytextformat.upsidedown = false
Mytextformat.charspacing factors = 1
‘ ‘ ‘ Özellikleri notaya uygularımboolstatus = myannotation.settextformat(0, false, mytextformat)
"deseleziono qualsiasi selezione intiva e aggiorno la greica
swdraw. Gerçek gerçek gerçek gerçek gerçek gerçek gerçek gerçek
swdraw.windowredraw
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse
next vsheetnamename
“İlk sayfayı etkinleştirin, aksi takdirde utimo sayfasında kalırbret = swdraw.activatesheet(nsheet)
Sonunda alt alt
