Lider Çizgileri Oluşturma Hakkında (VBA/ActiveX)

Çiziminizdeki herhangi bir noktadan veya özellikten bir kılavuz çizgi oluşturabilir ve çizerken görünümünü kontrol edebilirsiniz.

Kılavuz çizgiler düz çizgi parçaları veya düzgün spline eğrileri olabilir. Kılavuz çizgi rengi, mevcut boyut çizgisi rengiyle kontrol edilir. Kılavuz çizgi ölçeği, aktif boyut stilinde ayarlanan genel boyut ölçeğiyle kontrol edilir. Ok ucu varsa, türü ve boyutu, aktif stilde tanımlanan ilk ok ucuyla kontrol edilir.

Kanca çizgisi olarak bilinen küçük bir çizgi, genellikle açıklamayı ok ucuna bağlar. Kanca çizgileri, son ok ucu çizgisi yataydan 15 dereceden daha büyük bir açıda ise MText ve özellik kontrol çerçevelerinde görünür. Kanca çizgisi, tek bir ok ucunun uzunluğuna eşittir. Ok ucunda açıklama yoksa, kanca çizgisi de yoktur.

Kılavuz çizgi oluşturmak için şunu kullanın:Lider EkleBu yöntem, girdi olarak üç değer gerektirir: liderin oluşturulacağı yeri belirten koordinat dizisi, açıklama nesnesi (veya liderde açıklama yoksa NULL) ve oluşturulacak liderin türü.

Yönlendirme çizgisinin türü, çizginin düz bir hat mı yoksa düzgün bir spline eğrisi mi olacağını belirtir. Ayrıca yönlendirme çizgisinin oklar içerip içermeyeceğini de belirler. Yönlendirme çizgisinin türünü belirtmek için aşağıdaki sabitlerden birini kullanın:acLineNoArrow,acLineWithArrow,acSplineNoArrow, veyaacSplineWithArrowBu sabitler birbirini dışlayan sabitlerdir.

Sub Ch5_CreateLeader () Dim leaderObj As AcadLeader Dim points ( 0 To 8 ) As Double Dim leaderType As Integer Dim annotationObject As AcadObject 
     
        
     
     

    puanlar ( 0 ) = 0 : puanlar ( 1 ) = 0 : puanlar ( 2 ) = 0 
    puanlar ( 3 ) = 4 : puanlar ( 4 ) = 4 : puanlar ( 5 ) = 0 
    puanlar ( 6 ) = 4 : puanlar ( 7 ) = 5 : puanlar ( 8 ) = 0 
    liderTipi = oklu çizgi
     ek açıklama nesnesi ayarla = Hiçbir şey                   

    'Lider nesnesini model alanında oluşturun'
    Set leaderObj = ThisDrawing.ModelSpace. _
          Lider Ekle(noktalar, açıklama nesnesi, lider türü)
    ZoomAll
Son Alt Yordam