Bir setin bazı bölümlerinin kütleleri

  • Konuyu başlatan Konuyu başlatan s.melotto
  • Başlangıç tarihi Başlangıç tarihi

s.melotto

Guest
Herkese merhaba
Yasaklama için beni affet....
Bir setin bazı elementlerinin ağırlığını tahmin etmek için mucit 2024'te mümkün mü?
Toplam kütle bana iprops ile verir, ancak bir setin sadece 3 parça ağırlığını bilmek istersem? Sadece miktarını yapmak zorunda mıyım yoksa bana toplam hızlı veren bir komut kullanabilir miyim?

Teşekkür ederim.
İyi gün
 
Şu anda 2020'ye sahipim ve bunu yapmak için genellikle bu bileşenleri eklediğim bir fictitious set yaratırım.
 
Bu soruyu birkaç hafta önce sordum ve drbarde çözümü bugün en önemsizdir.
Ayrıca başka bir yöntem de var, ancak seride tekrarlar yaptıysanız, kitleyi bilmek istediğiniz parçaları seçmenize veya seçmenize izin vermezseniz, o zaman dikkatli bir seçim seçin ve ne umursamıyorsanız.
Ayrıca programcıların görmediği yararlı bir işlev.
1719827546492.png
 
Bu sayfaya bakın
I add:
Prosedür ve yapılandırma hesaplamak için gerçekleştiğinde, bu durumda, sadece bazı bileşenlerin ağırlığı parçaları düzenlemek için yeterlidir, "filter ayar" tıklayın.

filtro.pngVe inhabit "sadece referans numarası ile elementler"
imposta filtro.PNGBu şekilde sadece sollanmış bileşenler ağırlıklarla sayılacaktır.
Bugün gitmek için tek yol olduğunu düşünüyorum.
 

Ekli dosyalar

  • imposta filtro.PNG
    imposta filtro.PNG
    12.1 KB · Görüntüleme: 1
ilginç konu. . .

Tüm belgelerin toplam ağırlığını hesaplamak için yazdığım bir ilogic kodu paylaşmak istedim (bölümler, toplantılar).

Hesaplama sadece mevcut seçimde yapılır, seri veya başka bir şekilde tekrarlanırsa önemli değildir.

Kod çok basit, toplam miktarı hesaplamak için kütlenin mülkünü okur.

Doğru şekilde çalışmak için, bireysel belgenin kitlesinin mülkiyetini (kesin, parça vs.) güncellenmeli ve doğrulanmalıdır.
Kod:
' controlla seanca file primee è un assemblydocument
Buapplication.activedocument.documenttype = documenttypeenum.kassemblydocumentobject O zaman sonra
dim sset mucit olarak. selectset = thisapplication.activedocument.selectset
dim tot as double = 0

Her bir cocc için
tot + = cocc.massproperties.mass
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
Mesajbox.show(tot.tostring(), totale)
Sonunda, eğer sona erirse
Testlerimde düzgün çalışır, eğer biri bunu test etmek ve bana geri bildirim vermek istiyorsa...:
 
teşekkürler
Tüm çözümler işlevseldir....
... ilogic kural kesinlikle en hızlı ve en rahattır; masalarda yavaş olmasına rağmen, işlevlerin işlevleri hakkında daha fazla kısayola sahiptir, fonksiyonlarla ilgili birçok kısayola sahiptir.

Tüm hız ve yeterlilik için teşekkürler... teknik asistanlar! !! !!
 
ps: Kuralı özel bir düğmeye nasıl koyacağımı söyleyebilir misiniz? ??

Tekrar teşekkürler
 
Merhaba.
Üzgünüm ama iyi bilmiyorum...
Bazı örneklere nasıl yapılacağını veya bağlantı kurabileceğini açıklayabilir misiniz?

Problem için teşekkürler ve bahane

İyi gün
 
Biraz daha spesifik olabilirsiniz, bu yüzden bilgi düzeyinin bununla ilgili olduğunu anlamıyorum. .

Sömürgeci editörü biliyor musunuz ya da hiç kullanmadınız mı?
Başka uygulamalardaki vba editörünü hiç kullanmadınız (örneğin, kelime, vb.)?
 
Tamam perfetto, Bu web sitesinde Konuda az deneyime sahip olanlar için vsa editörünü nasıl kullanacağınız konusunda oldukça açık bir açıklama var, talimatları takip etmeye ve sorunlarınız varsa.
 
Büyük. .. çok basitti ( bunu yapmak için kabul etmek). Bir bardakta kaybediyordum

Teşekkür ederim çok teşekkür ederim
 
Büyük. .. çok basitti ( bunu yapmak için kabul etmek). Bir bardakta kaybediyordum

Teşekkür ederim çok teşekkür ederim
Sen hoş geldiniz.

Konuda olduğumuzdan beri... Ben küçük bir modül paylaşmak istiyorum (özellikle orijinal değil) bu, temel subroutine(macro) vsa'dan iolojik kuralları çalıştırmak için.

Subroutine (macro) "execule" çalışması yapmak için, "runilogic" adı ile bir modül, mucit vsa editöründe oluşturulmalıdır ve aşağıdaki içeriği yapıştırmalıdır.
Kod:
seçeneği açık

" l'esecuzione di una regola ilogic
" Suggerimento: creare un modlo separato con holdte le makro per l'esecuzione delle regole ilogicna
* * * *
Alt pesi_selezione()
" runilogic.eseguiregola "pesi_selezione"
"Son alt alt alt

public sub eseguiregola(rulename as string, Seçmeli outsiderule as bool = true)
dim ilogicauto as object
dim odoc belge olarak
set odoc = buapplication.activedocument

Eğer (dodoc hiçbir şey değildir) o zaman
ilogicauto = getilogicaddin()
Eğer (ilogicauto hiçbir şey değildir) o zaman alttan çıkıyor
Eğer dışlayıcı = gerçek o zaman
ilogicauto.runexternalrule odoc, rulename
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
ilogicauto. runrule odoc, rulename
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
msgbox "errore! documento di mucit non trovato", vb.
Sonunda, eğer sona erirse
Sonunda alt alt

Özel fonksiyon nesnel olarak kabul edilir()
dim ilogicaddin as applicationaddin

set getilogicaddin = hiçbir şey

Hataya devam et

ilogicaddin = buapplication.applicationaddins.itembyid("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac})

Eğer (golojikaddin hiçbir şey değildir) o zaman
ilogicaddin.activate
set getilogicaddin = ilogicaddin. autoion
Sonunda, eğer sona erirse
Yalan değil:
.
end fonksiyonu
 
Son düzenleme:
hata...
Kod:
public sub eseguiregola(rulename as string, Seçmeli outsiderule as bool = true)
düzeltme.
Kod:
public sub eseguiregola(rulename as string, isteğe bağlı olarak dışlama = gerçek)
 

Forum İstatistikleri

Konular
58,521
Mesajlar
499,056
Kullanıcılar
104,110
Son Üye
ChristianR

Çevrimiçi Üyeler

Şu anda çevrimiçi üye yok.
Geri
Üst