[Ingpro]

Подскажите, пожалуйста, как правильно изменить точность и единицы поля
В этом коде поле вида 256.500000
А нужно в десятичных единицах (%lu2), с точностью до 2 д.п. (%pr2).
Как правильно добавить эту строчку \f "%lu2%pr2">%"?

Код:

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

 ;; TEXT SUM TO FIELD
;;
(defun c:Fsum (/ lst pt ss)
 (vl-load-com)
 (prompt "\nSelect text to add numbers.")
 (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   (progn
     (setq pt (vlax-3D-Point (getpoint "\n Select Point: ")))
     (setq lst
            (strcat
              "%<\\AcExpr \("
              (vl-string-right-trim
                "+"
                (apply 'strcat
                       (mapcar
                         '(lambda (x)
                            (strcat
                              "%<\\AcObjProp Object(%<\\_ObjId "
                              (itoa x)
                              ">%).TextString>% +"
                            )
                          )
                         (mapcar
                           'vla-get-objectid
                           (mapcar
                             'vlax-ename->vla-object
                             (vl-remove-if 'listp
                               (mapcar 'cadr (ssnamex ss)))
                           )
                         )
                       )
                )
              )
              "\)>%"
            )
     )
     (vla-addMText
       (vla-get-modelspace
         (vla-get-ActiveDocument
           (vlax-get-acad-object)
         )
       )
       pt
       0.0
       lst
     )
   )
 )
 ;(princ lst)
 (princ)
)
;;
;;WIZ_12JAN10

[skkkk]

Интересная задачка. Тут ведь как этот механизм у них поступает? Поскольку в текстовых полях, которые суммирутся, он оперирует строками, а не числами, назначить точность внутри лямбды для каждого слагаемого не выйдет. Она назначается вручную в редакторе поля уже в общей формуле вида:

Код:

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

<\AcExpr (%<\_FldPtr 1624386672>% +%<\_FldPtr 1624457872>%)>%

Поэтому не удаются попытки замены подстроки перед созданием Мтекста "в лоб", к примеру:

Код:

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

 (setq lst (vl-string-subst " \\f \"%lu2%pr2\">%" ">%" lst (- (strlen lst) 3)))

Полез глубже и решил попробовать поработать с кодом поля только что созданного Мтекста:

Код:

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

 (setq obj (vlax-ename->vla-object (entlast)))
(setq fld (vla-FieldCode obj))
(setq lst (vl-string-subst " \\f \"%lu2%pr2\">%" ">%" fld (- (strlen fld) 3)))
(vla-put-TextString obj lst)

Вроде получилось, поле даже обновляется при обновлении исходных Мтекстов, но есть большая ложка дёгтя, даже две: при попытке открыть этот Мтекст поле "слетает", а при повторном открытии файла Мтекст вообще пропадает из чертежа.

Также заметил, что меняются идентификаторы кодов полей при любых попытках вручную изменить формат поля в окне редактора полей. Вспомнил про функцию от VVA - Get-ObjectID-x86-x64, которую следует использовать для снятия ID объектов в х64 системах - но это на результат не повлияло.

На этом мои мысли пока закончились.

[koMon]

Ingpro, skkkk,
строка 31

Код:

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

 
(defun c:Fsum (/ lst ss)
 (vl-load-com)
 (prompt "\nSelect text to add numbers.")
 (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   (progn
     (setq lst
            (strcat
              "%<\\AcExpr \("
              (vl-string-right-trim
                "+"
                (apply 'strcat
                       (mapcar
                         '(lambda (x)
                            (strcat
                              "%<\\AcObjProp Object(%<\\_ObjId "
                              (itoa x)
                              ">%).TextString>% +"
                            )
                          )
                         (mapcar
                           'vla-get-objectid
                           (mapcar
                             'vlax-ename->vla-object
                             (vl-remove-if 'listp
                               (mapcar 'cadr (ssnamex ss)))
                           )
                         )
                       )
                )
              )
              "\) \\f %lu2%pr2>%"
            )
     )
     (vla-addMText
       (vla-get-modelspace
         (vla-get-ActiveDocument
           (vlax-get-acad-object)
         )
       )
       (vlax-3D-Point (getpoint "\n Select Point: "))
       0.0
       lst
     )
   )
 )
 ;(princ lst)
 (princ)
)

[Ingpro]

Сообщение от koMon Ingpro, skkkk, строка 31

Огромная благодарность, koMon, всё работает, 2 знака после зпт!!!
Была попытка добавить в 31 строку перед скобкой "\f %lu2%pr2>%"), но не сработало, оказывается надо после...
skkkk, спасибо за мысли...

[skkkk]

Offtop: Интересно, где ж это я накосорезил?
Ну уже неинтересно, честно говоря.
Давненько не лисповал. А жаль.
А вот KoMon - красавчик. Умеет, практикует

[koMon]

Сообщение от skkkk накосорезил

поле по своей сути это односложная или многосложная строка к которой можно приложить соответствующее его выводному значению форматирование в конце этой строки.