如何取得某图层的默认线型？

zcmfk

     各位学长，我又碰到新问题了。在岗位工作中，我需要根据图纸的某图层名来取得该图层的默认线型：

      Dim acLyrTblRec As LayerTableRecord
      If acLyrTbl.Has(acEnt.Layer) = True Then  _ 
         acLyrTblRec = acTrans.GetObject(acLyrTbl(acEnt.Layer), OpenMode.ForWrite)

 

但我只能取得  acLyrTblRec.LinetypeObjectId,却无法转化为线型名称，请各位帮忙！谢谢！

雪山飞狐_lzh

dim lttr as LinetypeTableRecord = acTrans.GetObject(acLyrTblRec.LinetypeObjectId, OpenMode.ForWrite)

 

lttr.name
 

chpmould

我也学习一下

zcmfk

谢谢了。