Ayrıca mevcut değeri, benim için revizyon olarak adlandırılan bileşen özellikleri kutusunda almak ve ihraç edilen dosya adına eklemek istiyorum. ..can, adın set uzunluğu tüm karakterleri kapsamaz mı? Ben dize demek istiyorum:
Dosya adı = stringler.left(filename, len(filename) - 7)
Çimetto oğluo quelle che, modificare, gel si chiama la proprietà di revizyone nei tuoi dosyası e come èce valore zero che vuoi che non venga riportato nel nome. quella non è la akciğerhezza dei caratteri ma semplicemente Cancella gli ultimi del filename, ovvero l'esxinge.
_____________
seçeneği açık
dim, işleri mahvediyor. sldworks
dim swmodel as sldworks.modeldoc2
dim sldworks olarak battı.drawingdoc
dim swview as sldworks. bakış görünümü
dim swmodelref as sldworks.modeldoc2
dim getthatinfo as string
dim swmodeldocext as sldworks.modeldocexction
dim swexportdata as sldworks.exportpdfdata
dim boolstatus as boolean
dim boolstatuspdf as boolean
dim boolstatusdxf as boolean
dim dize olarak çizer
dim pdf as string
dim dxf as string
dim filename as string
dim lerrors as long
dim lwarnings as long
dim revisione as string
dim desc as string
alt ana()
Ayarlama = uygulama. sldworks
swmodel = exchangep.activedoc "Denetla che documento è aperto
Eğer swmodel bir şey değilse o zaman
msgbox "Mevcut belge", vb.
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
Sonunda, eğer sona erirse
Eğer swmodel. Gettype <> swdocdrawing sonra ‘se è di ipucuo karmaşası’
msgbox "Bu makro sadece çizimlerde çalışır", vb.
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
Sonunda, eğer sona erirse
swmodeldocext = swmodel.exction
swexportdata = exchangep.getexportfiledata (swexportpdfdata)
'aazeramento delle variabili di check
boolstatus = false
boolstatuspdf = false
boolstatusdxf = false
dxf = ""
pdf = ""
'recupera percorso e nome file con estane
Dosya adı = swmodel.getpathname
'Denetle se è stato salvato
Eğer dosya adı = ""
msgbox "Önce dosyayı kurtarın ve tekrar deneyin", vb.
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
Sonunda, eğer sona erirse
“Yavaş çizimi / salva la dağınıka in
boolstatus = swexportdata.setsheets(swexportdata_exportallsheets, 1) 1) 1)
boolstatus = swmodeldocext.saveas(filename, 0, 0, swexportdata, lerrors, lwarnings)
Eğer boolstatus o zaman
= "ok"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
= "failed"
Sonunda, eğer sona erirse
"prende la proprietà
swdraw = swmodel
swview = swdraw.get Firstview = swdraw.get
swview = swview.get nextview
swmodelref = swview.referenceddocument
revizyone = swmodelref.getcustominfovalue(", "
Revi Revi" " ""
“Geri dönüşüm değişkeni boş olup olmadığını kontrol edin veya 0.0
Dosya adı = stringler.left(filename, len(filename) - 7)
Eğer incelendiyse
0.0 0.0 0.0" ve revizyone <> "
-" ve revizyone <> "" sonra
Dosya adı = filename & "_rev" & revizyone 'u iptal et 0.0
Sonunda, eğer sona erirse
pdf olarak
Dosya adı = stringler.left(filename, len(filename) & ".pdf"
boolstatuspdf = swexportdata.setsheets(swexportdata_exportallsheets, 1) 1) 1)
boolstatuspdf = swmodeldocext.saveas(filename, 0, 0, swexportdata, lerrors, lwarnings)
Eğer boolstatuspdf o zaman
pdf = "ok"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
pdf = "failed"
Sonunda, eğer sona erirse
"Axf olarak
Dosya adı = stringler.left(filename, len(filename) - 3) & "dxf"
boolstatusdxf = swexportdata.setsheets(swexportdata_exportallsheets, 1) 1) 1)
boolstatusdxf = swmodeldocext.saveas(filename, 0, 0, swexportdata, lerrors, lwarnings)
boolstatusdxf sonra
dxf = "ok"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
dxf = "failed"
Sonunda, eğer sona erirse
'Katılım kurtarılmış statü
boolstatus <> boolstatuspdf <> boolstatusdxf sonra
msgbox "tüm başarılı" _
And etclf & "" _
And etclf & filename
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
msgbox "save as çizim başarısız" _
And etclf & "" _
& vlf & "sw çiz:" & çiz
& vlf & "pdf: " & pdf _
And etclf & "dxf: " & dxf _
And etclf & "" _
Ve vslf & "terör kodu:" & lerrors _
And etclf & "" _
And etclf & filename
Sonunda, eğer sona erirse
Sonunda alt alt