AutoCAD library

[cicosz]

2016-2017-2018 e kadar sürümlerde denedim bir sorun çıkmadı. Şimdi 2019 u indiriyorum onu da deneyeceğim. Command olarak startup yazarak 0 değerini girebilirsiniz. Onun haricinde autocad açılırken ekran kaydı alıp yükler misiniz?

 

[cicosz]

Sonraki denemelerde, Chr(27) olan satırlar hata veriyor. Onun yerine vbCr ile sorun aşılabiliyor. Fakat bu sefer de fare tıklamasına ihtiyaç duyuyor. Bunları ayrı ayrı yaptırmaktansa circle komutunun içerisine nasıl yerleştirilir onu araştırmakta fayda var.

 

[cicosz]

Ek:

Dosyada biraz değişiklik yaptım. Circle için birleştirilen hücre değerlerini "cizgi1" ve "cizgi1_1" adında iki parça olarak alıp hepsini circle komutuna gönderdim.
Güncel sürümlerde sorun yaşamadım. Sizden ricam elinizdeki tüm versiyonlarda test etmeniz.

 

[cocoa35]

Merhaba cicosz, Ben yukarıda eklemiş olduğum dosyayı çalıştırdığımda ek'teki resimde görülen hatayı veriyor ama autocad sayfası açılıyor, fakat dediğiniz gibi STARTUP komutunu 0 yapmış omama rağmen daireselleri çizmiyor autocad resmini koydum. Siz dosya içinde herhangi bir düzenleme yaptınızmı? lütfen sizde açılan dosyayı gönderebilirmisiniz.

 

[cicosz]

23 nolu mesajda dosyayı eklemiştim.

 

[cocoa35]

Sayın cicosz ek'lediğiniz dosyayı indirip çalıştırdım 2018 autocad yüklü bilgisayarda rahat çalıştı ancak istenilen şekilde circle çizimi yapmıyor , bunun program yazılımında ayarlamak gerekiyor. 2020 yüklü bilgisayarda ise hata verdi "sınıf adı belirlenmemiş" hatası. sn.cicosz biliyorsunuz göndermiş olduğum dosya deneme dosyası şimdi ben ek'te benim esas programımda çalışan KoordinatCizimi makro 'su olan ek'teki dosyayı gönderiyorum. Bu makronun tüm autocad versiyonlarında sorunsuz çalışması gerekiyor'ki benim programımda çalıştırabileyim. Program bir ünitenin ilk önce "kesit" çizimini yapıyor sonra tanımlı çizgi değerleri ile arc veya circle bölümlerinde kesitin üstüne planı çiziyor. Dolayısı ile daire aşağıdaki kesit ölçülerine göre olmalı.

 

[cicosz]

Merhaba,

40 çizgi tanımlamışsınız ama 2 tanesinin değeri mevcut. Diğer değerler olmadan istediğinizi çizdirmem mümkün değil. arc komutuyla değer gönderilecek çizgi değerleri bom boş gidiyor. Bu durumda nasıl çizdirebiliriz ki?Kaldı ki nasıl bir şekil istiyorsunuz onu bilmiyorum. Kodunuzu sadece 1 çizgiye göre revize ettim ki sorun yaşamadan çizim yapabilesiniz. 23 nolu mesajdaki dosyayı indirerek circle komutunu gönderdiğiniz satırı inceleyip kendi kod dizinize ve diğer çizgi değerlerinize uygulayınız. Ya da uygulamayı oluşturan yazılımcıyla iletişime geçiniz. 2020 versiyon için de muhtemelen 64bit klasörüne kurulum yapılmıştır. Gerekli .dll dosyalarını windows klasöründeki system32 içerisine kopyalayıp regsvr komutuyla kaydetmeniz gerekmektedir. Hangi .dll dosyalarının kopyalanması gerektiğini bilmiyorum. İnternet üzerinden araştırmak gerek.

Örnek, Sizin kodunuzda;
Komut gönderme kodu >> "Cad.ActiveDocument.SendCommand "arc " & cizgi40 & Chr(27)"
cizgi40 değişkenine değer atayan kod >> "cizgi40 = Range("D68").Value & "," & Range("E68").Value & " " & Range("F68").Value & "," & Range("G68").Value & " " & Range("H68").Value & "," & Range("I68").Value & " ""
Ama sizin dosyanızda D68 E68 F68 G68 değerleri yok. Bu durumda arc komutunu boş gönderiyor ve istediğiniz sonucu alamıyorsunuz.

Bence eksiklik planlama tarafında.

Kolay gelsin.

 

[cocoa35]

Sn. cicosz merhaba sizin göndermiş olduğunuz dosyada çalışma yaptım, çift daireyi çizdirdim ama benim sayfadaki kesit ile uyumlu değil, çünkü hangi komut ile autocad çizimi yapıldığını bilemiyorum. sizden ricam sayfadaki mavi hücrelerde yukarıda bulunan kesit ölçüleri nasıl olmalıki, kesitin üstüne veya altına tam uyumlu planı çizsin ( yani sayfada çizili olan şeklin aynısı autocad'de çizilmeli)

 

[cicosz]

"Line" komutuyla düz çizgileri, "Circle" ile de çemberleri çizebilirsiniz. Güvenlik mesafesi 25br bıraktım. Module 5'teki çizgi değerlerinde de yarıçap için olan değerleri değiştirdim. İnceleyin.

 

[cocoa35]

Sn.cicosz gayet güzel oldu çok teşekkürler.

 

[cocoa35]

Sn cicosz merhaba ; ben işi biraz daha büyüttüm arc ve dimension özelliklerinide ekledim. " arc " oldu sorunsuz çalışıyor ancak " dimension " autocad çizimi yapıyor ölçümlendirmeyi'de yapıyor ancak autocad dosyasından çıkınca program hata veriyor! sanırım dimension ko'unda bir hata yapıyorum. bir kontrol etme imkanınız olurmu ?

 

[cocoa35]

Tamam yaptım "dimlinear" veya "dimaligned" yazmak gerekiyormuş.

 

[cocoa35]

Merhaba cicosz ; pafta'yı text ile tamamlamak lazım diye düşündüm ve yazı yazdırmayı denedim , ancak başaramadım bu konuda'da yardımınıza ihtiyacım var , yapmış olduğum kod'ları ekledim bir göz atarsanız sevinirim iyi akşamlar;

 

[cocoa35]

Dosyayı eklemeden göndermişim şimdi ek'te

 

[cicosz]

Ek: rev01 -text

 

[cocoa35]

Teşekkürler cicosz yanlız bir şey sormak N51 Hücresi 238 nerden bulundu?

 

[cicosz]

Şeklin içerisine gelecek şekilde rastgele seçilmiş bir değerdir. Formülüzasyonunu sağlama kısmı sizde. Daha önceki dosyada olduğu gibi istenilen hücreden referansla formülü de kurulabilir. Sendcommand ile çalışacaksanız komut satırı kapanan kodları kullanmayınız. Dtext mtext tarzı komutlarda text için kullanıcı girişi esastır. O yüzden komut satırını kapatıyor.

 

[cocoa35]

Tamam şekle göre yatay ölçünün yazının başlangıç noktası ben şimdilik yatay ölçü 150*0,25 aldım , şekil büyük ise daha başka yüzde alırım. çok teşekkürler akşamın bu saatinde ilgilendiğiniz için gayet güzel oldu şimdi ben bunları kendi programıma adapte edeceğim. iyi akşamlar.

 

[cocoa35]

Sn cicosz merhaba, siz programı 2020 veya 2019 autocad'de denemişmiydiniz? zira ben 2020 autocad yüklü bir bilgisayara dosyayı yükleyip çalıştırdığımda hata verdi! size hata fotoğraflarını gönderiyorum sorun nerden kaynaklanıyordur acaba?

 

[cicosz]

Bakınız: #27 nolu mesaj