Пытался рыть в этом направлении с помощью VBA... При подключении в References соответствующих библиотек - объектную модель ASD в Object browser можно увидеть, все классы объектов с методами/свойствами. Теоретически - значит можно работать с ней из под VBA, если знать как? Но на практике применить - видимо не хватает знаний. Элементарный пример: примитив ASD "Профиль" (в русской версии). В окне свойств Автокада по нему информации минимум: то, что имеется у всех примитивов (слой, вес линий и т.п.), немногим больше можно увидеть через (entget (car (entsel))), или применив в VBA
ThisDrawing.Utility.GetEntity obj, varPoint, "Выбери профиль..."
Stop
Можно определить, что объект в переменной obj принадлежит классу "IRbCSMdlProfile".
Но, если объявить "ASD-шную" переменную и "тупо" присвоить ей значение obj, то уже можно работать с ней, используя ее свойства, причем хотя в окне Locals этих свойств не видно, но в выпадающем списке после имени переменной с точкой (в редакторе кода VBA)они есть..(см. рисунок) 
Dim RbCSM As RbCSMdlProfile
Set RbCSM = obj
Если бы у переменной класса RbCSMdlProfile были свойства, содержащие длину, массу, тип профиля (или какие-либо ссылки на них), то уже можно было бы их считывать программно. Но с нее удалось "выдоить" полезного - только координаты ключевых точек осевой линии .Coordinate да .GetBoundingBox (уже, конечно, что-то; используя эти свойства, написал утилитку, убивающую объекты-дубликаты ASD). Есть в объектной модели класс "RbCSDOProfile", там уже имеется свойство "Length", методы типа "GetUIMaterialName", но "...Dim RbCSM As RbCSDOProfile:Set RbCSM = obj..." выдает ошибку "несовпадение типов".
Вобщем, метод тыка мне в VBA, а Дамиру в Lisp пока больших успехов не принес. Может, посоветуете, куда двигаться?
