Bir nesneyi ötelemek, orijinal nesneden belirtilen bir öteleme mesafesinde yeni bir nesne oluşturur.
Yayları, daireleri, elipsleri, çizgileri, hafif çoklu çizgileri, çoklu çizgileri, spline’ları ve x çizgilerini öteleyebilirsiniz.
Bir nesneyi ötelemek için şunu kullanın:Telafi etmekBu nesne için sağlanan yöntem. Bu yöntemin tek girdisi, nesneyi ötelemek için gereken mesafedir. Bu mesafe negatifse, AutoCAD tarafından “daha küçük” bir eğri oluşturmak için bir öteleme olarak yorumlanır (yani, bir yay için, başlangıç eğrisinin yarıçapından verilen mesafe kadar daha küçük bir yarıçapa öteleme yapılır). “Daha küçük”ün bir anlamı yoksa, AutoCAD daha küçük X , Y , Z WCS koordinatları yönünde öteleme yapar. Öteleme mesafesi geçersizse, bir hata döndürülür.
Birçok nesne için, bu işlemin sonucu tek bir yeni eğri olacaktır (bu eğri orijinal eğriyle aynı türde olmayabilir). Örneğin, bir elipsi ötelemek bir spline ile sonuçlanacaktır çünkü sonuç bir elipsin denklemine uymaktadır. Bazı durumlarda, öteleme sonucunun birden fazla eğri olması gerekebilir. Bu nedenle, yöntem yeni nesneyi veya nesne dizisini bir varyant olarak döndürür.
Çoklu çizgiyi ötele #
Bu örnek, hafif bir çokgen çizgi oluşturur ve ardından bu çokgen çizgiyi öteler.
Sub Ch4_OffsetPolyline () ' Çoklu çizgiyi oluştur Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double puan(0) = 1: puan(1) = 1 puan(2) = 1: puan(3) = 2 puan(4) = 2: puan(5) = 2 puan(6) = 3: puan(7) = 2 puan(8) = 4: puan(9) = 4 puan(10) = 4: puan(11) = 1 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) plineObj.Closed = True ZoomAll ' Çokgen çizgiyi ötele Dim offsetObj As Variant offsetObj = plineObj . Offset ( 0.25 ) ZoomAll Son Alt Program
