Tüm çizim nesnelerini ve öznitelik referans nesnelerini döndürebilirsiniz.
Bir nesneyi döndürmek için şunu kullanın:DöndürBu nesne için sağlanan yöntem. Bu yöntem, girdi olarak bir temel nokta ve bir dönüş açısı gerektirir. Temel nokta, üç adet çift duyarlıklı sayıdan oluşan bir değişken dizidir. Bu çift duyarlıklı sayılar, dönüş ekseninin tanımlandığı noktayı belirten bir 3B WCS koordinatını temsil eder. Dönüş açısı radyan cinsinden belirtilir. Bu açı, bir nesnenin mevcut konumuna göre temel nokta etrafında ne kadar döndüğünü belirler.
Bir çokgen çizgisini bir taban noktası etrafında döndürmek #
Bu örnek, kapalı, hafif bir çokgen çizgi oluşturur ve ardından çokgen çizgiyi taban noktası (4, 4.25, 0) etrafında 45 derece döndürür.
Sub Ch4_RotatePolyline () ' Çoklu çizgiyi oluştur Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double puan(0) = 1: puan(1) = 2 puan(2) = 1: puan(3) = 3 puan(4) = 2: puan(5) = 3 puan(6) = 3: puan(7) = 3 puan(8) = 4: puan(9) = 4 puan(10) = 4: puan(11) = 2 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) plineObj.Closed = True ZoomAll ' (4, 4.25, 0) taban noktası etrafında 45 derecelik dönüşü tanımlayın. Dim basePoint(0 To 2) As Double Dönme Açısını Çift Olarak Belirle basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0 Dönüş Açısı = 0,7853981 ' 45 derece 'Çokgen çizgiyi döndür' plineObj.Rotate basePoint, rotationAngle plineObj.Güncelle Son Alt Yordam
