İyi sabahtan özür dilerim, çalışıyordum ve oldukça meşguldüm.
Teşekkür ederim.
pdf + dwg klasörü oluşturmak zorunda olmadığım için değiştirebilir misiniz?
)Sonuç iyi olmayan birçok faktör var, örneğin format (a3-a4 vs) onu seçen? ve ölçek faktörü ve görüşlerin uzaklığı?İyi sabaha
Uzun zamandır, sayfa bükme masalarının gerçekleşmesi için yeni bir makro oluşturmayı düşünüyordum.
( and ve sıkıcı iş
Yaratmak zorunda olduğum masalar çok basit.
Tablolarda olması gerekir:
- listelenen sayfanın patlama planı
- Çeşitli katların oranları
-materyal ve tabaka kalınlığı
İyi bir tasarımcı olmak ama makroların gerçekleşmesinde Neophyte olmak, herhangi birinin zaten benzer bir şey yarattığını merak ettim.
Teşekkür ederim çok teşekkür ederim
Her şeye merhaba, bu makroları paylaşmak için teşekkürler... büyük makro, sadece küçük bir varyasyon nasıl yapılacağını bilmek istiyorum. pdf dwg ve adım ben mülk "revision" eklemek istiyorum, ama ben de bunun yerine koymalıyım, çünkü masanın kendisi mülk sahibi değil.
Merhaba aldus.
Özel fonksiyon, oinfo(custominfovalue as string) as string
dim, işleri mahvediyor. sldworks
dim swmodel as sldworks.modeldoc2
dim bodrawing as sldworks.drawingdoc
dim swview as sldworks. bakış görünümü
dim hataları uzun zamandır
dim document1 nesne olarak
Ayarlama = uygulama. sldworks
swmodel = exchangep.activedoc
“Özel Belge mi?
Eğer swmodel bir şey değilse o zaman
Changep.sendmsgtouser2 "Bir çizim dosyası açık olmalıdır.", swmbwarning, swmbok
çıkış fonksiyonu
Sonunda, eğer sona erirse
“Bu bir bölüm belgesi mi?
Eğer swmodel. Gettype <> swconst.swdocdrawing sonra
Changep.sendmsgtouser2 "Bir çizim dosyası açık olmalıdır.", swmbwarning, swmbok
çıkış fonksiyonu
Sonunda, eğer sona erirse
swdrawing = swmodel
swview = swdrawing.get firstview = swdrawing.
swview = swview.get nextview
Eğer swview bir şey değilse o zaman
msgbox "Önce model bir görüntü eklemek!"
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
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Changeoc3 swview.getreferencedmodelname, false, swrebuildonactivation_e.swuserdecision, hatalar
Sonunda, eğer sona erirse
set document1 = exchangep.activedoc
getthatinfo = document1.getcustominfovalue(", custominfovalue)
takas.closedoc swview.getreferencedmodelname
end fonksiyonu