Renkli masa ayarı

[Ally83]

Her şeye yemin ederim,

mucit (2013)'te nesne olarak masayı otomatik hale getirmenin bir yolu var mı?
Sarı renkte mavi bir yeşil yankıya sahip bir parçam var....

Masada renkleri tutmanın bir yolu var, çünkü her şeyi siyah yapmak yerine?

Otomatik olarak değilse, bunu yapmanın en zeki yolu nedir?

Sorun şu ki, o zaman karmaşık çizimle autocad hepsi siyah onları yönetmek için basit değil!

Her şeye teşekkürler:smile:

 

[Tarkus]

Her şeye yemin ederim,

mucit (2013)'te nesne olarak masayı otomatik hale getirmenin bir yolu var mı?
Sarı renkte mavi bir yeşil yankıya sahip bir parçam var....

Masada renkleri tutmanın bir yolu var, çünkü her şeyi siyah yapmak yerine?

Otomatik olarak değilse, bunu yapmanın en zeki yolu nedir?

Sorun şu ki, o zaman karmaşık çizimle autocad hepsi siyah onları yönetmek için basit değil!

Her şeye teşekkürler:smile:

Masada bir görüş koyduğunuzda, alttaki üç düğmeye sahipsiniz, burada gizli kenarlarla veya renkli ekranlarla bile buradan seçebilirsiniz.

 

[Alby189]

Bakışı "shaded view" üzerindeki kontrol ile ekleyin, nesne 3d'ün aynı rengini tutar.
Ama eğer dwg'de ortaya çıkarsam, renkli dokusu kurtarabileceğinizi düşünmüyorum, ancak sadece satırlar, kontrol etmelisiniz.

 

[Ally83]

Bu işlevi biliyorum

Ancak ihracat sırasında beni tüm siyah yapar....

Sonra sadece çizgileri boyamam gerekecek...

Bildiğim yöntem...property...color...

Ancak birçok element için yapmak çok yavaş ve uzun bir prosedürdür

 

[Ilgillo]

Her şeye iyi bir gün, aynı zamanda benzer bir ihtiyaç var, ancak belki de çözmek için biraz daha karmaşık. mucit 2016. toplantılarımda onları 3d'te farklı boyamaya alışık olduğum parçaların tanınmasını kolaylaştırmak için. ayrıntıların masasını yaptığımda, parçanın çizgilerinin rengini 3d'ün olanlara eşit olmak istiyorum. gölgeli görüşle kolayca çözülebilirdi, ancak aynı zamanda rengin tasarımını da sorumlu olacaktır. Sadece çizginin rengini geri getirmek istiyorum, mümkün olduğunu düşünüyor musunuz?

 

[Catafratto]

http://www.cad3d.it/forum1/threads/39345-colorazione-parti-in-idw?highlight=vba+colore+tavola- editör -
Bağlantı "deceduto" demedikçe

 

[Catafratto]

Sanırım bu, çok yavaş büyük asses.

Public sub changeviewedgecolortofacecolor()

dim invallsheets as bones
dim invsheet as page
dim invdrawdoc as çizimdocument
dim Cevap



Invdrawdoc = buapplication.activedocument


'on hatası bir sonraki sefere devam ediyor
'debug.print "start"
Set invallsheets = invdrawdoc. çarşaflar

Eğer invallsheets.count > 1 Sonra 1
Cevap = msgbox ("ci sono " & invallsheets. say & " fogli: processo holdto?", etcyesno, "değişim renkleri"
Cevap = vyes sonra
Invallsheets'deki her sayfa için
Debug.print "calling >1"
call changesheetcolors (invsheet)
next invsheet
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
'debug.print "calling 1"
Call changesheetcolors (invdrawdoc.activesheet)
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
Call changesheetcolors (invdrawdoc.activesheet)
Sonunda, eğer sona erirse
Sonunda alt alt

Özel sub changesheetcolors (invsheet as page)
dim invallviews as çizimviews
dim invcurrview as çizimview

dim invallcurves as çizimcurvesenumerator
dim invcurve as çizimcurve
dim invallsegs as çizimcurvesegments
dim invseg as çizimcurvesegment
dim objgen as object
dim invrenderst olarak
Yüzün yüzü
dim bytred as
dim bytgreen as byte
dim bytblue as byte
dim invcolor as color
dim invto as geçiciobjects
dim invedgeprx as edgeproxy
dim invallfaces as faces


Hatada bir sonraki sefere devam ediyor
Set invto = thisapplication.transientobjects
Set invcolor = invto.createcolor (255, 0, 0)

Set invallviews = invsheet.drawingviews
Her bir invcurrview in in in invallviews
Invallcurves = invcurrview.drawingcurves
'debug.print "n° eğrisi: " & invallcurves.count
Her invallcurves için
İnvallsegs = invcurve.segments
'debug.print "n° segmenti " & invallsegs.count
Her invseg in in invallsegs
objgen = invseg.main.modelgeometry
if (tipof objgen kenarproxy) and (invseg.visible = true) sonra
'debug.print "trovata kenarproxy"
Set invedgeprx = objgen
Invallfaces = invedgeprx.faces
'debug.print "edge proxy"
'debug.print "n° " & invallfaces. say & " facce"
Her invface in in invallfaces
Invrenderst = invface.getrenderstyle (koverriderenderstyle)
If not invrenderst is nothing then
Invrenderst.getambientcolor bytred, bytgreen, bytblue
'debug.print "kırmızı: " & bytred
'debug.print "green: " & bytgreen
"mavi: " & bytblue
Invcolor.setcolor bytred, bytgreen, bytblue
Invcurve.overridecolor = invcolor
Invcurve.lineweight = 0.05
Sonunda, eğer sona erirse
Sonraki Invface
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
if (tipof objgen yüzproxy) and (invseg.visible = true) sonra
Set invface = objgen
Invrenderst = invface.getrenderstyle (koverriderenderstyle)
Debug.print "kırmızı: " & bytred
Debug.print "green: " & bytgreen
Debug.print "mavi: " & bytblue
Invcolor.setcolor bytred, bytgreen, bytblue
Invcurve.overridecolor = invcolor
Invcurve.lineweight = 0.05
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse

"If (tipof objgen is) then
"Debug.print "trovati!"
"Eğer

Sonraki Invseg
next invcurve
next invcurrview
Sonunda alt alt

 

[TECNOMODEL]

Kendimi benzer bir ihtiyaç için bu tartışmaya davet ediyorum.

Bir setin görüşünde, diğerlerinin normal bir tablo olarak temsil edilmesi gereken 3d gibi bir bileşenden birini istiyorum.

Mümkün mü?
Bunu nasıl yapılır?

 

[Catafratto]

Kendimi benzer bir ihtiyaç için bu tartışmaya davet ediyorum.

Bir setin görüşünde, diğerlerinin normal bir tablo olarak temsil edilmesi gereken 3d gibi bir bileşenden birini istiyorum.

Mümkün mü?
Bunu nasıl yapılır?

Super-accrocchio'yu düşünüyorum: Farklı bir şey olmadan bir pozisyon gösterimi oluşturmak, sadece hangi ilgileri bıraktığınız bir görüş temsili, tabloda "base" + giriş pozisyonunuzun gösterimi ve temsilinizin gösterimi ile örtüşme bakış açısını koymak.

 

[TECNOMODEL]

Bana açık değil, muhtemelen pozisyonun temsili, görüş vb. kavramını hala anlamıyorum.

Masadaki görüşte 2 temsili yarattım, ancak görsel gösterimi "command" oluşturdum.
Eğer bu toplamı seçersem her şeyi görüyorum, eğer sadece onları vurgulamak için parçalarım varsa sadece bunları görüyorum.

Ya da belki 2 görüş yaratmak ve onları çakışmak mı istiyorsunuz? Ancak o zaman pozisyonun temsilini yaratmanın nedenini anlamıyorum.

 

[Catafratto]

Yardımda:
Make-up gösterimi (bu hizmet eder çünkü aksi takdirde sizi süperizyon olarak yerine getirmez);
Görsel gösterimi oluşturmak (örneğin "teşekkür olmak"), ilginizi çeken parçalarla

Masada:
Piazzi la vista üssü
Superimposed; pencerede yer gösterimi ile ilişkilendirmek istediğiniz manzarayı seçin; "shaded" tarzı seçimi

Normal görüşleri doğru bir şekilde düzeltebilirseniz (Bunu nasıl yapacağımı bilmiyorum) tüm bunlar yardımcı olmaz, ama çok karmaşık değil, gidin!

 

[TECNOMODEL]

Teşekkürler, sonuç kötü değil.

Aksine görüş bilmiyordum.

 

[TECNOMODEL]

Renkleri bileşene değiştirmek istiyorsam hala avantaj alıyorum?

Bunu birxieme'de yapmaya çalıştım, görsel temsilde sadece vurgulanması gereken bileşenlerim var ama işe yaramıyor.
Bana malzemenin yönlerini tutar.

 

[Catafratto]

Modelde ve masada associative görüşleri yapmak için bir görüşe sahip olduğu gibi görme gösterimini hemen altına almak zorundasınız; Değilse, ekleme için kullanılan kişi masaya sabitlenir. Kırmızı tehlikeye atmaya çalışın, işe yarıyor.

 

[TECNOMODEL]

Tamam, tekrar teşekkürler.

Son bir sorum var (spero): görüş tamam, süperizyon görüş karesi beni altında olduğu görüşü siliyorsa,

Sadece baskıda olurum, zaten önbellek penceresinden. Masadaki her şeyi görüyorum.

 

[Catafratto]

Tamam, evet, pozisyon Rapp view bu üssü kazanır: Görüşleri geri çevirerek çözdüm, bu temel görüş rapi kullanır. "Demekli olmak", bu pozisyon varsayılan rapp kullanır. Shading ve katman olmadan " parçaları" ( hayalet hatlarına sahip değil).

 

[TECNOMODEL]

Bu çözümde bile küçük bir hata var.
Özellikle gölgeli yarı-trans ebeveyndir ve aşağıdaki detayın çizgilerini görüyorsunuz.

Ne yazık ki bir katalogda giden bir şey, ticarilerin nasıl olduğunu biliyorsunuz: wink:

 

[Ilgillo]

Sanırım bu, çok yavaş büyük asses.

Public sub changeviewedgecolortofacecolor()

dim invallsheets as bones
dim invsheet as page
dim invdrawdoc as çizimdocument
dim Cevap



Invdrawdoc = buapplication.activedocument


'on hatası bir sonraki sefere devam ediyor
'debug.print "start"
Set invallsheets = invdrawdoc. çarşaflar

Eğer invallsheets.count > 1 Sonra 1
Cevap = msgbox ("ci sono " & invallsheets. say & " fogli: processo holdto?", etcyesno, "değişim renkleri"
Cevap = vyes sonra
Invallsheets'deki her sayfa için
Debug.print "calling >1"
call changesheetcolors (invsheet)
next invsheet
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
'debug.print "calling 1"
Call changesheetcolors (invdrawdoc.activesheet)
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
Call changesheetcolors (invdrawdoc.activesheet)
Sonunda, eğer sona erirse
Sonunda alt alt

Özel sub changesheetcolors (invsheet as page)
dim invallviews as çizimviews
dim invcurrview as çizimview

dim invallcurves as çizimcurvesenumerator
dim invcurve as çizimcurve
dim invallsegs as çizimcurvesegments
dim invseg as çizimcurvesegment
dim objgen as object
dim invrenderst olarak
Yüzün yüzü
dim bytred as
dim bytgreen as byte
dim bytblue as byte
dim invcolor as color
dim invto as geçiciobjects
dim invedgeprx as edgeproxy
dim invallfaces as faces


Hatada bir sonraki sefere devam ediyor
Set invto = thisapplication.transientobjects
Set invcolor = invto.createcolor (255, 0, 0)

Set invallviews = invsheet.drawingviews
Her bir invcurrview in in in invallviews
Invallcurves = invcurrview.drawingcurves
'debug.print "n° eğrisi: " & invallcurves.count
Her invallcurves için
İnvallsegs = invcurve.segments
'debug.print "n° segmenti " & invallsegs.count
Her invseg in in invallsegs
objgen = invseg.main.modelgeometry
if (tipof objgen kenarproxy) and (invseg.visible = true) sonra
'debug.print "trovata kenarproxy"
Set invedgeprx = objgen
Invallfaces = invedgeprx.faces
'debug.print "edge proxy"
'debug.print "n° " & invallfaces. say & " facce"
Her invface in in invallfaces
Invrenderst = invface.getrenderstyle (koverriderenderstyle)
If not invrenderst is nothing then
Invrenderst.getambientcolor bytred, bytgreen, bytblue
'debug.print "kırmızı: " & bytred
'debug.print "green: " & bytgreen
"mavi: " & bytblue
Invcolor.setcolor bytred, bytgreen, bytblue
Invcurve.overridecolor = invcolor
Invcurve.lineweight = 0.05
Sonunda, eğer sona erirse
Sonraki Invface
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
if (tipof objgen yüzproxy) and (invseg.visible = true) sonra
Set invface = objgen
Invrenderst = invface.getrenderstyle (koverriderenderstyle)
Debug.print "kırmızı: " & bytred
Debug.print "green: " & bytgreen
Debug.print "mavi: " & bytblue
Invcolor.setcolor bytred, bytgreen, bytblue
Invcurve.overridecolor = invcolor
Invcurve.lineweight = 0.05
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse

"If (tipof objgen is) then
"Debug.print "trovati!"
"Eğer

Sonraki Invseg
next invcurve
next invcurrview
Sonunda alt alt

Teşekkür ederim, ama bana zaten çok yavaş olacağını söylerseniz ne yazık ki çoktan kesiyorum... Tabii ki, birçok ilgilenecek bir şey olabileceğini düşünüyorum... ya da en azından sanırım

 

[Catafratto]

Bir çifte ne kadar koydu?

 

[Catafratto]

Bu çözümde bile küçük bir hata var.
Özellikle gölgeli yarı-trans ebeveyndir ve aşağıdaki detayın çizgilerini görüyorsunuz.

Ne yazık ki bir katalogda giden bir şey, ticarilerin nasıl olduğunu biliyorsunuz: wink:

Sonlu le idee, üzgünüm... :