CASS 里的高程点是如何制作出来的呀

daoshi2902

我想实现一个类似CASS展高程点的功能，但是制作出来的 和 CASS自己生成的高程点不大一样。cass自带的用炸开高程注记就会消失，而且可以使用高程点处理下的打散高程注记。自己生成高程点的却不行。下面的是我用VBA的编码。
Dim ref As AcadBlockReference
Set block = ThisDrawing.Blocks.Item("GC200")  'CASS里 高程点都是GC200这个块名
block.AddAttribute 3, acAttributeModeVerify, "", insert, "height", "200"   '给块加个属性
Set ref = ThisDrawing.ModelSpace.InsertBlock(insert, "GC200", 1, 1, 1, 0)
用这个程序生成的高程点样子和CASS生成的高程点的差不多，但是不能用CASS的打散高程注记功能，而且炸开后会出现“height”这个文字注记。
是不是要用到实体编码 扩展数据那一类技术啊？？



小弟刚学VBA不久，求高人相助。不胜感谢！