Metindeki bloklar ve dönüşüm özellikleri seçin

[bolo]

Ofis için biraz başka rudiment var, ilk kez otocad için vsa kullanıyorum.

Amacım yaklaşık yüz .dwg dosyaları içindir:

1. Seçilen bloklar
2. patlama özellikleri ve onları metine dönüştürmek (command "patlama özellikleri metinde yer alan"

Tüm 100 dwg'yi geçmek için rutin buldum, çünkü geri kalanlar kendimi belada bulursam, eğer biri bana bazı komutların çok yararlı olacağını önerir.

Teşekkür ederim!

 

[GP.]

se tu usassi cappilet.xls 10 dakika içinde rpor66, ihtiyacınız olanı yaratırdım, vba bilmiyorum.
http://www.cad3d.it/forum1/showthread.php?t=6107&highlight=creafilescript

 

[bolo]

Ama bu mükemmel sayfa baskıya hizmet ediyor, değil mi?
Bu yüzden benim için ihtiyacım olanı yapmak için kodu değiştirmeliyim?
Ya da bir şey kaybettim?

Cevap için teşekkürler cmq

 

[GP.]

Sarı düğme ile (select file) süreç için tüm dwg'yi seçer ve sütunda bir araya getirilir.

Ekle sütununda, tek bir satır, otocad yerine getirme gereken komutlar ve sonra verilen son komutun hemen altında hücreye yerleştirildi.

mavi düğme (profesyonel senaryo dosyası)


Bir örnek görmek İşte bu nedir Tartışma.

Bize bildirin.

 

[bolo]

Birkaç farklı dosyayı işleme sorunu hakkında bunu bir .dvb tarafından çözeceğim. qui (it is the penultimate...) Bu birçok dwg gözden geçirmek ve onları süreçleri.

Benim problemim şu anda bazı blok filtrelemeyi belki blok adı ile seçmek ve onları metine çevirmekle (promand "patlama özellikleri" ekspres araçta bulundu)

Ayrıca, nasıl yapılacağını bilmediğim mükemmel sayfayı da kullanarak...:confüzyon:

 

[Shape]

Birkaç farklı dosyayı işleme sorunu hakkında bunu bir .dvb tarafından çözeceğim. qui (it is the penultimate...) Bu birçok dwg gözden geçirmek ve onları süreçleri.

Benim problemim şu anda bazı blok filtrelemeyi belki blok adı ile seçmek ve onları metine çevirmekle (promand "patlama özellikleri" ekspres araçta bulundu)

Ayrıca, nasıl yapılacağını bilmediğim mükemmel sayfayı da kullanarak...:confüzyon:

if not isnull (budrawing.selectionsets.item("element2) sonra
set sset2 = budrawing.selectionsets.item("element2")
sset2
Sonunda, eğer sona erirse


set sset2 = budrawing.selectionsets.add("element2")
dim filtre tipi (1) tam tam tam olarak
dim filterdata(1) olarak
Filtreleme = 0
filtredata = “insert”
Filtre Tipi (1) = 2
Filtredata(1) = "name_block" " ""

sset2.select acselectionsetall, , filtre tipi, filtredata

Ve şimdiye kadar bu tasarımın bloklarıyla bir seçim yaratıyorsunuz.

Şimdi ifadeye sahip olduğunuzdan eminseniz... “sendcommand” komutu ile basit olan şey komut satırına geçebilir.
Budrawing.sendcommand ("burst" & vscr & "p" & vscr & vscr)"p" daha önce gösterir, çünkü önceki seçim zaten filtrelenmiş nesnelerdi.

Başka bir yöntem... biraz daha zahmetli bir özellik değerleri ile bir dizi oluşturmak ve xy konumlarını saklamak ve sonra bu diziyi aynı özellikleri ile aynı yerde yeniden yazmak için kullanmak. Bu biraz daha karmaşık ama mümkün.

 

[bolo]

efsanevi!

Gerçekten de öyle. .

Şimdi sakin bir şekilde bakıyorum ve o zaman hedefe ulaşıp ulaşmadığını rapor edeceğim!”

İyi bir gün var!

 

[bolo]

İlk satırda bana hata verir...

if not isnull (budrawing.selectionsets.item("element2) sonra

De ki: "Bir şey bulamadı." Tam olarak ne olduğunu merak ediyordum?

İlk kod paragrafının amacı ve herhangi bir seçim mevcut değil mi?

 

[Shape]

İlk satırda bana hata verir...

if not isnull (budrawing.selectionsets.item("element2) sonra

De ki: "Bir şey bulamadı." Tam olarak ne olduğunu merak ediyordum?

İlk kod paragrafının amacı ve herhangi bir seçim mevcut değil mi?

Tanıdığım tanımlamalar

dim sset2 as acadselectionset
dim element2 nesne olarak

Bu, ilk paragrafın amacı, sset2'de objelerin olup olmadığını ve muhtemelen boş olduğunu doğrulamaktır.

 

[bolo]

İlk çizgi her zaman bana aynı hata verir... Ayrıca alıntıları kaldırmaya çalıştım ve bu durumda "ekran tipi" diyor. .

Aptal sorular sormaktan özür dilerim... Ama balıkların ne olduğunu bilmiyorum. .

 

[Shape]

İlk çizgi her zaman bana aynı hata verir... Ayrıca alıntıları kaldırmaya çalıştım ve bu durumda "ekran tipi" diyor. .

Aptal sorular sormaktan özür dilerim... Ama balıkların ne olduğunu bilmiyorum. .

Kod girin, böylece düzeltebilirsem görüyorum

 

[Crx76]

İlk satırda bana hata verir...

if not isnull (budrawing.selectionsets.item("element2) sonra

De ki: "Bir şey bulamadı." Tam olarak ne olduğunu merak ediyordum?

İlk kod paragrafının amacı ve herhangi bir seçim mevcut değil mi?

Açıklamalara ek olarak:

dim sset2 as acadselectionset
dim element2 nesne olarak
aggingi:
Hatada bir sonraki sefere devam ediyorif not isnull (budrawing.selectionsets.item("element2) sonra
......
...
..
.

ciao

 

[bolo]

İlk turda, açılır ve düzgün bir şekilde dwg kurtarır !!!
İkincisi bu hata geliyor:

run-time hatası "-21474148 (80010108)":
otomasyon hatası
Söz konusu müşterilerden kopmuş nesne.

Korku...

 

[Shape]

İlk turda, açılır ve düzgün bir şekilde dwg kurtarır !!!
İkincisi bu hata geliyor:

run-time hatası "-21474148 (80010108)":
otomasyon hatası
Söz konusu müşterilerden kopmuş nesne.

Korku...

Bu yüzden kodu yerine getirmediğinizi anlamak zordur, ancak benim görüşüme göre, dosyanın kapatılmasında ve fiziksel olarak orada olmayan bir nesneye gitmekten vazgeçilmez.

cmq bu hata ne yazık ki vsa kullanırken genellikle ve sadece bir nedenden ötürü değil... ve takip etmek zor.

Kod koyarsanız, belki de ona bir göz atabilirim... Ama beni iki sıraya koyarsanız, anlamak zor... cmq bir hata özgeçmişi bir sonraki gider semrpe oldu, ancak baipassi sadece gerçekte var olan sorunların...

 

[Crx76]

... bir sonraki hata özgeçmişinde cmq semrpe oldu, ama baipassi aslında orada olan sorunların sadece...

esatto...

al posto di

"If not isnull (budrawing.selectionsets.item("element2) sonra"

si potrebbe ve:

dim y as Full
dim setname as string

Ad = "element2"

y = 0 to thisdrawing.selectionsets.count - 1
Eğer budrawing.selectionsets.item name = isim
Budrawing.selectionsets.item silinir
Çıkış için
Sonunda, eğer sona erirse
Bir sonraki y

set sset2 = budrawing.selectionsets.add("element2")
....
....
...
..

qualche riga di codice in piu' ma molto efficace

cosi' facendo (volento) si potrebbe149nare l'in bir sonraki hata özgeçmişinde

ovviamente bisogna aver sotto mano l'intero codice per Trueficare che non vi siano sunre "inesattezze"
:

 

[bolo]

Büyük!!

Mükemmel çalışır... eğer birisi yer kodu veya kodu doğrudan ilgilendirirse!!! !!

Hepinize teşekkür ederim!

:

 

[PlannerRoad]

....it mükemmel çalışır ... eğer biri yer kodu veya kodu doğrudan ilgilendirirse! . . . .

Evet, yayınlayın.

 

[bolo]

İşte .dvb dosyası... Tekrar teşekkür ederim !!!

 

[Shape]

Chi fosse Interessato:lo spunto di bolo ho creato la procedura degli ifade "patlama özelliği" in etca... praticamente fa la stessa cosa, ma non serve avere gli ekspres caricati per farlazio funnare.

permette però di visualizzare o meno aksan invisili una volta, testo'da dönüştürülür.

halk alt patlama_att_text()
dim sset2 as acadselectionset
dim blokco as acadblockreference
dim sset3 as acadselectionset
dim specifyo as acadentity
dim vlabel (0 to 100) değişken olarak
dim vtext(0 to 100) olarak

dim kwordlist as string
Kwordlist = "s n"
Budrawing.uttitude.initializeuserinput 1, kwordlist

Budrawing.uttitude.prompt /lf & vslf

dim string olarak geri döner
returnstring = budrawing.uttitude.getkeyword ("işitselizzare pri nazcosti? (s): ")

Hatada bir sonraki sefere devam ediyor

if not isnull (budrawing.selectionsets.item ("blocco) sonra
set sset2 = budrawiang.selectionsets.item("blocco")
sset2
Sonunda, eğer sona erirse

Set sset2 = budrawing.selectionsets.add("blocco")

dim filtretipi tam olarak tam olarak
dim filterdata, varyant olarak

Filtreleme = 0
filtredata = “insert”
‘ filtre tipi = 2
' filtredata(1) = "numvan"

sset2.select acselectionsetall, , filtretip, filtredata

Her blokko için sset2
Eğer blokco. Daha sonra da
dim array1 as variable
Dizi1 = blokco.getattributes
i = lbound(array1) to ubound(array1)
vlabel (i) = array1(i)tagstring
vtext(i) = array1(i).textstring
Debug.print (vtext(i)
Bir sonraki i

Blokco. blastde
Blokco. silinir


Hatada bir sonraki sefere devam ediyor

if not isnull (budrawing.selectionsets.item ("attributo")
set sset3 = budrawiang.selectionsets.item("attributo")
sset3.delete
Sonunda, eğer sona erirse

set sset3 = budrawing.selectionsets.add("attributo")

dim filtretip1 tamsayı tam olarak
dim filterdata1[...]

Filtre Tipi1 = **** 0
filtredata1 = "attdef"

sset3.select acselectionsetall, , filtretype1, filtredata1

Eğer dönersek = "" sonra geri döner = "s"

Her ado için sset3

Eğer ucase(returnstring) = "n" o zaman
Linko.invisible = true o zaman alıntıo. silinir
Sonunda, eğer sona erirse
i = lbound(array1) to ubound(array1)
Linko.tagstring = vlabel (i) sonra
Linko.tagstring = vtext(i)
Sonunda, eğer sona erirse
Bir sonraki i

Bir sonraki ayırıcı

Sonunda, eğer sona erirse
sset3.delete
Sonraki blokco
sset2
Sonunda alt alt