[Ingpro]

Лисп заменяет результатом 187,2 строку в чертеже типа 10*2+20/2+157.2.
Причем результат выдает с разделителем "," (запятая), а считает только выражения с разделителем "." (точка).
Выражения с разделителями "," (запятая) игнорит. Пишет в КС "; ошибка: неверный тип аргумента: numberp: nil".
Помогите, пожалуйста, сделать вывод результата не заменой вычисляемого выражения, а отдельным текстом с
указанием точки вставки на экране, и чтобы результат тоже был с разделителем "точка".
И, если не сложно, добавить возможность вычисления выражений и с "," (запятой) тоже. Спасибо.

Код:

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

 (defun c:МАВ (/ e)
  (setq e (car (entsel "\Select text or mtext: ")))
  (setq e (vlax-ename->vla-object e))
  (vlax-property-available-p e 'textstring)
  (vla-put-textstring e (atof (rtos(cal (vla-get-textstring e)) 2 2)))
  (princ)
)

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

В процессе обработки всегда меняй "," на "."

[Ingpro]

Сообщение от Кулик Алексей aka kpblc В процессе обработки всегда меняй "," на "."

А как это сделать?

[===AAA===]

Да хоть через vl-string-subst

[Ingpro]

Сообщение от ===AAA=== Да хоть через vl-string-subst

А можно поподробней, плз...

[IgorTr2]

Сообщение от Ingpro А можно поподробней, плз...

Читаем Полищука:
1.8.18. Ôóíêöèÿ vl-string-subst
Заменяет в строке одну последовательность буквенно-цифровых символов на
другую, начиная с определенного номера позиции.
(vl-string-subst <новые> <старые> <строка> [<начало>])
Аргументы: <новые>, <старые> и <строка> — текстовые строки; <начало> — номер
позиции в аргументе <строка>, с которого начинается поиск нужной последова-
тельности символов для замены (по умолчанию — 0). Первый символ в строке
имеет номер 0.
Возвращаемое значение — строка, являющаяся результатом выполнения замены
последовательности символов в аргументе <строка>. Если последовательность
символов <старые> встречается в аргументе <строка> несколько раз, то произво-
дится только первая замена.
Примеры:
 (vl-string-subst "цып" "ва" "валенок") возвращает "цыпленок"
 (vl-string-subst "12" "a" "a para" 0) возвращает "12 para"
 (vl-string-subst "12" "a" "a para" 2) возвращает "a p12ra"
 (vl-string-subst "12" "a" "a para" 5) возвращает "a par12"
 (vl-string-subst "12" "b" "a para" 0) возвращает "a para"

[Ingpro]

Сообщение от IgorTr2 Читаем Полищука:

А как эти правила прикрутить к лиспу из поста #1, подскажите, пожалуйста, я совсем не программист...

[Сергей812]

Сообщение от Ingpro А как эти правила прикрутить к лиспу из поста #1, подскажите, пожалуйста, я совсем не программист...

ручками) получаете функцией vla-get-textstring текст и перед отправкой в качестве значения в cal функцией vl-string-subst заменить символ разделителя.

[Ingpro]

Сообщение от ===AAA=== Да хоть через vl-string-subst

Добавляю строку по замене запятой на точку

Код:

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

 (vl-string-subst
            "."
            ","
            (cdr (assoc 1 (entget a)))

Пишет в КС: Неизвестная команда
Значит как-то не так это делается, подскажите, пожалуйста, как правильно.

Код:

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

 (defun c:МВТ (/ e)
  (setq e (car (entsel "\Select text or mtext: ")))
  (setq e (vlax-ename->vla-object e))
  (vlax-property-available-p e 'textstring)
  (vla-put-textstring e (atof (rtos(cal (vla-get-textstring e)) 2 2)))
(vl-string-subst
            "."
            ","
            (cdr (assoc 1 (entget a)))
  (princ)
)

[IgorTr2]

ИМХО надо так:
(vl-string-subst "." "," (rtos (cdr (assoc 1 (entget a))) 2 2))

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

Че-т вы куда-то не туда...

Код:

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

 (vl-load-com)
(defun c:kpblc-round (/ ent prec text)
  (setq prec 2)
  (if (and (= (type
                (setq ent (vl-catch-all-apply (function (lambda () (car (entsel "\nSelect TEXT or MTEXT <Cancel> : "))))))
                ) ;_ end of type
              'ename
              ) ;_ end of =
           (wcmatch (cdr (assoc 0 (entget ent))) "*TEXT")
           (setq ent (vlax-ename->vla-object ent))

           ) ;_ end of and
    (if (vl-catch-all-error-p
          (vl-catch-all-apply
            (function (lambda ()
                        (setq text (atof (vl-string-subst "." "," (vla-get-textstring ent))))
                        ) ;_ end of lambda
                      ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
          ) ;_ end of vl-catch-all-error-p
      (princ "\nError rtos")
      (vla-put-textstring ent (vl-string-subst "," "." (rtos text 2 prec)))
      ) ;_ end of if
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[Ingpro]

Сообщение от IgorTr2 ИМХО надо так: (vl-string-subst "." "," (rtos (cdr (assoc 1 (entget a))) 2 2))

Не получается

Код:

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

  (defun c:МВТ (/ e)
  (setq e (car (entsel "\Select text or mtext: ")))
  (setq e (vlax-ename->vla-object e))
  (vlax-property-available-p e 'textstring)
  (vl-string-subst "." "," (rtos (cdr (assoc 1 (entget a))) 2 2))
  (princ)
)

Команда: МВТ
Select text or mtext: ; ошибка: неверный тип аргумента: lentityp nil

----- добавлено через ~1 мин. -----

Сообщение от Кулик Алексей aka kpblc Че-т вы куда-то не туда...

Алексей, а ваш код можно добавить к коду в посте#1?

[IgorTr2]

Переменная "a" откуда берётся?

[Ingpro]

Код:

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

  (vla-put-textstring ent (vl-string-subst "," "." (rtos text 2 prec)))

Код из поста #11 просто меняет точку на запятую, а мне надо вывод результата строки с математическим выражением
осуществить с разделителем точка (в коде из поста #1).

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

Ну поставь вместо vla-put-textstring обычный princ, делов-то

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Ну поставь вместо vla-put-textstring обычный princ, делов-то

Лиспы по замене запятых на точки и наоборот у меня есть, как эту замену добавить в код из поста #1? В этом затык...
Даже не добавить замену, а просто по умолчанию результат выводить с разделителем ".".

[koMon]

Ingpro,

Код:

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

 
(defun c:МАВ (/ m_text_object result)
  (setq m_text_object (vlax-ename->vla-object (car (entsel "\Select text or mtext: "))))
  (vla-addtext (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
			   (setq result (rtos (cal (vl-string-translate "," "." (vla-get-textstring m_text_object))) 2 2))
			   (vlax-3d-point (getpoint (strcat "\nУкажите точку для вставки результата (" result "): ")))
			   20
  )
  (princ)
)

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

У тебя rtos и atof стоят в странных местах. Почитай про эти функции - что и куда они преобразовывают. И помни, что в TEXT/MTEXT - у тебя только строки, как бы они ни выглядели.

[koMon]

у меня нет atof)

[Ingpro]

koMon, спасибо, правда ваш код из поста #17, заменяет вычисляемое выражение на результат с разделителем ".", и ещё вставляет тот же результат, но уже с разделителем ",". Как бы убрать замену выражения и оставить только вставку результата с
с разделителем ".", если не сложно... Просто, хотелось бы, чтобы строка с выражением осталась...