[Макс_Кунгур]

Добрый день. Подскажите, пожалуйста, как в AutoLisp из списка ("0.7" "5.6" "13.4" "27.8" "29.6" "35.0") извлечь данные в числовое значение переменных, предположим s1=0.7, s2=5.6, s3=13.4, s4=27.8, s5=29.6, s6=35.0

[Макс_Кунгур]

Или из списка (("S") (0.7) (5.6) (13.4) (27.8) (29.6) (35.0)) извлечь данные в числовое значение переменных, предположим s1=0.7, s2=5.6, s3=13.4, s4=27.8, s5=29.6, s6=35.0

[Makswell]

Код:

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

(defun test (lst)
  (mapcar '(lambda (x) (atof x)) lst)
)

Проверка:

_$ (test '("0.7" "5.6" "13.4" "27.8" "29.6" "35.0")) (0.7 5.6 13.4 27.8 29.6 35.0)

[Макс_Кунгур]

Спасибо огромное, а как сейчас из этого списка каждое по отдельности число вывести в отдельные переменные, например, x1,x2,x3....

[Макс_Кунгур]

вот так я выделил каждый элемент
(foreach sl lst
(setq sl1 (nth 0 sl))
(setq sl2 (nth 1 sl))
(setq sl3 (nth 2 sl))
(setq sl4 (nth 3 sl))
(setq sl5 (nth 4 sl))
(setq sl6 (nth 5 sl)))
это я понимаю пошагово, если значений 6 в списке, а если их будет меньше или больше, как это будет выглядеть?

[Дима_]

Если не секрет зачем нужны такая куча переменных, чем список не устраивает?

[Макс_Кунгур]

Мне нужен не весь список, а переменные по отдельности, с которыми я буду работать в дальнейшем с каждым числом индивидуально

[Makswell]

Код:

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

(defun test (lst / n)
  (setq n 1)
  (foreach item	lst
    (set (read (strcat "s" (itoa n))) (atof item))
    (setq n (1+ n))
  )
 )

[Макс_Кунгур]

Спасибо, очень помогло. Скажи, пожалуйста, вот есть функция POLAR, определения точки T2 путем перемещения....У меня есть точка с координатами (x1,y1,z1). Как мне провести линию на расстояние r от этой точки, но только по оси Z. Т.е. должна образоваться точка с координатами (x1,y1,z2), где z2=z1-r

[Makswell]

Второй аргумент функции polar - это угол, отсчитываемый от оси X в плоскости XY. Так что polar в твоём случае не поможет.

[Макс_Кунгур]

вот я спрашиваю как это сделать, используя другой метод. Результат 1- это нарисовать линию от точки (x,y,z1) до точки (x,y,z2), где z2=z1-r (r-произвольное расстояние, константа), результат 2 - нарисовать окружности с центрами в т. (x,y,z1), (x,y,z2), (x,y,z3).....

[Makswell]

Да хотя бы так:

Код:

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

(vl-cmdf "_.LINE" pt (list (nth 0 pt) (nth 1 pt) (+ (nth 2 pt) r)) "")

где:
pt - трехмерная точка (LIST)
r - смещение по оси z (REAL)

[Макс_Кунгур]

Спасибо. Вопрос закрыт