怎样修改线宽?

可乐吧 · 发表于 2002-9-24 09:46:00

我没有找到怎么修改线宽的,看到可以修改线型.
是需要做出粗实线,细实线的效果,应该怎么做?
还有就是尺寸标注和层之间是什么关系?好像都看作实体?
谢谢大家,帮帮我啊,我是刚入门.

秋枫 · 发表于 2002-9-24 10:30:00

Sub Example_LineWeight()
' This example creates a circle in model space and then
' finds the current lineweight for the circle. The lineweight
' is then changed to a new value.

Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double

' Define the circle
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5#

' Create the Circle object in model space
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
ZoomAll

' Find the lineweight for the circle
MsgBox "The current lineweight for the circle is " & circleObj.Lineweight

' Change the lineweight for the circle
circleObj.Lineweight = acLnWt211
circleObj.Update
MsgBox "The current lineweight for the circle is " & circleObj.Lineweight
End Sub