Bir çizime birden çok blok girin

[ale]

Bir çizime daha fazla blok eklemek için rutin önermek istedim.
Örneğin, bir .dwg dosyasının içinde, 01 ve 02 adını alacak iki blok ekleyeceğim.
Onları eklemek için:
Public sub blockco()
dim objblock as acadblock
dim insblock as acadblockreference
dim strisim as string
dim p(0 to 2) çift olarak
► 0: p(1) = 0: p(2) = 0
Her objblock için budrawing. blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok
strisim = objblock.name
Budrawing. sendcommand "._-insert" & vscr & objblock. Adı & etccr & "0,0,0" & vscr _
Ve 1 & vscr & 1 & vscr & 1 & vscr & 0 & vscr

Debug.print objblock. isim adı
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
Sonunda alt altHemen pencere şovları:
*model_space
*
*paper_ space0
01 01 01 01 01 01
02 02 02Model uzayında bir dizi pencere ekleme işlemi yavaşlatır.

Bu noktada, Üye Devletler arasında daha büyük bir işbirliği için ihtiyaç olduğunu belirtmek isterim.
Sol(strname, 1) = "1" o zamanHer şey merak ediyor gibi görünüyor.

Bu prosedürü kolaylaştırmak için başka bir yol olduğunu düşünüyor musunuz?

 

[Shape]

Bu makroın anlamını anlamıyorum. dwg'de mevcut olan tüm blokları ekleyin...

Bloklar olarak ele geçirilen model alanı ve kağıt alanı geçmek için cmq.

Public sub block()
dim objblock as acadblock
dim insblock as acadblockreference
dim strisim as string
dim p(0 to 2) çift olarak
► 0: p(1) = 0: p(2) = 0
Her objblock için budrawing. blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok blok
strisim = objblock.nameEğer sol (strname, 1) <> “SonraBudrawing.sendcommand "._-insert" & etccr & objblock. Adı & etccr & "0,0,0" & vscr _
Ve 1 & vscr & 1 & vscr & 1 & vscr & 0 & vscr
Debug.print objblock.nameSonunda, eğer sona erirseBir 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
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


Sonra bloku göndericid yerine eklemek için ... bu biraz kaba bir puti

Blokrefobj = budrawing.modelspace. addblock (p, strname, 1#, 1#, 1#, 0)

Güçlü bir arabam var ama yavaşları fark etmedim. .

 

[ale]

Bana cevap vermek için teşekkürler şekli.
Bu rutin, gelişmekte olduğum biraz daha sanatsalleştirilmiş bir işin bir parçası.
Bu benim ilk olarak va’da olurdu.
Ordumdan beri çok uzun bir zaman oldu, çünkü, birbiriyle olmayı umuyor Bazı egzersiz bir başlangıç :
Bilmiyordum <> "* ; Bu günlerde pratik yapmaya çalışıyorum.
Merhaba.

 

[Shape]

<> “*, model uzayın ve kağıt alanının adı için "farklı" anlamına gelir * Bunu seçmem için filtre yaptım... hepsi biraz kaba bir yöntem ama işe yarıyor...

 

[ale]

.... tamam!
ciao