Назначить разделители в лиспе

Назначить разделители в лиспе · 18.04.2023, 19:44

Лисп заменяет результатом 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 · 18.04.2023, 23:46

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

Ingpro · 19.04.2023, 09:47

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

===AAA=== · 19.04.2023, 11:02

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

Ingpro · 19.04.2023, 11:26

Цитата:

Сообщение от ===AAA===

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

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

IgorTr2 · 19.04.2023, 12:00

Цитата:

Сообщение от 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 · 19.04.2023, 12:22

Цитата:

Сообщение от IgorTr2

Читаем Полищука:

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

Сергей812 · 19.04.2023, 14:55

Цитата:

Сообщение от Ingpro

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

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

Ingpro · 21.04.2023, 10:43

Цитата:

Сообщение от ===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 · 21.04.2023, 10:54

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

Кулик Алексей aka kpblc · 21.04.2023, 11:29

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

Код:

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

 (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 · 21.04.2023, 11:33

Цитата:

Сообщение от 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 · 21.04.2023, 11:38

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

Ingpro · 21.04.2023, 11:43

Код:

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

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

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

Кулик Алексей aka kpblc · 21.04.2023, 11:47

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

Ingpro · 21.04.2023, 11:53

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

koMon · 21.04.2023, 11:56

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 · 21.04.2023, 11:57

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

koMon · 21.04.2023, 11:59

у меня нет atof)

Ingpro · 21.04.2023, 12:07

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

Кулик Алексей aka kpblc · 21.04.2023, 13:45

Цитата:

Сообщение от koMon

у меня нет atof)

Я отвечал Ingpro

Ingpro · 21.04.2023, 13:55

Цитата:

Сообщение от Кулик Алексей aka kpblc

Я отвечал Ingpro

Ingpro nicht verstehen! Может быть поможет иллюстрация работы кода koMon из поста #17.

koMon · 21.04.2023, 14:45

не сложно. см. #17
Offtop: when a door is not a door?

Ingpro · 21.04.2023, 15:16

koMon, однако, ничего не изменилось, но добавилась ошибка при загрузке ; ошибка: неверно сформированный список на входе. А новом файле чё-то пишет неизвестная команда???
Всё также заменяет выражение на результат с точкой и также вставляет результат с запятой...
)))when it is a window или when it is ajar(((

koMon · 21.04.2023, 17:26

скобочки) посчитал) #17

VVA · 21.04.2023, 17:26

Цитата:

Сообщение от Ingpro

И, если не сложно, добавить возможность вычисления выражений и с "," (запятой) тоже.

Правда у меня заработало с функцией C:CAL, а не cal
Заменяет все запятые на точки, плюс удаляет возможные пробелы в начале и конце

Код:

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

 
(defun c:МАВ (/ e)
(vl-load-com)
   (if
     (and
       (setq e (car (entsel "\nВыберите текст или мтекст: ")))
       (setq e (vlax-ename->vla-object e))
       (vlax-property-available-p e 'textstring)
       (vlax-write-enabled-p e)
       )
      (vla-addtext (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
                           (mip-string-subst "," "."
			   (rtos (c:cal (VL-STRING-TRIM " "(mip-string-subst "." "," (vla-get-textstring e)))) 2 2))
			   (vlax-3d-point (getpoint "\nУкажите точку для вставки результата: "))
			   (vla-get-Height e)
        )
     )
  (princ)
   )
(defun mip-string-subst (newchar curchar str / pos)
    ;|===========================================================================================
Функция заменяет в строке str все встречающие сочетания символов chars_old на chars_new. 
Фактически является расширением функции vl-string-subst, которая заменяет только первое
попавшееся сочетание
* Регистрозависимо
*	newchar	новая подстрока
*	curchar	старая подстрока
*	str		исходная строка
*    Примеры вызова:
(mip-string-subst "Па" "Ма" "Мама мыла раму")
; "Пама мыла раму" 
=============================================================================|;      
      (setq pos 0)
      (while (setq pos (vl-string-search curchar str pos))
        (setq str (vl-string-subst newchar curchar str)
              pos (+ (strlen newchar) pos)
        ) ;_ end of setq
      ) ;_ end of while
      str
    ) ;_ end of defun

Ingpro · 21.04.2023, 19:53

Спасибо большое, koMon и VVA! Хорошо, что есть умные и отзывчивые люди!
Оба лиспа из постов #17 и #26 работают. Только в коде #26 результат вставляется с разделителем ",", а не с "."
Заменяю строчку 11 на

Код:

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

 (mip-string-subst "." ","

и результат вставляется с разделителем ".".
Спасибо за волшебство! Коды так по-разному написаны, а выполняют одну задачу?

Ingpro · 22.04.2023, 08:50

Если не слишком... спрошу ещё... возможно в таком же формате (с такими же разделителями) написать код, который
выбирает группу (столбик) отдельных текстов или мтекстов рамкой (интересует только умножение двух чисел) и заменяет на результаты.
3*237.56
24*79.6
11*188.34
и т.д.

koMon · 24.04.2023, 14:26

как понял
Offtop: when it's ajar.

Код:

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

 
(defun c:RTSC (/ m_text_list) ;	replace text string with calculated result
	(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
	(setq m_text_object_list (mapcar 
								'vlax-ename->vla-object 
									(vl-remove-if 
										'listp 
											(mapcar 
												'cadr 
													(ssnamex 
														(ssget 
															"_:l" 
															'((0 . "*text"))
														)
													)
											)
									)
							)
	)
	(foreach m_text_object m_text_object_list 
  		(vla-put-textstring m_text_object
  						   (rtos (cal (vl-string-translate "," "." (vla-get-textstring m_text_object))) 2 2)
  		)
	)
	(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  	(princ)
)

Ingpro · 24.04.2023, 15:13

Цитата:

Сообщение от koMon

как понял

Спасибо, koMon, то, что надо! Не только умножение, но и другие операции тоже, класс!
)))let it be ajar(((

Ingpro · 27.10.2023, 12:14

Изначально лиспы из постов #17, #26 и # 29 работали, теперь пробую в разных (и новых) файлах, везде пишет:
Выберите текст или мтекст: ; ошибка: no function definition: C:CAL.
Подскажите, пожалуйста, в чем проблема? AutoCAD 2015 rus...

Сергей812 · 27.10.2023, 13:41

загрузить сначала geomcal.arx или что-то похоже

Ingpro · 27.10.2023, 13:53

Цитата:

Сообщение от Сергей812

загрузить сначала geomcal.arx или что-то похоже

А где это взять? И почему раньше без этого коды работали???

Сергей812 · 27.10.2023, 14:03

Цитата:

Сообщение от Ingpro

А где это взять?

из папки акада.

Цитата:

Сообщение от Ingpro

И почему раньше без этого коды работали???

без понятия. Это область ответственности CAD-менеджера вашей фирмы)

Ingpro · 27.10.2023, 14:22

Цитата:

Сообщение от Сергей812

без понятия

А не может какой-нибудь другой загруженный код что-нибудь отключить в AutoCADе?

koMon · 27.10.2023, 14:25

Цитата:

Сообщение от Ingpro

Подскажите, пожалуйста, в чем проблема?

вс-таки для начала надо проверить загружен калькулятор или нет
(type cal) или (type c:cal)
если говорит nil, то попытаться его загрузить (arxload "geomcal")
если не грузит, то его похерили например.

Сергей812 · 27.10.2023, 14:33

Цитата:

Сообщение от Ingpro

А не может какой-нибудь другой загруженный код что-нибудь отключить в AutoCADе?

или наоборот - другой код подгружал нужный компонент, только поменялось направление работы и тот код перестал вызываться первым.

Ingpro · 27.10.2023, 14:37

Цитата:

Сообщение от koMon

(type cal) или (type c:cal)
если говорит nil

(type cal) и (type c:cal говорит nil,
Неизвестная команда "ARXLOAD"

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

Цитата:

Сообщение от koMon

если не грузит, то его похерили например

А как и куда его вернуть?
После ввода (arxload "geomcal") в ком. строке: Распечатать файл: (arxload "geomcal")
А этот код работает

Код:

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

 ;; заменяет на результат группу отдельных текстов или мтекстов (с умножением двух чисел, типа 20*3) 
(defun c:У2 ( / ss i e ex txt n1 n2 )
  (if (setq ss (ssget "_:L" (list (cons 0 "*TEXT"))))
    (repeat (setq i (sslength ss))
      (setq e (ssname ss (setq i (1- i))))
      (setq txt (cdr (assoc 1 (setq ex (entget e)))))
      (setq n1 (substr txt 1 (1+ (vl-string-search "*" txt))))
      (setq n2 (substr txt (+ 2 (vl-string-search "*" txt))))
      (setq n1 (atof n1))
      (setq n2 (atof n2))
      (setq txt (rtos (* n1 n2) 2 2))
      (entupd (cdr (assoc -1 (entmod (subst (cons 1 txt) (assoc 1 ex) ex)))))
    )
  )
  (princ)
)

Сергей812 · 27.10.2023, 15:24

_appload в комстроке акада и в диалоге ищем вышеупомянутый файл в папке приложения акада в программфайлес. Если нашли (может быть и не arx расширение файла) - загружаем его и пробуем лиспы. Если нет - значит, похерили и переустанавливайте акад.

Ingpro · 27.10.2023, 15:34

Спасибо всем...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как в лиспе прописать двойное условие?	Jek30	LISP	6	06.12.2022 10:07
Как назначить абсолютно жесткий элемент-стержень в Лире-САПР (некоммерческая) 2013 R5?	Юрий_Нд	Лира / Лира-САПР	13	13.11.2018 10:46
Как назначить один набор параметров листа сразу нескольким листам?	Shturman121	AutoCAD	7	05.02.2018 12:49
Как назначить жёсткость пружинных опор если C=1000?	МишаИнженер	Лира / Лира-САПР	10	25.10.2013 11:58
Можно ли назначить форму элемента и его армирование, а потом импортировать жёсткости этого элемента в ЛИР-ВИЗОР?	МишаИнженер	Лира / Лира-САПР	9	15.01.2013 12:06

18.04.2023, 19:44		#1
Назначить разделители в лиспе Ingpro Регистрация: 11.07.2022 Сообщений: 494 Лисп заменяет результатом 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) )
Просмотров: 2239