Excel VBA ile Autocad polyline çizimi

[mrcylmz_61]

Aşağıda ki kod çalışmıyor. Dİkkatimi çeken şu oldu ki nokta dizisini döngü ile değilde manuel yaparsam çalışıyor, örneğin;
noktaDizi(0)=2
noktaDizi(1)=4
....
noktaDizi(709)=1210 gibi.

Yardımcı olabilir misiniz?

Sub Test2()

Dim noktaDizi(710) As Double

For i = 0 To 709
noktaDizi(i) = i * i-5
Next

Dim ACAD As AcadApplication
Dim egriCiz As AcadLWPolyline

On Error Resume Next
Set ACAD = GetObject(, "AutoCAD.Application")
If (Err <> 0) Then
Err.Clear
Set ACAD = New AcadApplication
ACAD.Visible = True
If (Err <> 0) Then
MsgBox Err.Number & " " & Err.Description
End
End If
End If

Set egriCiz = ACAD.ActiveDocument.ModelSpace.AddLightWeightPolyline(noktaDizi)
cizim1.Closed = False

End Sub

 

[Asri]

Aşağıda ki kod çalışmıyor. Dİkkatimi çeken şu oldu ki nokta dizisini döngü ile değilde manuel yaparsam çalışıyor, örneğin;
noktaDizi(0)=2
noktaDizi(1)=4
....
noktaDizi(709)=1210 gibi.

Yardımcı olabilir misiniz?

Sub Test2()

Dim noktaDizi(710) As Double

For i = 0 To 709
noktaDizi(i) = i * i-5
Next

Dim ACAD As AcadApplication
Dim egriCiz As AcadLWPolyline

On Error Resume Next
Set ACAD = GetObject(, "AutoCAD.Application")
If (Err <> 0) Then
Err.Clear
Set ACAD = New AcadApplication
ACAD.Visible = True
If (Err <> 0) Then
MsgBox Err.Number & " " & Err.Description
End
End If
End If

Set egriCiz = ACAD.ActiveDocument.ModelSpace.AddLightWeightPolyline(noktaDizi)
cizim1.Closed = False

End Sub

El ile girdiğiniz değerler ile döngü ile girilenler aynı değil. Döngüde;
noktaDizi(0)=-5
noktaDizi(1)=-4
noktaDizi(2)=-1
noktaDizi(3)=4

 

[mrcylmz_61]

El ile girdiğiniz değerler ile döngü ile girilenler aynı değil. Döngüde;
noktaDizi(0)=-5
noktaDizi(1)=-4
noktaDizi(2)=-1
noktaDizi(3)=4

el ile girilen değerleri farazi yazdım Asri bey. orada anlatmak istediğim el ile değer girdiğimde kod çalışıyor ve autocad de çizim yapıyor, zira diziyi döngü ile doldurduğumda kod çalışmıyor. Autocad açılıp kalıyor çizim gelmiyor.

 

[Asri]

el ile girilen değerleri farazi yazdım Asri bey. orada anlatmak istediğim el ile değer girdiğimde kod çalışıyor ve autocad de çizim yapıyor, zira diziyi döngü ile doldurduğumda kod çalışmıyor. Autocad açılıp kalıyor çizim gelmiyor.

Autocad verileri uygun bulmuyor olabilir. El ile yada döngü ile atamada bir fark yok.

Bu şekilde dener misin?

For i = 1 To 710
noktaDizi(i-1) = i
Next

 

[mrcylmz_61]

Autocad verileri uygun bulmuyor olabilir. El ile yada döngü ile atamada bir fark yok.

Bu şekilde dener misin?

For i = 1 To 710
noktaDizi(i-1) = i
Next

Asri bey

Set egriCiz = ACAD.ActiveDocument.ModelSpace.AddLightWeightPolyline(noktaDizi)
cizim1.Closed = False

hatamı buldum çalıştı şimdi. çok teşekkürler.

 

[Asri]

Asri bey

Set egriCiz = ACAD.ActiveDocument.ModelSpace.AddLightWeightPolyline(noktaDizi)
cizim1.Closed = False

hatamı buldum çalıştı şimdi. çok teşekkürler.

Neyi değiştirip sorunu çözdünüz?

 

[mrcylmz_61]

Neyi değiştirip sorunu çözdünüz?

kırmızı yazılı bölüm dizi adını altta yanlış yazmışım

 

[Asri]

kırmızı yazılı bölüm dizi adını altta yanlış yazmışım

Yok ben son mesajdaki kodlar ile ilk mesajdaki kodlar arasında bir fark bulamadım.
: ))

 

[ÖmerFaruk]

Ben de deneyeyim dedim ama
Bilgisayarımda Acad2016 kurulu

Referanslardan mı bir ayar yapmak gerekiyor?
Aşağıdakileri işaretledim. Zeten ilgili başka göremedim

Ancak kodun
If (Err <> 0) Then
satırında hata tespit edip işlemi yapamıyor.

 

[mrcylmz_61]

Ben de deneyeyim dedim ama
Bilgisayarımda Acad2016 kurulu

ACADApplication satırlarında hata veriyor.
Referanslardan mı bir ayar yapmak gerekiyor?

Tools --> Referance bölümünde hangi autocad sürümünü kullanıyorsanız onu seçmelisiniz.

 

[ÖmerFaruk]

Edit ettim. Hata var.