Excel değerlerinden bir poliline çizin

[afazio]

:4404:

:hahahah: şaka... Önceki yazıda makro buldum ve kodu içeride okudum.... (Tek düğmede:finger. .

Ve makro ilk olarak dxf dosyasını (sonunda bir metin dosyası) oluşturur ve sonra otomatik olarak açılır (shellexecute 0, vbnullstring, n profil, vbnullstring, ")

Daha sonra dosya içinde eklenecek nesneler üzerinde dxf kodunu ekleyerek bunu yapmak zorundasınız.

Bu doğru!
Bu 3d'ün yayınlanmasıyla harcanan zamanın şimdi müdahalemi garanti ettiğini bilmiyorum. Umarım sıkılmadım.

Bu dosyanın yazarı benim.
Dosya, bükme anlarının diyagramlarını çizmek zorunda olan bir öğrenci tarafından belirli bir istekle ortaya çıkıyor (genellikle parabolik formu) ve otomatik olarak kesilmiş durumda, ancak verileri hala başarı yardımı ile gerçekleştirdiği işbirliklerinden alıyor. Örneğin, bir kirişin çözümü destek olmaya devam ediyor. Sadece diğer amaç için yazılmış kodun bir parçasına adapte oldum (üçüncüden elde edilen verilerle metal profiller).
Aslında, kod bir dosya türü yazıyor *.dxf, polilines hakkında tek bilgi içeriyor ve sonra otomatik olarak açılıyor.
Veritabanı eklemek için size olanak sağlayarak kodu değiştirmeye çalışın, metinleri, stilleri, tabakaları, renkler ve diğerleri oldukça zahmetli olurdu.
Dosyayı herkes tarafından okunabilir kodla ücretsiz olarak yayınladım, bu yüzden birisi aldıysa ve değiştirdiyse sorun yok.

Selamlar

 

[afazio]

Bir dxf uzmanı değilim, kotalar eklemek için acad'ın dxf'de bir kota yazdığını bilmeniz ve sonra vsa'yı değiştirirsiniz. Bu biraz zaman alır ve tam olarak benim kullanmak istediğim yöne değil.

Önceki dosyaya bir sütun gerektirdiği gibi ekledim, şey önemsiz ve istedikleri kadar çok ekleyebilirlerse.

İçeride, Seçilmiş durumda üç sıra ekledim, onları kolayca tanımlanabilir olduklarını yorumladım.

Üst kattaki yedinci sütunu eklemek istiyorsanız, üç referans sütununu kopyalamanız ve yapıştırmanız gerekir.

Ardından aşağıdaki değişkenleri tanımlamak gerekir:

n_7, a11'de bulunacak olan puan sayısını gösterir
c_7 in aa14
sekmesi_7 değişken tanım formu ve eşit olarak tanımlanır: =carto(c_7;0;n_7;3)

Hücre u8'i değiştirmeniz ve aynı zamanda yeni sütunun varlığını da eklemeniz gerekir.

Bu arada, normalde bir dxf bir otocad senaryodan ziyade vsa'ya yazmayı tercih ederim, ki daha sonra kolayca değiştirilebilir. Ayrıca karmaşık komutlara girmek daha kolaydır. tadı soru!

Dalga dalgası

Kodu mükemmel anlıyorsunuz.

 

[erot79]

Geç olsam bile, ama şimdi size teşekkür edebilirim:finger: hem de ürettiğiniz orijinal dosya için, hem de şimdi konuyu çok fazla incelemeye teşvik ettin, hem vsa hem de etc.net ile. Yakında görüşürüz!

 

[tracciatura.net]

Hala makroa ihtiyacınız varsa, bunu yapacağım.
Bileyim.

 

[cecco13]

Autocad komut satırında göründüğü gibi, onu otocad komut hattına yapıştırın

 

[Alessandro De Fusco]

Bir dxf uzmanı değilim, kotalar eklemek için acad'ın dxf'de bir kota yazdığını bilmeniz ve sonra vsa'yı değiştirirsiniz. Bu biraz zaman alır ve tam olarak benim kullanmak istediğim yöne değil.

Önceki dosyaya bir sütun gerektirdiği gibi ekledim, şey önemsiz ve istedikleri kadar çok ekleyebilirlerse.

İçeride, Seçilmiş durumda üç sıra ekledim, onları kolayca tanımlanabilir olduklarını yorumladım.

Üst kattaki yedinci sütunu eklemek istiyorsanız, üç referans sütununu kopyalamanız ve yapıştırmanız gerekir.

Ardından aşağıdaki değişkenleri tanımlamak gerekir:

n_7, a11'de bulunacak olan puan sayısını gösterir
c_7 in aa14
sekmesi_7 değişken tanım formu ve eşit olarak tanımlanır: =carto(c_7;0;n_7;3)

Hücre u8'i değiştirmeniz ve aynı zamanda yeni sütunun varlığını da eklemeniz gerekir.

Bu arada, normalde bir dxf bir otocad senaryodan ziyade vsa'ya yazmayı tercih ederim, ki daha sonra kolayca değiştirilebilir. Ayrıca karmaşık komutlara girmek daha kolaydır. tadı soru!

Dalga dalgası

Bütün oğlanlara merhaba, foruma yeni olduğumu ve her şeyden önemlisi, aynı zamanda va'nın da girişi olmadığımı basın.
Bir dalga sorusum var.
Her şeyden önce, orijinal dosyaya çok fazla değişiklik yapmanıza yardımcı oluyor.
Benim tek şüphem (bu, sismik bölgede her zaman en az 32 tane var) masa ifadesidir.
c_7 ve n_7 tanımlamayı başardım, ancak sekme_7 ve cep u8'in değişimi iyi gitmedi, bana kodu göndererek yardımcı olabilir misiniz?

 

[afazio]

alessandro, dosyayı aynı anda 32 diyagramı takip etme yeteneğine ihtiyacınız varsa, aşağıdaki bağlantıdan indirin:
https://app.box.com/s/y827gn6jknmj6jbrh7010p9bp87a075uciao

 

[Alessandro De Fusco]

Bu kod sayesinde ne kadar zaman biriktirdiğimi bilmiyorsunuz, beni kurtardın. Çok teşekkür ederim!:

 

[afazio]

Bunu bağımsız olarak nasıl yapacağını anlamak istiyorsanız, talimatları takip edin:

Üç farklı isim atılmalıdır:

n_xx adı sarı hücrelere. Burada, göreceli masadaki puan sayısı
c_xx her masanın ilk hücresine isim ( sayı 1) bildirilen hücre. Bu, dinamik masanın başlangıç noktasını oluşturmaya hizmet eder
Tab_xx her masada isim. Ancak masa dinamik olmalıdır ve bu nedenle "formule"->" adı yönetimi tarafından tanımlanmalıdır. Adı "=scarto(c_xx;0;0;n_xx;3)" formülü ile tanımlanmalıdır.
Tabii ki "xx" sequential dizilerini gösterir.

Son olarak, daha büyük sayıda tablonun vakalarını tahmin etmek için kodda hafif bir değişiklik yapmak zorundasınız:

Seçilmiş evler
Ev 1 Ev evleri
sayı_r = aralığı(n_1).value
koordinatlar = aralık("tab_1")
Ev 2 evleri
sayı_r = aralığı(n_2).value
koordinatlar = aralık("tab_2")
...
...
...

Evler 31
sayı_r = aralığı(n_31).value
koordinatlar = aralık("tab_31")
32 ev evleri
sayı_r = aralığı(n_32).value
koordinatlar = aralık("tab_32")

Evler başka evler
msgbox " çizimlerin sayısında hata"
çıkış alt alt alt
son seçim

Merhaba.

 

[rpor66]

Suggerimento:
Seçilmiş vaka kirletici
1 vaka 1
numero_r = aralığı ("n_1). değer değeri değer değeri
koordinat = aralığı("tab_1")
....
son seçim

puoi trasformarlo in

Seçilmiş vaka kirletici
1 ila 32
numero_r = aralığı ("n_" & kirletici_poli). değer değeri değer değeri
koordinat = aralığı ("tab_" & kirletici_poli)
son seçim

per usingzare is software anche con office x64 includi Queste righe:
#if etca7 sonra
Özel ifadeler ptr güvenli fonksiyon kabuğuexecute lib "shell32.exe" alias "shellexecutea" (çok uzun süre, byval lpfile as string, byval lpmeters as string, byval nshowcmd as long)
#else
Özel ifadeler, pinexecute lib "shell32.exe" alias "shellexecutea" (çok uzun, byval lpfile as string, by lpparameters as string, by lpdirectory as string, by lval nshowcmd as long)
#end if

Yemin ederim

 

[afazio]

Teşekkürler rpor66
Birçok çizgiyi kurtaran bir öneri.

Kod aynı zamanda ofis x64 için çalıştırmak için satırlar, bildirilen satırlar şimdi kabuk çağrısı hakkında mevcut mu?

 

[afazio]

Tamam, onları değiştirdim.
Bu, iki satırın ilkinin x32'yi öne çıkarmak için başka bir hata olarak kabul edildiği ve sonra kırmızıda vurgulandığı ortaya çıkmaktadır (bu kodun yanlış gitmediği anlamına gelmez).
Tekrar teşekkürler.

 

[rpor66]

Olumlu olumlu pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif pozitif
Lütfen.