[mamuk]

Доброго времени суток! задача заключается в следующем!
получаю запись вида "A= 272°39'" через:

(setq az( car (nentsel"\nУкажите азимут формата<A= 272°20'>: ")))
(setq az1 ( cdr ( assoc 1 (entget az)))
мне в и тоге надо получить "272.39"
я понимаю надо "A=(тут пробел) 272°39' " представить ввиде списка
только как не знаю. для того чтоб избавиться от A= и от символов "°" " ' "
пробовал чере cdr чтобы отбросить хотя бы "А=" для начала но символ " ' " не дает ни чего сделать! как можно представить A= 272°39' ввиде списка '(A= 272 ° 39 ')???

[ERS10]

272°39' = 272.65°;
272.39° = 272°23'24"
272°39' # 272.39°
О чём речь? Нормальным русским человеческим языком объяснить можете? Тарабарщину не понимаю...

[hwd]

Сообщение от mamuk для того чтоб избавиться от A=

Имхо уже изначально нет смысла заставлять пользователя вводить "A=".

[mamuk]

"A= 272°39'" '- это азимут, подписывается в другой программе(credo), и только в таком виде.
мне для расчетов из этой записи надо выдернуть отдельно 272 и отдельно 39!

[gomer]

Код:

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

(defun cdl-string->list (s p / i)
;;; (cdl-string->list (getenv "ACAD") ";")
  (cond
	((setq i (vl-string-search p s))
		(cons (substr s 1 i) (cdl-string->list (substr s (+ (strlen p) i 1)) p))
	)
	(T (list s))
  )
)

надеюсь, разберешься сам ( s - строка, p - разделитель)

[Do$]

http://forum.dwg.ru/showthread.php?t=15661

[E-degtyarev]

По моему здесь хорошо сработает функция (angtof "xxxxxx" 1)

[mamuk]

спасибо! gomer, а можно без vl функций, а то чей-то, я сними пока не знаком

[E-degtyarev]

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

Код:

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

(setq st_r     (substr "A= 272°20'" 4);избавляемся от "A= "
      st_r     (vl-string-subst "d" "°" st_r);заменяем "°" на "d"
      st_r_new (rtos (* (angtof st_r 1) (/ 180 pi)));пересчитываем минуты и преобразуем в строку
) 
(print st_r_new);для наглядности печать

[CB]

E-degtyarev

Все это можно сделать проще

Код:

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

(setq a "A= 272°39'")
(angtos (angtof (substr a 4)) 0 2)
-> "272.65"

Но результат, зачем-то нужно получить такой

мне в и тоге надо получить "272.39"