[sam_n]

Есть результаты расчеты какой-нибудь плитной конструкции в ING+ в dxf файле. Соответственно в узлах конечноэлементной сетки проставлены величины армирования. Суть в том, чтобы между узлами со значениями, к примеру "2.0" и "-5.4" построить точку, соответствующую значению "0".
После долгих мучений удалось родить только такой макрос:

^C^C(setq c (getpoint));\(setq a \(setq d (getpoint));\(setq b \точка;'_cal;(Plt(c,d,abs(a)/(a+b)));

Сначала выбирается первая точка, с клавиатуры вводится первая величина в формате "2.0)", потом вторая точка и вторая величина. Суть проблемы очевидна, что не хочется вводить значение с клавиатуры.
Пытался приспособить функцию

(setq a (cdr (assoc 1 (entget (car (entsel "выбери текст"))))))

Сам в программировании не силен, но, как понял, дело в том, что а присваивается тип string.
Как можно присвоить переменной значение текста, чтобы она обработалась через _cal?

[VVA]

Код:

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

(setq num (atof(cdr(assoc 1(entget(car(entsel"\nВыбери текст: ")))))))

[Boxa]

удалил все. не туда.

[sam_n]

VVA, отлично) то что надо

аппетит просыпается во время еды)
(setq a (atof(cdr(assoc 1(entget(car(entsel"Выбери текст:")))))));\(setq с (atof(cdr(assoc 11(entget(car(entsel"Выбери текст:")))))));\
можно ли при присваивании переменной С сослаться на предыдущий объект? попробывал через набор, но, видимо, руки не из того места растут.
чтобы точка тоже считывалась с текста (все тексты серединами привязаны к конечноэлементной сетке) и в итоге заменить 4 клика мышки на 2.

[VVA]

Сообщение от sam_n можно ли при присваивании переменной С сослаться на предыдущий объект?

Не понятно что под этим подразумевается. И приложи файлик с примером.

[sam_n]

VVA, Файл приложил, но не знаю, будет ли от него толку)
Если запустить макрос

(setq a (atof(cdr(assoc 1(entget(car(entsel"Выбери текст:")))))));\(setq с (atof(cdr(assoc 11(entget(car(entsel"Выбери текст:")))))));\

то оба раза придется тыкать в один и тот же текст. Первый раз чтоб взять с него значение, второй, чтобы узнать привязку центра. Нельзя ли, чтобы второй раз тыкать не приходилось, а уже в самой команде сослаться на объект. Как писал выше, кажется что это можно сделать через наборы, но не пойму как.

[VVA]

Код:

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

(setq a(atof(cdr(assoc 1(setq ed(entget(car(entsel"Выбери текст:"))))))) c (cdr(assoc 11 ed)))

В переменной a - число, c - точка (привязка центра), ed - список текста для assoc (если понадобится далее)

[sam_n]

VVA, спасибо) то что доктор прописал)