Not Fold bandage otomatik idw

[Donald Haxhiu Work]

İyi sabah, size kat notu koymak için bir yol olup olmadığını sormak istedim (örneğin: 90°/Ju 35° vs) otomatik olarak piata tekrarı ile hatırladığım kadarıyla (sayfanın gelişimi). Birini katlamayın notlarını bir ya da her şeyi seçmek zorunda kalmadan. Uygulamanın en kısa sürede, otomatik olarak düz dalganın gelişimini aradığım gibi, kat notları görüyorum. Bana nasıl yapılabileceğini söyleyebilir misiniz?

 

[batleo]

Merhaba.
Bu şekilde deneyin, düz bir görünüm yapın, sonra annotasyona gidin --> general general general general general general general general general general general general general general
Görmeyi seçin, sonra çeşitli seçenekler vardır ve tercih ettiğiniz gibi ayarlayabilirsiniz

 

[Donald Haxhiu Work]

Bu işlevi biliyorum ama her zaman bunu yapmak zorundayım. Daha sonra katlanma notlarını koymaya değer, bu da diğer şeylerin arasında daha az invaziftir, çünkü onlar kat hatlarının üstündedir. Sadece düz tekrar koyduğunuz bir şey istedim, otomatik olarak katlanan notları alıyorum. (Ben zaten sağlam işlerden geliyorum ve en kısa zamanda düz tekrarı hatırladığım gibi, soruyun ortaya çıktığı yerden otomatik olarak katlanma notlarını ortaya koyuyorum.) Burada mucit yerine bana her zaman viraj körü komutunu basın ve katlama ve / veya bana notları veren tüm manzarayı seçin. Bazen unuttum, bu yüzden otomatik olarak bir şeyler yapmak istiyorum. Size göre var mı? ayarlarda bir kontrol olabilir, böylece otomatik olarak koyar?

 

[Catafratto]

Bendim done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done ( kopyalandı ama nerede olduğunu hatırlamıyorum) bu makro,
Düz modeli seçin, tüm katları açın ve kotalayın

sub addbendnote()

“Bir çizim belgesinin aktif olduğunu varsayıyor
dim odoc as çizimdocument
set odoc = buapplication.activedocument

“Bir viraj kenarının seçildiğinden emin olmak için kontrol edin.
Eğer odoc.selectset.count <> 1 Sonra 1
msgbox "seleziona un modello piatto."
çıkış alt alt alt
Sonunda, eğer sona erirse

Eğer odoc.selectset (1) çizimse o zaman
msgbox "seleziona un modello piatto."
çıkış alt alt alt
Sonunda, eğer sona erirse

dim oview as çizimview
Set oview = odoc.selectset (1)

dim obendedge as çizimcurve
dim obendnote as virajnote


“Tek bir işlemdeki iterasyonu kapat
"Uygulama yöneticisini uygulamadan alın
dim hexnmgr işlemmenager
Oxnmgr = buapplication.transactionmanager

dim hexn işlem olarak
Oxn = hexnmgr.starttransaction(odoc, "bendnotes")

Oview'deki her obendedge için.drawingcurves
Eğer (bunut.edgetype = kbendupedge veya obendedge.edgetype = kbenddown) sonra
“Küre notunu yaratır
obendnote = odoc.activesheet.drawingnotes.bendnotes.add(obendedge)
Sonunda, eğer sona erirse
Bir sonraki obendedge

“Eğer operasyondan gelen hata kurtarılamazsa, txn
Eğer err o zaman
msgbox "uygun bir hata operasyon sırasında meydana geldi"
Shexn.abort
çıkış alt alt alt
Sonunda, eğer sona erirse

hexn.end
Sonunda alt alt

 

[Donald Haxhiu Work]

Bendim done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done done ( kopyalandı ama nerede olduğunu hatırlamıyorum) bu makro,
Düz modeli seçin, tüm katları açın ve kotalayın

sub addbendnote()

“Bir çizim belgesinin aktif olduğunu varsayıyor
dim odoc as çizimdocument
set odoc = buapplication.activedocument

“Bir viraj kenarının seçildiğinden emin olmak için kontrol edin.
Eğer odoc.selectset.count <> 1 Sonra 1
msgbox "seleziona un modello piatto."
çıkış alt alt alt
Sonunda, eğer sona erirse

Eğer odoc.selectset (1) çizimse o zaman
msgbox "seleziona un modello piatto."
çıkış alt alt alt
Sonunda, eğer sona erirse

dim oview as çizimview
Set oview = odoc.selectset (1)

dim obendedge as çizimcurve
dim obendnote as virajnote


“Tek bir işlemdeki iterasyonu kapat
"Uygulama yöneticisini uygulamadan alın
dim hexnmgr işlemmenager
Oxnmgr = buapplication.transactionmanager

dim hexn işlem olarak
Oxn = hexnmgr.starttransaction(odoc, "bendnotes")

Oview'deki her obendedge için.drawingcurves
Eğer (bunut.edgetype = kbendupedge veya obendedge.edgetype = kbenddown) sonra
“Küre notunu yaratır
obendnote = odoc.activesheet.drawingnotes.bendnotes.add(obendedge)
Sonunda, eğer sona erirse
Bir sonraki obendedge

“Eğer operasyondan gelen hata kurtarılamazsa, txn
Eğer err o zaman
msgbox "uygun bir hata operasyon sırasında meydana geldi"
Shexn.abort
çıkış alt alt alt
Sonunda, eğer sona erirse

hexn.end
Sonunda alt alt

Hayır, ama kendime teslim ettiğim alıntı için. Ayrıca, sayfaya bağlı olarak kata ne oranları vereceğime karar verdim. Bunun yerine, körlüğün aynı konseptidir. Sadece bu, makrou noktaya atar. Bir kez yaptığınız bir şey istiyorum ve tüm plakalara değer. Bu, tasarımdaki düz tekrarı otomatik olarak herhangi bir düğmeye basmadan aktif hale getirdiğim zaman, çünkü bazen bahsettiğim gibi. (Bu şey otomatik oldu, bir kez katlanan notları yukarı / aşağı koydum) size göre yapabilir misiniz?

 

[graziano-g]

Merhaba, basın: Dışarıda hiçbir şey yapmadım, denemeye ve paylaşmaya çalıştım.
Daha sonra aşağıdaki metin hatları ekler.
Kuralı bir plaka model parçası içeren bir idw'a uygulayın, kural hatlarındaki kat notları ekler.
Ardından, daha kesin olmak için, çizgi tiplerini katlanarak veya aşağı yukarı doğru ayarlamanız iyidir: Sürekli çizgide katlanmak, dotted line.

Belki de şablonun içindeki kuralı ekleyebilirsin, böylece düz modeli eklerken otomatik olarak uygulayabilirsiniz: kim benim hakkında daha fazla bilgi sahibi...

Merhaba.

dim odoc as çizimdocument
dim oform as page
dim oview as çizimview
dim ocurve olarak
dim obendnote as bandnote
dim bandanotecount as Full

Odoc = buapplication.activedocument
Sayfa = odoc.activesheet
bandanotecount = oform.drawingnotes.bendnotes.count

Eğer kör notecount=0 o zaman
‘ ‘ ‘[add bend notes to views
For Each oView In oSheet.DrawingViews
For Each oCurve In oView.DrawingCurves
If oCurve.EdgeType = Inventor.DrawingEdgeTypeEnum.kBendDownEdge _
Or oCurve.EdgeType = Inventor.DrawingEdgeTypeEnum.kBendUpEdge Then
' Create the bend note
oBendNote = oSheet.DrawingNotes.BendNotes.Add(oCurve)
End If
Next 'oCurve
Next ']Oview
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
“Hiçbir şey yapmadı
Sonunda, eğer sona erirse