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

daoshi2902 · 发表于 2012-11-22 14:22:00

我想实现一个类似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”这个文字注记。
求高人相助。不胜感谢！