[Isuma]

Подскажите, пожалуйста, как составить алгоритм написания Lisp (и какие функции нужно использовать), для того, чтобы он создавал объект с текстом, в который было бы вставлено ПОЛЕ. А в этом поле была бы написана формула, которая суммирует содержимое все выделенных пользователем текстовых объектов (с числами). Грубо говоря, аналог экселевского SUM. Главная задача состоит в том, чтобы не тыкать по каждому объекту, который нужно суммировать, а выбрать все разом и назначить тип "Содержимое".
Прикладываю файл с результатом, который должен получиться.

----- добавлено через ~8 ч. -----
Посмотрел тему: http://autolisp.ru/2010/05/30/field-proceed-2/
где описано программное создание ПОЛЯ. Вот только этот код, который написал товарищ Кулик Алексей aka kpblc:

Код:

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

 (vl-load-com)

(defun c:insfld (/ adoc ent pt)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (and (= (type
                (setq
                  ent (vl-catch-all-apply
                        (function
                          (lambda ()
                            (vlax-ename->vla-object
                              (car
                                (entsel "\nУкажите отрезок, полилинию или сплайн <Отмена> : ")
                                ) ;_ end of car
                              ) ;_ end of vlax-ename->vla-object
                            ) ;_ end of lambda
                          ) ;_ end of function
                        ) ;_ end of vl-catch-all-apply
                  ) ;_ end of setq
                ) ;_ end of type
              'vla-object
              ) ;_ end of =
           (vlax-property-available-p ent 'length)
           (= (type (setq pt (vl-catch-all-apply
                               (function
                                 (lambda ()
                                   (getpoint "\nУкажите точку для простановки поля <Отмена> : ")
                                   ) ;_ end of lambda
                                 ) ;_ end of function
                               ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           pt
           ) ;_ end of and
    (vla-addtext
      (vla-objectidtoobject
        adoc
        (vla-get-ownerid ent)
        ) ;_ end of vla-ObjectIDToObject
      (strcat "%<\\AcObjProp Object(%<\\_ObjId "
              (vl-princ-to-string (get-objectid-x86-x64 ent))
              ">%).Length \\f \"%lu6\">%"
              ) ;_ end of strcat
      (vlax-3d-point pt)
      2.5
      ) ;_ end of vla-addtext
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

выдаёт ошибку no function definition: GET-OBJECTID-X86-X64. Это, видимо, связано с тем, что должна быть использована vla-get-objectid.
Но, тем не менее, длина не передаётся в Field. То есть, получаемое значение - ####.
Да простит меня за плагиат Кулик Алексей aka kpblc, я изменил length на textstring.
Таким образом, код для поля выглядит как: %<\AcObjProp Object(%<\_ObjId 43>%).textstring>%
Однако, значение содержимого текста всё равно не передаётся. То есть, ID этого объекта при использовании Лисп не совпадает с id объекта, которое берётся при обычной вставке Поля средствами Автокада.

[VVA]

Есть еще такой вариант (реакторы)
А так же посмотреть здесь LISP. Вставка в таблицу поля, соотвествующего площади примитива

[gomer]

и вирусы

[art_rrc]

100% Дело в разрядности вашей системы (AutoCADа). Так что нужно копать именно в этом направлении.. Так что функция "vla-get-objectid", будет верна только для 32х разрядных систем. Там ID объектам присваивались по порядку. А в 64х разрядных версиях формула для поля выглядит примерно так: "%<\AcObjProp Object(%<\_ObjId 8796087797184>%).TextString>%", т.е. ID - очень многозначное число, не важно сколько примитивов в модели. Так что нужна функция "GET-OBJECTID-X86-X64", о ней вам подробнее (надеюсь) расскажет Алексей..

[Кулик Алексей aka kpblc]

Во-первых, код этой функции был прямо показан в статье (да еще и ссылка дана на исходник http://forum.dwg.ru/showpost.php?p=566244&postcount=8). Эту функцию просто рядом в lsp прописать и все.
Во-вторых, чуть ниже приводится ссылка на http://autolisp.ru/2011/07/07/x32x64objectid/ и там же - исходники альтернативных функций (которые достаточно просто переименовать). Скажу честно - сейчас рассказывать все подряд у меня нет никакой возможности.

[VVA]

Ссылка на оригинал Get-ObjectID-x86-x64

[kakt00z]

откуда у текстового объекта скажите мне свойство length ?

[Кулик Алексей aka kpblc]

Сообщение от kakt00z откуда у текстового объекта скажите мне свойство length ?

Чего? Ты на формулу поля посмотри - там еще и не такое встретишь