[Марк_Филипыч]

Хочу отдельной кнопкой создать ИМЕНОВАННЫЙ набор примитов (текстовые объекты) и потом передавать этот набор команде _updatefield
p.s. обновлять сразу все объекты слишком долго.

код на лиспе с передачей значений из набора тоже подойдет.

On Error Resume Next
ThisDrawing.SelectionSets.item("ПОЛЯ").Delete ' удаляем набор
Set objSelSet = ThisDrawing.SelectionSets.Add("ПОЛЯ") ' создаем набор заново
On Error GoTo 0

Dim ftype(0) As Integer
Dim fdata(0) As Variant
Dim dxfCode, dxfValue

ftype(0) = 0: fdata(0) = "MTEXT"
dxfCode = ftype: dxfValue = fdata

objSelSet.SelectOnScreen dxfCode, dxfValue ' выделяем объекты


ThisDrawing.SendCommand "_updatefield" & vbCr

[Марк_Филипыч]

нашел два варианта решения:
Lisp oм выделять именованный набор и запускать команду обновить поле
;_подсветка набора "Подсветка" - название именнового набора
(defun ss-gripset (/ SS SR SSN I)
(vl-load-com)
(setq SS (vla-get-selectionsets
(vla-get-activedocument (vlax-get-acad-object))
) ;_ end of vla-get-SelectionSets
) ;_ end of setq
(setq SSN (vla-item SS "Подсветка") SR (ssadd))
(vlax-for I SSN
(ssadd (vlax-vla-object->ename I) SR)
) ;_ end of vlax-for
(sssetfirst nil SR)
(princ)
) ;_ end of defun

или использовать select _P (предыдущий выбор)

[Автон]

Или не выходя из VBA

Код:

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

objSelSet.SelectOnScreen dxfCode, dxfValue ' выделяем объекты

ThisDrawing.SendCommand "(sssetfirst nil (ssget " & Chr(34) & "_P" & Chr(34) & ")) "

ThisDrawing.SendCommand "_updatefield" & vbCr