关于AutoCAD线型

在group code中，线型Ltype的code有以下几个

2-----线型名

70----标准标志值

3-----关于线型的说明性文字

72---定位(Alignment)代码

73---虚线段项数的数目

40---这种线型定义的图案长度

49---线型各虚线段的长度(可选项，可能重复多次)

以上code中，

1. 49出现次数与73的值相等，即如果有3项虚线段，则49的值也会重复连续出现三次.

2.49的值如为0则表示虚线段为点(dot)，为负值时表示为空格，表示正值时表示实线段。

3.40的值为正值时，此线一定为段开线，如hidden,dashed,center等等，值为0时表示为实线continuous.

那么，可以怎样在VBA中返回以上的code值呢?