Задача проста: стрелочные ЧАСЫ средствами Автокад.
Покрасивее, пожалуйста...

[Елпанов Евгений]

>PSW
1 У тебя, почему то, слетело форматирование - потерялись некоторые скобки.
2 После приведения в порядок п 1 нашел еще две ошибки в вытаскивании даты не все цифры доставались, пришлось заменить

Код:

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

(setq A (rtos (getvar "CDATE") 2))

на

Код:

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

(setq A (rtos (getvar "CDATE") 2 16))

Тогда часики пошли, но очень быстро (полностью заканчивали работу за долю секунды) пришлось добавить в цикл

Код:

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

(vl-cmdf "Delay" 200)

и увеличить количество повторов...
После всех доделок получились приятные часики...

Код:

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

;**********Автор PSW ************************
; Функция переводит градусы в радианы ; Параметр - угол в градусах
;************************************************************
(defun G2R (GG / AA) (setq AA (/ (* pi GG) 180.0)) )

;************************************************************
;************************************************************
;************************************************************
; Функция переводит радианы в градусы
; Параметр - угол в радианах
(defun R2G (GG / AA) (setq AA (/ (* 180.0 GG) pi)) )

;************************************************************
;************************************************************
(defun *ERROR* ()
  (command "_ZOOM" "_ALL")
  (command "_ERASE" "_w" '(-100.0 -100.0) '(100.0 100.0) "")
  (SetVar "FILEDIA" 1)
  (princ)
) ;_  defun
  ; end defun *error*
  ;***********************************************************
(defun C:PSW (/ A A1 A2 A3 A4 B1 T0 T1 T2 U U1 W1 W2 W3)
  (setvar "CMDECHO" 0)
  (command "_ZOOM" "_w" '(-100.0 -100.0) '(100.0 100.0))
  (setq T1 (list 0.0 90.0))
  (setq T2 (list 0.0 100.0))
  (setq T0 (list 0.0 0.0))
  (command "_LINE" T1 T2 "")
  (setq A (entlast))
  (command "_ARRAY" A "" "_p" T0 60 "" "")
  ;***************************************************
  (setq T1 (list 0.0 85.0))
  (setq T2 (list 0.0 100.0))
  (command "_PLINE" T1 "_w" 2.0 2.0 T2 "")
  (setq A (entlast))
  (command "_ARRAY" A "" "_p" (list 0.0 0.0) 12 "" "")
  ;***************************************************
  (repeat 50
    (setq A (rtos (getvar "CDATE") 2 16))
    (setq A1 (substr A 10 2))
  ; Часы
    (setq A2 (substr A 12 2))
  ; Минуты
    (setq A3 (substr A 14 2))
  ; Cекунды
    (setq A4 A3)
  ;*****************************************************
    (setq B1 (+ (atoi A1) (/ (atoi A2) 60.0)))
    (setq U (- 90.0 (* B1 30.0)))
    (command "_PLINE" (polar T0 (G2R (+ 180.0 U)) 20.0) T0 "_w" 4.0 4.0 (polar T0 (G2R U) 50.0) "")
    (setq W1 (entlast))
  ;*****************************************************
    (setq B1 (+ (atof A2) (/ (atof A3) 60.0)))
    (setq U (- 90.0 (* B1 6.0)))
    (command "_PLINE" (polar T0 (G2R (+ 180.0 U)) 20.0) T0 "_w" 4.0 4.0 (polar T0 (G2R U) 80.0) "")
    (setq W2 (entlast))
  ;*****************************************************
    (setq B1 (atof A3))
    (setq U (- 90.0 (* B1 6.0)))
    (setq U1 (fix (- 90.0 (* B1 6.0))))
    (command "_LINE" (polar T0 (G2R (+ 180.0 U)) 20.0) (polar T0 (G2R U) 100.0) "")
    (setq W3 (entlast))
  ;*****************************************************
    (while (= A3 A4)
      (vl-cmdf "Delay" 200)
      (setq A (rtos (getvar "CDATE") 2))
      (setq A4 (substr A 14 2))
  ;*****************************************************
      (entdel W1)
      (entdel W2)
      (entdel W3)
    ) ;_  while
  ); REPEAT
    (command "_ZOOM" "_ALL")
    (command "_ERASE" "_w" '(-100.0 -100.0) '(100.0 100.0) "")
    (SetVar "FILEDIA" 1)
    (princ)
) ;_  defun

[Елпанов Евгений]

>PSW
Если обидел, извини за нахальство.

[PSW]

Евгений, в исходном тексте программы вместо числа 8 появился смайлики рожицы. Видимо их надо было отключить, а за функцию G2R правильное замечание, они у меня прописаны в ACAD.LSP, и я постоянно ими пользуюсь забывая присоединить к программам.

[Елпанов Евгений]

Сообщение от VVA >Елпанов Евгений Запустил на русском акаде и получил Неизвестная команда "DELAY". Для вызова справки нажмите F1. 200 Неизвестная команда "DELAY". Для вызова справки нажмите F1. Подозреваю, что при вызове команд или опций не используется _ Былобы неплохо добавить что-то типа Код: [Выделить все] (princ "\nНаберите CLO для запуска команды") а то не сразу додумался, все c:my-clock да c:my-clock

Исправленно...
[ATTACH]1137150689.rar[/ATTACH]

[Елпанов Евгений]

Сообщение от Asys Отличная работа, Евгений. Такой вопрос - а изменяемая длина стрелки, чтоб она не вылезала за эллипс циферблата насколько сложна в исполнении?

Если изменять длинну стрелок может оказаться, что часовая будет короче минутной например в 3-00...
Наверное имеет смысл уменьшить секундную отрисовав ее тонкой линией.

[VVA]

>Елпанов Евгений Не сочти за занудство, мне не влом будильник удалить ручками, просто так, для порядка. Появилось

Неизвестная команда "UNDO"

[Елпанов Евгений]

Сообщение от VVA >Елпанов Евгений Не сочти за занудство, мне не влом будильник удалить ручками, просто так, для порядка. Появилось Неизвестная команда "UNDO"

Исправленно:
[ATTACH]1137152275.rar[/ATTACH]

[Елпанов Евгений]

Переделал секундную стрелку и добавил обработку ошибок на случай ESC...
[ATTACH]1137156816.rar[/ATTACH]