制圖標準規定，不同意義的線型需要不同的線型來描述。

• 使用線型

Linetype為線型對象，是線型集合的成員，通過破折號、點和空格的不同組合，行程不同的線型，每一個圖形文件，系統均自動創建了3個線型對象：BYLARER，BYBLOCK和CONTINUOUS。

對象在創建時的線型繼承所在的圖層的線型，要使用其線型，首先用Linetype對象的Load方法裝載線型，然后用Document對象的ActiveLinetype屬性將已經裝載的線型設置為當前線型，線型必須存在一個LIN庫文件中，AutoCAD自帶線型存放于Acad.Lin和Acadiso.Lin文件中。

下面的代碼裝載“dashed”線型，并用它繪制一個圓。

Private Sub Command1_Click()
??? On Error Resume Next
??? acadapp.ActiveDocument.Linetypes.Load "dashed", "d:\program files\acad2004\support\acad.lin"
??? acadapp.ActiveDocument.ActiveLinetype = acadapp.ActiveDocument.Linetypes.Item("dashed")
??? Dim circleobj As AcadCircle
??? Dim centerpoint(0 To 2) As Double
??? Dim radius As Double
??? centerpoint(0) = 0#: centerpoint(1) = 0#: centerpoint(2) = 0#
??? radius = 5#
??? Set circleobj = acadapp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
??? circleobj.Update
??? ZoomExtents
End Sub

• 指定線型比例

圖形對象的LinetypeScale屬性指定線型比例，比例越小，線段單位為長度內重復的圖形樣式越多，線型比例只改變單位長度內重復的圖形樣式的多少，不能改變線段的寬窄，線段的寬窄由Lineweight屬性決定。也可用CELTSCALE系統變量設置新創建對象的線型比例，LTSCALE全局地對已有對象修改線型比例，設置系統變量的方法是SetVariable。

總結

以上是生活随笔為你收集整理的VB编程操作AutoCAD线型的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。