[G-RAV]

Добрый день!
Подскажите, пожалуйста, как можно "добраться" до свойств стилей точки COGO, если стили меток и маркера установлены по-умолчанию, т.е. стили группы, в которую входит точка.
Другими словами, если у точки выставлен стиль метки или маркера, его свойства можно легко прочитать через ( vlax-get-property cogo 'style или 'LabelStyle), если же у точки стили "по умолчанию" (т.е. стили группы) получить vla-указатели на стили таким образом уже не получается, возвращает nil

[P_S]

Значит, надо пробежаться по группам точек в поисках выбранной точки. Что-то в этом духе:

Код:

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

 (vl-load-com)
(foreach app
    (vl-registry-descendents "HKEY_CLASSES_ROOT")
  (if (wcmatch(strcase app)"AECCXUILAND.AECCAPPLICATION*")
    (setq civ_app app)));версия Civil 3D
(setq pnt_no(vlax-get-property(vlax-ename->vla-object(ssname(ssget "_:S" '((0 . "AECC_COGO_POINT")))0))'Number))
(vlax-for grp                
(vlax-get-property(vlax-get-property (vla-GetInterfaceObject(vlax-get-acad-object)civ_app) 'ActiveDocument)'PointGroups)
  (if(member pnt_no
(vlax-safearray->list(vlax-variant-value(vlax-get-property grp 'Points))))
    (setq ptstyle(vlax-get-property grp 'PointStyle)
          lbstyle(vlax-get-property grp 'PointLabelStyle))
    )
  )

[G-RAV]

Спасибо.
Я примерно так и сделал, получил группы, по номеру определил в какую группу входит точка(тут же еще важно, определить верхнюю группу в списке), все работает, но моя конструкция получилась более громоздкая.
А в вашем коде, если группа попадется пустая(без точек) будет ошибка, надо, наверное, еще проверять PointCount на неравенство 0