LibreOffice Türkiye Forumları

selamun aleyküm , ben microsoft office EXCELL de yardımcı makro kullanıyorum(ŞÖYLE DİYİM BEN ELEKTRİKÇİYİM PROJE ÇİZİYORUM EXCELL DE BİR PROGRAM YAZMIŞLAR AUTOCAD İLE İRTİBATLI YANİ RAKAMLARI GİRİP AUTOCAD BUTONUNA BASINA BİZE AUTOCAD ÜZERİNDE ÇİZİYOR). libre office te bunu nasıl kullanabilirim mail adresim alihaber@windowslive.com

Bu soruya cevap verebilmek için bilgisayarında hem LibreOffice hem AutoCad yüklü olan ve makro yazmayı bilen bir arkadaşımızın olması lazım.

Benim bilgisayarımda Linux yüklü olduğu için AuoCad yükleme şansım yok.

Ancak siz mevcut excel makrolarınızı buraya yazarsanız elimizden gelen yardımı yaparız.

ALT + F11 e bastım macrolarda çıktı EDİT dedim böyle yazıyor ŞİMDİDEN TEŞEKKÜR EDERİM ÇOK SAĞ OLUN..




Sub KoordinatCizimi()

' Biolight 2005
' info@mentes.com.tr

On Error GoTo Hata

Dim koordinat
Dim xkoordinat
Dim ykoordinat

Dim Secim As Range

Set Secim = Application.InputBox(Prompt:="İLK(X)Koordinatı Fare ile seçiniz. ÖRNEK: $A$2 veya A2" & vbCrLf & _
vbCrLf & "* Y koordinatı Belirlediniz (X)hücrenin yanındaki Sütun olacaktır" & vbCrLf & _
"* Z koordinatı Sıfır(0) kabul edilecektir.", Title:="İlk X Koordinatını Seçiniz", Type:=8)

Range(Secim.Address(False, False)).Select

Application.ScreenUpdating = False

If ActiveCell.Value = "" Then
MsgBox "Lütfen Dikkat !" & vbCrLf & vbCrLf & _
"İlk X Koordinatın Bulunduğu Hücreyi Seçiniz", , "Hata : İlk X Koordinatı Seçilmedi !"
Exit Sub
End If

Do While Not IsEmpty(ActiveCell)

xkoordinat = Replace(ActiveCell.Value, ",", ".")
koordinat = koordinat & xkoordinat & ","

ActiveCell.Offset(0, 1).Activate

ykoordinat = Replace(ActiveCell.Value, ",", ".")

If ykoordinat = "" Then
ykoordinat = 0
End If

koordinat = koordinat & ykoordinat & ",0 "
ActiveCell.Offset(1, -1).Activate
Loop

Range(Secim.Address(False, False)).Select

Application.ScreenUpdating = True

Dim Cad As AutoCAD.AcadApplication

Set Cad = New AutoCAD.AcadApplication

Cad.Application.ActiveDocument.SaveAs ActiveWorkbook.Path & "/" & _
Replace(ActiveWorkbook.Name, ".xls", ".dwg")

Cad.Visible = False
Cad.Application.WindowState = acMax

Cad.ActiveDocument.SendCommand "Line " & koordinat & " "

Cad.ActiveDocument.SendCommand "Zoom Extents "

Cad.Application.ActiveDocument.Save

Cad.Quit

'"Klasör : " & ActiveWorkbook.Path & vbCrLf & _
'"İsim : " & Replace(ActiveWorkbook.Name, ".xls", ".dwg") & vbCrLf & vbCrLf & _

MsgBox "Belirlediğiniz Koordinatlar Bilgisayarınızda" & vbCrLf & vbCrLf & _
"Dosya : " & ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", ".dwg") & vbCrLf & vbCrLf & _
"AutoCad Dosyası Olarak Kaydedildi.", , "AutoCad KAYDEDİLDİ."


Set Cad = Nothing
Set Secim = Nothing

Hata:
Exit Sub

End Sub

Maalesef pek mümkün görülmüyor.

Burada AutoCad API'si kullanılmış ve AutoCad'in sadece Microsoft Office API'leri var.

Ne zaman AutoCad LibreOffice'e destek verirse ancak o zaman mümkün olacaktır.

tamam teşekkür ederim ilginiz için. derdimle dertlendiniz. Allah yardımcınız olsun. office'ye para ödemek istemiyordum libre office kullanayım demiştim. illa ki almam lazım microsoft office anladım.