我用的是cad 2004版的ObjectDBX16,在cad 2005以上的话: Dim C(0) As AcadCircle, P(2) As Double Dim S As AcadSortentsTable With ThisDrawing.ModelSpace Set C(0) = .AddCircle(P, 10) Set S = .GetExtensionDictionary.AddObject("AAA", "AcDbSortentsTable") S.MoveToBottom C End With 可以这么写,但是在2004里找不到这函数郁闷。 |