• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Autocad deki çizimi excel e aktarma

D

Dixxz

Katılım
2 Mart 2022
Mesajlar
40
Excel Vers. ve Dili
Office 365
Excelde Ekle-Nesne seçeneklerinden autocad çizimi açıp oraya çizimi atıyorum ama ölçek olarak istediğim gibi olmuyor yanlardan çok boşluk oluyor bunu ölçeklendirmenin bir yolu var mı acaba
E6IpMR.jpg
 
Merhaba.
Yukarıdaki resim menüsünde kırp seçeneği var.
 
Merhaba,
İşinize yarar mı bilmiyorum ama aşağıdaki kodları kullanarak cetvel oluşturabilirsiniz.

Sub cetvel_inch()



'Define the size of a new ruler.

Const Ruler_Width As Double = 6 'Width 6 inch

Const Ruler_Height As Double = 5 'Height 5 inch



'The setting size on the screen and the actual size on the printer.

Const Screen_Width As Double = 6

Const Screen_Height As Double = 5

Const Printer_Width As Double = 6

Const Printer_Height As Double = 5



Dim i As Long

Dim l As Double

Dim x As Long

Dim y As Long

Dim ws As Worksheet

Dim a(0 To 15) As Double

Dim x2 As Double

Dim y2 As Double



x = Ruler_Width * 16

y = Ruler_Height * 16

a(0) = 3.6: a(1) = 1: a(2) = 2: a(3) = 1: a(4) = 2: a(5) = 1: a(6) = 2: a(7) = 1

a(8) = 3: a(9) = 1: a(10) = 2: a(11) = 1: a(12) = 2: a(13) = 1: a(14) = 2: a(15) = 1

Application.ScreenUpdating = False



Set ws = ActiveSheet

Worksheets.Add

ActiveSheet.Move

ActiveSheet.Lines.Add 0, 0, 3 * x, 0

For i = 1 To x

l = a(i Mod 16)

ActiveSheet.Lines.Add 3 * i, 0, 3 * i, 3 * l

Next

ActiveSheet.Lines.Add 0, 0, 0, 3 * y

For i = 1 To y

l = a(i Mod 16)

ActiveSheet.Lines.Add 0, 3 * i, 3 * l, 3 * i

Next

ActiveSheet.Lines.Border.ColorIndex = 55



For i = 16 To x - 1 Step 16

With ActiveSheet.TextBoxes.Add(3 * i - 9, 3 * 3.6, 18, 12)

.Text = Format(i \ 16, "!@@")

End With

Next

For i = 16 To y - 1 Step 16

With ActiveSheet.TextBoxes.Add(3 * 3.6, 3 * i - 9, 12, 18)

.Orientation = xlDownward

.Text = Format(i \ 16, "!@@")

End With

Next

With ActiveSheet.TextBoxes

.Font.Size = 9

.Font.ColorIndex = 55

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.Border.ColorIndex = xlNone

.Interior.ColorIndex = xlNone

End With



With ActiveSheet.DrawingObjects.Group

.Placement = xlFreeFloating

.Width = Application.InchesToPoints(x / 16)

.Height = Application.InchesToPoints(y / 16)

.CopyPicture xlScreen, xlPicture

ActiveSheet.Paste

x2 = (Selection.Width - .Width) / 3

y2 = (Selection.Height - .Height) / 3

Selection.Delete

.CopyPicture xlPrinter, xlPicture

ActiveSheet.Paste

.Width = .Width * .Width / (Selection.Width - x2 * 2) * Screen_Width / Printer_Width

.Height = .Height * .Height / (Selection.Height - y2 * 2) * Screen_Height / Printer_Height

Selection.Delete

If Val(Application.Version) >= 9 Then

.Copy

ActiveSheet.PasteSpecial 'Format:="Picture (PNG)"

With Selection.ShapeRange.PictureFormat

.CropLeft = x2

.CropTop = y2

.CropRight = x2

.CropBottom = y2

End With

ws.Activate

ws.PasteSpecial 'Format:="Picture (PNG)"

Selection.Placement = xlFreeFloating

.Parent.Parent.Close False

End If

End With

Application.ScreenUpdating = True

End Sub
[TD='top']
Selection.Copy
[/TD]
 
Merhaba yanlış anladınız galiba resim eklemiyorum ben autocad i excelin içinde açıyorum o yüzden resim menüsü seçeneği yok
 
AutoCad dosyanızı buradan ekleyin kontrol edelim.
 
E6auYq.jpg
E6aaF6.jpg


Ölçeklendirmeyi çözdüm ama bu seferde excel i pdf ye çevirince ölçülendirmedeki okların ucunda sapmalar oldu
 
Nesneyi sağ tıklatın "Resim Biçimlendir" seçin.
Kırp kısmından istediğiniz kadar kırpabilirsiniz.
235440
 
Onu bilemeyeceğim ama belki şu çözüm olabilir, AutoCadden ekran görüntüsü alıp Excele fotoğraf olarak eklemeyi deneyebilirsiniz.
 
Şuan zaten öyle yapıyorum ama görüntü kalitesi çok düşüyor o yüzden bunu denemiştim.
Yardımınız için teşekkürler
 
Birde excel içinde autocad açtığımda büyük eşittir gibi özel karakterleri ? ile gösteriyor bunun çözümü varmıdır
E9OBzN.jpg
 
Merhaba,

Örnek olarak gönderdiğiniz dosyayı sistemimde bulunana AutoCAD 2017 ile açmaya çalıştığımda hata veriyor, söz konusu örnek dosyanızı 2017 veya öncesi için kaydedip paylaşabilirseniz nasıl daha net bir görüntü alabilmeniz için inceleyebilirim.

Nesne içine Autocad çiziminizi eklediğinizde zemin beyaz çıkar, Çözüm: Nesne üzerinde sağ tuş > Nesne Biçimlendir > Renk ve Çizgiler sekmesine gelip dolgu ve çizgiyi YOK edebilirsiniz. (Nesne alanı değişmez) *Bu alanı küçültmek için kırp kullanabilirsiniz.

Nesneyi Ekle dediğinizde Autocad açılır, *Nesne Autocad pencerenize göre boyutlanır. Excel'e almak istediğiniz Çizim yada Tablonuzun boyutunu değiştirmeden Autocad pencerenizi sadece bu alan kalacak şekilde boyutlandırın. ve kaydedin: Nesnenizin artık pencere boyutlarına geldiğini göreceksiniz dolayısı ile bir nevi kırpma işlemi yapmış olacaksınız.

*Esnemelerden kaynaklanan bir bozulma olmaması için çalışmanıza bir kare ekleyin ve kaydedin, excel üzerinde yine bir kare ekleyin (Geçirgen yapıp) bunu referans alarak çiziminizde yer alan kare üzerine doğru şekilde yerleştirdikten sonra boyutlandırmanızı Köşelerden yapınız. *Bu işlemi zoom yaptıktan sonra çalışmanızdan bu kareyi silebilirsiniz.

Yaptığım denemede ≤ yada ≥karakterini aktarırken bende de ? olarak görünüyor. Autocad de kullanılan yazı karakteri ile alakalı olmadığını gözlemledim.

Ya da daha net bir görüntü almak için Projenizi harici programlar ile Vektörel hale getirip dilediğiniz gibi bozulma olmadan dosyalarınızda kullanabilirsiniz.

İyi çalışmalar.
 
netzone' Alıntı:
Merhaba,

Örnek olarak gönderdiğiniz dosyayı sistemimde bulunana AutoCAD 2017 ile açmaya çalıştığımda hata veriyor, söz konusu örnek dosyanızı 2017 veya öncesi için kaydedip paylaşabilirseniz nasıl daha net bir görüntü alabilmeniz için inceleyebilirim.

Nesne içine Autocad çiziminizi eklediğinizde zemin beyaz çıkar, Çözüm: Nesne üzerinde sağ tuş > Nesne Biçimlendir > Renk ve Çizgiler sekmesine gelip dolgu ve çizgiyi YOK edebilirsiniz. (Nesne alanı değişmez) *Bu alanı küçültmek için kırp kullanabilirsiniz.

Nesneyi Ekle dediğinizde Autocad açılır, *Nesne Autocad pencerenize göre boyutlanır. Excel'e almak istediğiniz Çizim yada Tablonuzun boyutunu değiştirmeden Autocad pencerenizi sadece bu alan kalacak şekilde boyutlandırın. ve kaydedin: Nesnenizin artık pencere boyutlarına geldiğini göreceksiniz dolayısı ile bir nevi kırpma işlemi yapmış olacaksınız.

*Esnemelerden kaynaklanan bir bozulma olmaması için çalışmanıza bir kare ekleyin ve kaydedin, excel üzerinde yine bir kare ekleyin (Geçirgen yapıp) bunu referans alarak çiziminizde yer alan kare üzerine doğru şekilde yerleştirdikten sonra boyutlandırmanızı Köşelerden yapınız. *Bu işlemi zoom yaptıktan sonra çalışmanızdan bu kareyi silebilirsiniz.

Yaptığım denemede ≤ yada ≥karakterini aktarırken bende de ? olarak görünüyor. Autocad de kullanılan yazı karakteri ile alakalı olmadığını gözlemledim.

Ya da daha net bir görüntü almak için Projenizi harici programlar ile Vektörel hale getirip dilediğiniz gibi bozulma olmadan dosyalarınızda kullanabilirsiniz.

İyi çalışmalar.
Genişletmek için tıkla ...
Bilgileriniz için teşekkürler ≤ yada ≥ karakterlerinin ? olarak görünmesi hariç sorunları çözdüm ben
 
Nasil çözdüğünüzü bizlerle paylaşmak ister misiniz?
 
E0jDvA.jpg

Excel içinde autocadi iki farklı şekilde ölçeklendirebiliyoruz ilk yöntem autocad üzerinden sol altta layout1 kısmana geliyoruz burda 2 farklı alan var biri kesik çizgili diğeri kalın çizgili kalın çizgili alanı isteğimize göre ayarlıyoruz sonra kalın çizginin içine girip öyle kaydet diyoruz.

E0jhjj.jpg

İkinci yöntem excel autocad alanına sağ tık - nesne biçimlendir - resim - kırp - sağdan soldan kırparak istediğimiz ölçeğe getirebiliyoruz.

Bundan sonra ok uçları ve ölçülendirmedeki ok uçlarında bir sorun yaşadım onun nedeni de okları pline lara genişlik vererek yapmamdan kaynaklandığını fark ettim genişlik vermek yerine okları line lar kullanarak yaptım (okların içi boş olarak) ölçülendirmedeki oklarını da içi boş olanlardan seçtim ve pdf ye çevirince ok uçlarındaki sapma düzeldi.
≤ yada ≥ gibi özel karakter kullanınca ? sorununu hala çözemedim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst