saed2006
سه شنبه 03 اردیبهشت 1387, 11:58 صبح
به نظر شما چرا این حلقه if اجرا نمیشه در صورتی که هر دو شرط درسته (تو پنجره add wath هر دو عددcurrentx و w(0) جداگونه مساوی هستند w(0) = currentx ولی نتیجه این عبارت false
در صورتی که در هردو 18 ذخیره است
Function seek_high_fond(currentx, y_min, fond)
Dim max As AcadBlockReference
mm = y_min
f = False
Dim b2 As AcadEntity
For i = 0 To fond.Count - 1
w = fond.Item(i).InsertionPoint
If w(0) = currentx And w(1) >= mm Then
Set max = fond.Item(i)
mm = w(1)
f = True
End If
End If
Next i
If f = True Then
w = max.InsertionPoint
f = False
fff = False
Else: fff = True
End If
seek_high_fond = w
End Function
در صورتی که در هردو 18 ذخیره است
Function seek_high_fond(currentx, y_min, fond)
Dim max As AcadBlockReference
mm = y_min
f = False
Dim b2 As AcadEntity
For i = 0 To fond.Count - 1
w = fond.Item(i).InsertionPoint
If w(0) = currentx And w(1) >= mm Then
Set max = fond.Item(i)
mm = w(1)
f = True
End If
End If
Next i
If f = True Then
w = max.InsertionPoint
f = False
fff = False
Else: fff = True
End If
seek_high_fond = w
End Function