Создаю селекшен (пока разговор про один размер) и хочу узнать координаты точек привязки.
Нашел, что это коды DXF № 10 и 11. Но такая вот строчка программы почемуто не даёт
значений этих ячеек (возможно и даёт, но я их вынять не могу). Что я делаю не так?

gpCode(0) = 0
dataValue(0) = "DIMENSION"
groupCode = gpCode
dataCode = dataValue

ssetObj.SelectOnScreen groupCode, dataCode

Dim xdataOut As Variant
Dim xtypeOut As Variant

ssetObj.Item(0).GetXData "", xtypeOut, xdataOut

[{Smirnoff}]

С VBA не помогу, сам его изучаю максимум 2 недели и вопросов куча. А на LISP создание набора из всех примитивов рисунка типа "DIMENSION":

(setq dimset(ssget "_X" '((0 . "DIMENSION"))))

Для проверки можем все подсветить (sssetfirst nil dimset). Теперь выделим по очереди все примитивы из набора и создадим список типа:
((начало 1)(конец 1))((начало 2)(конец 2)) .... ((начало n)(конец n)))

Код:

[Выделить все]

(defun c:diml (/ dimset setlen counter current_lis 10_11_list out_list)
(setq dimset(ssget "_X" '((0 . "DIMENSION"))))
(setq setlen (sslength dimset))
(setq counter 0)
(repeat setlen
(setq current_list (entget(ssname dimset counter)))
(setq 10_11_list (list (cdr(assoc 10 current_list))(cdr(assoc 11 current_list))))
(setq out_list(append out_list (list 10_11_list)))
(setq counter (1+ counter))
);end repeat
(princ out_list)
  (princ)
  )

Сходите на форум www.autocad.ru в раздел VBA. Правда народ там (именно в разделе VBA) не особенно отзывчивый, высока вероятность "ответов 0".

Нет, это как бы не пойдёт, т.к. VBA я тоже всего ничего изучаю, а лисп даже ещё и не смотрел...