İçindekiler
Tüm çizim nesnelerini ve öznitelik referans nesnelerini belirtilen bir vektör boyunca hareket ettirebilirsiniz.
Bir nesneyi taşımak için şunu kullanın:TaşınmakBu nesne için sağlanan yöntem. Bu yöntem, girdi olarak iki koordinat gerektirir. Bu koordinatlar, verilen nesnenin ne kadar uzağa ve hangi yönde hareket ettirileceğini gösteren bir yer değiştirme vektörü tanımlar.
Bir daireyi bir vektör boyunca hareket ettirin #
Bu örnek, bir daire oluşturur ve ardından bu daireyi X ekseni boyunca iki birim hareket ettirir.
Sub Ch4_MoveCircle () ' Çemberi oluştur Dim circleObj As AcadCircle Dim center(0 To 2) As Double Yarıçapı Çift Olarak Azalt merkez(0) = 2#: merkez(1) = 2#: merkez(2) = 0# yarıçap = 0,5 Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius) ZoomAll ' Hareket vektörünü oluşturan noktaları tanımlayın . ' Hareket vektörü, çemberi 2 birim hareket ettirecektir. ' x ekseni boyunca . Dim point1 ( 0 To 2 ) As Double Dim point2 ( 0 To 2 ) As Double point1 ( 0 ) = 0 : point1 ( 1 ) = 0 : point1 ( 2 ) = 0 point2 ( 0 ) = 2 : point2 ( 1 ) = 0 : point2 ( 2 ) = 0 'Çemberi hareket ettirin' circleObj.Move point1, point2 daireNesnesi.Güncelle Son Alt Yordam
