Question

做Autocad二次开发（VBA语言）的大侠帮忙写段小程序！！！

目的是一键修改两种线性：
1，只要是CONTINUOUS线型，改为0粗实线层，颜色为

，线型保持不变，线粗为

2，只要是HIDDEN线型，改为4虚线层，颜色为

，线型保持不变，线粗为

麻烦给写段VBA代码，谢谢！





Answer 1

Dim allEnt As AcadEntity
Dim CONEnt As AcadEntity
Dim HIDEnt As AcadEntity

For Each allEnt In ThisDrawing.ModelSpace

If allEnt.Linetype = "CONTINUOUS" Then
Set CONEnt = allEnt
CONEnt.Layer = "0"
CONEnt.TrueColor.ColorIndex = acByLayer
CONEnt.Lineweight=acLnWtByLayer
End If

If allEnt.Linetype = "HIDDEN" Then
Set HIDEnt = allEnt
HIDEnt.Layer = "4"
HIDEnt.TrueColor.ColorIndex = acByLayer
HIDEnt.Lineweight=acLnWtByLayer
End If

Next allEnt