在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值呢?