Bir Nesnenin Çizgi Tipini Değiştirme Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Dairenin çizgi tipini değiştirin

Varsayılan olarak, nesneler oluşturuldukları katmanın çizgi tipini devralır.

Bir nesnenin çizgi tipini değiştirmek için şunu kullanın:Çizgi tipiBu nesne için sağlanan özellik.Çizgi tipiBu özellik, nesneye atanacak çizgi tipinin adını girdi olarak alır.

Not: Bir nesneye çizgi tipi atayabilmeniz için öncelikle çizgi tipinin mevcut çizime yüklenmesi gerekir. Çizgi tipini çizime yüklemek için şunu kullanın:Yükyöntem.

Dairenin çizgi tipini değiştirin #

Bu örnek bir daire oluşturur. Ardından acad.lin dosyasından “CENTER” çizgi tipini yüklemeye çalışır . Çizgi tipi zaten mevcutsa veya dosya mevcut değilse bir mesaj görüntülenir. Son olarak, dairenin çizgi tipini “CENTER” olarak ayarlar.

Sub Ch4_ChangeCircleLinetype () On Error Resume Next 
     

  'Bir daire oluşturun
  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 = 1
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)

  Dim linetypeName As String
  çizgi tipi adı = "MERKEZ"

  ' " CENTER " çizgi tipini acad.lin dosyasından yükle ThisDrawing.Linetypes.Load linetypeName , " acad.lin " Eğer Err.Description < > " " ise MsgBox Err.Description
     
        

  Daireye "MERKEZ" çizgi tipini atayın.
  daireObj.ÇizgiTürü = "MERKEZ"
  daireNesnesi.Güncelle
Son Alt Yordam