系统注册表中不存在 AcRxClassName 项 望指教

illuminiti

调试论坛上某帖子的一段代码：
Dim DictObj As AcadDictionary
       Set DictObj = ThisDrawing.Database.dictionaries.Item("acad_tablestyle")       Dim keyName As String
       Dim className As String
       Dim customObj As AcadTableStyle
       keyName = "明细表"
       className = "AcDbTableStyle"
       Set customObj = DictObj.AddObject(keyName, className)
提示：系统注册表中不存在 AcRxClassName 项
在帮助代码中，AddObject方法之前还加载了arx
想在字典中添加实体RasterImage
请问这个错误该怎么解决？要有什么前提条件？
望指点  谢谢！

illuminiti

顶个 ！！!!!!!!!!!!!