ЧАСЫ на Лиспе - Олимпийская задачка

02.12.2005, 13:08

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

vk · 02.12.2005, 14:03

Глупый вопрос: часы стоячие или ходячие?
А если ходячие, то должны показывать правильное время?

Покорректнее задачку, пожалуйста

Кулик Алексей aka kpblc · 02.12.2005, 14:13

И вид - спередии? Сбоку? Сзади? 3Д или 2Д?
И наручные? Или с кукушкой? И кукушка должна выскакивать и чего-то пищать или нет?
И самое главное - пока часы работают, в каде можно будет работать или нет?

{Smirnoff} · 02.12.2005, 15:56

И главный вопрос. Почему задача ОЛИМПИЙСКАЯ :?: :?: :?:
Медаль золотую с пятью кольцами за её решение дают?

DEM · 03.12.2005, 11:24 **Привет**

Наверное материальное поощерение будет

vk · 03.12.2005, 12:43

Цитата:

Сообщение от {Smirnoff}

И главный вопрос. Почему задача ОЛИМПИЙСКАЯ :?: :?: :?:

Скорей всего, это означает, что срок сдачи решения задачи где то ближе к Олимпийским играм. Так что года два еще есть. [sm2305]
За полгода может быть утрясутся условия задачи, потом за два дня код напишем, а оставшиеся полтора года уйдут на отлов багов.

ПэЭс: для разнообразия попутно можно сделать песочную и солнечную версии. С последней, боюсь, могут возникнуть проблемы из за нехватки разрядности АКАД. Солнечную систему случайно никто 1:1 не моделировал в 3D ?

{Smirnoff} · 03.12.2005, 15:50

>VK

Цитата:

Солнечную систему случайно никто 1:1 не моделировал в 3D ?

А в чём проблема? Парсеки в единицах измерения есть. Правда либо километры придется писать миллионами, либо парсеки очень далеко от запятой.

Желающие могут написать прогу для визуализации движения небесных тел на AutoLISP

Данилину предлагается нарисовать собственное виденье Марса и потренироваться в реалистичности рендеринга.

asys · 03.12.2005, 16:31

Цитата:

Сообщение от {Smirnoff}

Данилину предлагается нарисовать собственное виденье Марса и потренироваться в реалистичности рендеринга.

В 5-м ArchiCADе

по чертежам из AutoCADа 8)

03.12.2005, 16:48

Смешно, но я думал, задача не вызовет проблем.
Хотя бы как игра-шутка: стрелочные часы с секундной стрелкой идут и показывают текущее время. В автокаде. Неужели невозможно?

fixo · 03.12.2005, 18:44

Цитата:

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

Смешно, но я думал, задача не вызовет проблем.
Хотя бы как игра-шутка: стрелочные часы с секундной стрелкой идут и показывают текущее время. В автокаде. Неужели невозможно?

Вообще странно, ты такой бывалый...Чё нить слышал о поиске в Google? Я еще два года назад скачивал 4 типа часов реально
ходящих
Ищите и обрящете

03.12.2005, 19:34

Искал в Google, можете убедиться: бесполензно.
Простая задачка, а ставит всех в тупик?
На Бейсике стрелочные часы сделать очень просто.
А на Лиспе? Неужели невозможно?

vk · 03.12.2005, 19:58

Да можно сделать то... И даже тикать будут... Только если на чистом Лиспе - то получится совершенно бестолковая ерунда. Во первых, использовать бесконечный цикл вроде "посмотреть скока время (в системе) -> перечертить (или повернуть) примитивы-стрелки" (чтоб не сбивать точность хода, вряд ли стоит делать через дилей). Естественно, никакие другие действия с этим документом (где работает часовой Лисп) сделать нельзя. Во вторых, Лисп работает только с активным документом, стало быть при переходе на другой документ чтото должно испортиться в этой системе. Может как то можно решить проблему с компиляцией в VLX, но очень не уверен, что получится.
Другое дело, если использовать внешнее по отношению к АКАДу приложение как часовой механизм, а АКАДу оставить скромную роль "циферблата со стрелками". Тогда в одном файле можно и на часы любоваться и план застройки Марса чертить....

fixo · 03.12.2005, 22:00

Цитата:

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

Искал в Google, можете убедиться: бесполензно.
Простая задачка, а ставит всех в тупик?
На Бейсике стрелочные часы сделать очень просто.
А на Лиспе? Неужели невозможно?

Плохо ищешь
Переименуй расширение на LSP

:x

Pilot · 05.12.2005, 10:33

Цитата:

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

... -> перечертить (или повернуть) примитивы-стрелки"...

А я бы стрелки не примитивами рисовал, а функцией GRDRAW.

Елпанов Евгений · 21.12.2005, 14:25

А вот и механика для часиков, с дизайном я не очень...

Код:

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

(defun c:my-clock (/ A B)
  (setvar "cmdecho" 0)
  (if (not (tblsearch "BLOCK" "cl_arrow"))
    (PROGN
      (setvar "clayer" "0")
      (setq a (vla-add (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
		       (vlax-3D-point (list 0. 0.))
		       "cl_arrow"
	      ) ;_  vla-add
      ) ;_  setq
      (vla-AddLine a (vlax-3D-point 0. -1.) (vlax-3D-point 0. 1.))
      (vla-AddLine a (vlax-3D-point 0. 1.) (vlax-3D-point 1. 0.))
      (vla-AddLine a (vlax-3D-point 1. 0.) (vlax-3D-point 0. -1.))
    ) ;_  PROGN
  ) ;_  if
  (setq a (getpoint "\nУкажите точку "))
  (setq	b (mapcar
	    (function
	      (lambda (x)
		(vla-insertblock (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
				 (car x)
				 "cl_arrow"
				 (cadr x)
				 (caddr x)
				 1.
				 0.
		) ;_  vla-insertblock
	      ) ;_  lambda
	    ) ;_  function
	    (list (list (vlax-3d-point a) 100. 1.)
		  (list (vlax-3d-point a) 75. 2.5)
		  (list (vlax-3d-point a) 45. 5.)
		  (list (vlax-3d-point (polar a pi 100)) 1. 1.)
	    ) ;_  list
	  ) ;_  mapcar
	b (append b
		  (vlax-safearray->list
		    (vlax-variant-value (vla-ArrayPolar (cadddr b) 12 (* pi 2) (vlax-3d-point a)))
		  ) ;_  vlax-safearray->list
	  ) ;_  append
  ) ;_  setq
  (repeat 90
    (vl-cmdf "Delay" 200)
    (vla-put-Rotation (caddr b)
		      (- (/ pi 2.)
			 (* (/ pi 6.)
			    (+ (atoi (menucmd "M=$(edtime,$(getvar,date),H)"))
			       (/ (atoi (menucmd "M=$(edtime,$(getvar,date),MM)")) 60.)
			    ) ;_  +
			 ) ;_  *
		      ) ;_  -
    ) ;_  vla-put-Rotation
    (vla-put-Rotation (cadr b)
		      (- (/ pi 2.) (* (/ pi 30.) (atoi (menucmd "M=$(edtime,$(getvar,date),MM)"))))
    ) ;_  vla-put-Rotation
    (vla-put-Rotation
      (car b)
      (- (/ pi 2.) (* (/ pi 30.) (atof (menucmd "M=$(edtime,$(getvar,date),SS.MSEC)"))))
    ) ;_  vla-put-Rotation
  ) ;_  repeat
  (mapcar (function (lambda (x) (vla-delete x) (vlax-release-object x))) b)
  (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
  (setvar "cmdecho" 1)
)

asys · 21.12.2005, 14:30

>Елпанов Евгений
Здорово!

А вот дизайн и впрям слишком лаконичен

Елпанов Евгений · 21.12.2005, 14:34

Цитата:

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

>Елпанов Евгений
Здорово!

А вот дизайн и впрям слишком лаконичен

Была бы механика, а корпус можно подобрать любой...

Елпанов Евгений · 22.12.2005, 11:48

Циферблатик немного доделал - теперь не совсем спартанский вид...

Код:

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

(defun c:my-clock (/ A B)
 (setvar "cmdecho" 0)
 (if (not (tblsearch "BLOCK" "cl_arrow"))
  (PROGN
   (setvar "clayer" "0")
   (setq a (vla-add (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
		    (vlax-3D-point (list 0. 0.))
		    "cl_arrow"
	   ) ;_  vla-add
   ) ;_  setq
   (vla-AddLine a (vlax-3D-point 0. 1.) (vlax-3D-point 1. 0.))
   (vla-AddLine a (vlax-3D-point 1. 0.) (vlax-3D-point 0. -1.))
  ) ;_  PROGN
 ) ;_  if
 (setq a (getpoint "\nУкажите точку ")
       b (mapcar
	  (function
	   (lambda (x)
	    (vla-insertblock (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
			     (car x)
			     "cl_arrow"
			     (cadr x)
			     (caddr x)
			     1.
			     0.
	    ) ;_  vla-insertblock
	   ) ;_  lambda
	  ) ;_  function
	  (list	(list (vlax-3d-point a) 100. 0.5)
		(list (vlax-3d-point a) 90. 5.0)
		(list (vlax-3d-point a) 65. 5.)
		(list (vlax-3d-point (polar a pi 100)) 20. 1.)
		(list (vlax-3d-point (polar a pi 100)) 2.5 0.5)
	  ) ;_  list
	 ) ;_  mapcar
       b (append b
		 (cons (vla-AddCircle (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
				      (vlax-3D-point a)
				      5.
		       ) ;_  vla-AddCircle
		       (append
			(vlax-safearray->list
			 (vlax-variant-value (vla-ArrayPolar (nth 4 b) 60 (* pi 2) (vlax-3d-point a)))
			) ;_  vlax-safearray->list
			(vlax-safearray->list
			 (vlax-variant-value (vla-ArrayPolar (cadddr b) 12 (* pi 2) (vlax-3d-point a)))
			) ;_  vlax-safearray->list
		       ) ;_  append
		 ) ;_  cons
	 ) ;_  append
 ) ;_  setq
 (repeat 150
  (vl-cmdf "Delay" 200)
  (vla-put-Rotation (caddr b)
		    (- (/ pi 2.)
		       (* (/ pi 6.)
			  (+ (atoi (menucmd "M=$(edtime,$(getvar,date),H)"))
			     (/ (atoi (menucmd "M=$(edtime,$(getvar,date),MM)")) 60.)
			  ) ;_  +
		       ) ;_  *
		    ) ;_  -
  ) ;_  vla-put-Rotation
  (vla-put-Rotation (cadr b)
		    (- (/ pi 2.) (* (/ pi 30.) (atoi (menucmd "M=$(edtime,$(getvar,date),MM)"))))
  ) ;_  vla-put-Rotation
  (vla-put-Rotation (car b)
		    (- (/ pi 2.) (* (/ pi 30.) (atof (menucmd "M=$(edtime,$(getvar,date),SS.MSEC)"))))
  ) ;_  vla-put-Rotation
 ) ;_  repeat
 (mapcar (function (lambda (x) (vla-delete x) (vlax-release-object x))) b)
 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
 (setvar "cmdecho" 1)
)

asys · 22.12.2005, 12:18

Другое дело

а цифирки будут?

Елпанов Евгений · 22.12.2005, 12:25

А они и впрямь нужны?
Можешь сам добавить или лучше сразу определить конечные рамки, в смысле, что нужно от этих часов...
Можно и корпус в трехмерке сварганить или настоящий часовой механизм с шестеренками (чтоб было видно как работают).

PS. Мне в этой затее было интересно реализовать более менее оптимальный код, с наименьшим количеством построений - в принципе, задача выполнена.

asys · 22.12.2005, 12:28

А к сожалению не шарю в программировании, но развивать идею можно долго - маятник например подвесить

А часы классные, я по ним время смотрю

Елпанов Евгений · 22.12.2005, 12:36

>Asys
Осторожнее...
В конце кода выполняется
purge all (один раз, чтоб удалить остатки часиков)

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

asys · 22.12.2005, 12:59

Цитата:

В конце кода выполняется
purge all (один раз, чтоб удалить остатки часиков)

Э-э, блин позно :?

Ну да ладно, что с воза упало - то пропало

Елпанов Евгений · 22.12.2005, 13:05

Цитата:

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

Э-э, блин позно :?
Ну да ладно, что с воза упало - то пропало

Извини...
Я делал чистую демонстрацию - не думал, что ее будут использовать как будильник в акаде...
PS. Сам то я использую "Chameleon Clock" - простой и не напрягает.

МВ · 22.12.2005, 13:16

А как сие (пост 18) в картинку воплотить человеку далекому от программирования?

asys · 22.12.2005, 13:21

Да ладно, не страшно, я то просто время глянуть , да девчонок удивить

Я всегда в новом файле все запускал, а тут че та стормозил.

Елпанов Евгений · 22.12.2005, 13:31

>Asys

Цитата:

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

Я всегда в новом файле все запускал, а тут че та стормозил.

Замени строчку

Код:

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

(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))

на

Код:

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

;(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))

Это обойдется тебе лишним описанием блока "cl_arrow" из двух линий. Зато сможешь запускать в любом чертеже...
>МВ
Не понял...
Что значит воплотить в картинку - эта программа выводит на экран циферблат нарисованный блоком на ограниченное время, а после чистит за собой файл...
Правда время показывает системное - обновляет около 5 раз в секунду.
Поясни, в чем проблема.

asys · 22.12.2005, 13:37

>Елпанов Евгений
спасибо, а часы с маятником и кукушкой ???

Елпанов Евгений · 22.12.2005, 13:41

Нарисуй чертеж маятника, кукушки и самого корпуса...
Думаю, что все возможно - было бы время

asys · 22.12.2005, 13:50

Цитата:

Нарисуй чертеж маятника, кукушки и самого корпуса...

Сделаю, попозже только

МВ · 22.12.2005, 14:01

>Елпанов Евгений
Объяснить, для непродвинутого, пошагово, где взять, куда вставить, что бы лицезреть сие на экране.

Предыдущий мой пост писал и как то смайлик прилип вместо воьмерки и скобки.

Елпанов Евгений · 22.12.2005, 14:30

Посмотри здесь
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19612AN

МВ · 22.12.2005, 17:12

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

Елпанов Евгений · 11.01.2006, 18:19

Еще немного поработал над дизайном и убрал текст - теперь готовый скомпилированный файл...
[ATTACH]1136992824.rar[/ATTACH]

asys · 11.01.2006, 23:03

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

Елпанов Евгений · 11.01.2006, 23:08

Наверное ты прав - буду думать, как это попроще реализовать.
Здесь наклонный элипс...

VVA · 12.01.2006, 11:41

>Елпанов Евгений
Запустил на русском акаде и получил

Цитата:

Неизвестная команда "DELAY". Для вызова справки нажмите F1.
200
Неизвестная команда "DELAY". Для вызова справки нажмите F1.

Подозреваю, что при вызове команд или опций не используется _
Былобы неплохо добавить что-то типа

Код:

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

(princ "\nНаберите CLO для запуска команды")

а то не сразу додумался, все c:my-clock да c:my-clock

PSW · 12.01.2006, 12:07

ЧАСЫ ИДУЩИЕ 10 секунд
;************************************************************
(defun *ERROR* ()
(command "_ZOOM" "_ALL" )
(command "_ERASE" "_w" '(-100.0 -100.0) '(100.0 100.0) "")
(SetVar "FILEDIA" 1) (princ)
) ; 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 10
(setq A (rtos (getvar "CDATE") 2 8))
(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)
(setq A (rtos (getvar "CDATE") 2 8))
(setq A4 (substr A 14 2))
)
;*****************************************************
(entdel W1)
(entdel W2)
(entdel W3)
); REPEAT
(command "_ZOOM" "_ALL" )
(command "_ERASE" "_w" '(-100.0 -100.0) '(100.0 100.0) "")
(SetVar "FILEDIA" 1) (princ)
)

Елпанов Евгений · 12.01.2006, 12:23

>PSW
Допиши до кучи функцию
G2R
Без нее же не будет работать...

PSW · 12.01.2006, 12:56

ФУНКЦИИ перевода градусы в радианы и наоборот
;************************************************************
; Функция переводит градусы в радианы
; Параметр - угол в градусах
;************************************************************(defun G2R (GG / AA)
(setq AA (/ (* pi GG) 180.0))
) ;END DEFUN
;************************************************************ ;************************************************************
;************************************************************
; Функция переводит радианы в градусы
; Параметр - угол в радианах
(defun R2G (GG / AA)
(setq AA (/ (* 180.0 GG) pi))
) ;END DEFUN
;************************************************************************

Елпанов Евгений · 12.01.2006, 13:29

>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

Елпанов Евгений · 12.01.2006, 13:31

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

PSW · 12.01.2006, 14:15

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

Елпанов Евгений · 13.01.2006, 14:00

Цитата:

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

>Елпанов Евгений
Запустил на русском акаде и получил

Цитата:

Неизвестная команда "DELAY". Для вызова справки нажмите F1.
200
Неизвестная команда "DELAY". Для вызова справки нажмите F1.

Подозреваю, что при вызове команд или опций не используется _
Былобы неплохо добавить что-то типа

Код:

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

(princ "\nНаберите CLO для запуска команды")

а то не сразу додумался, все c:my-clock да c:my-clock

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

Елпанов Евгений · 13.01.2006, 14:04

Цитата:

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

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

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

VVA · 13.01.2006, 14:29

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

Цитата:

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

Елпанов Евгений · 13.01.2006, 14:37

Цитата:

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

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

Цитата:

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

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

Елпанов Евгений · 13.01.2006, 15:53

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

02.12.2005, 13:08		#1
ЧАСЫ на Лиспе - Олимпийская задачка Danilin Сообщений: n/a Задача проста: стрелочные ЧАСЫ средствами Автокад. Покрасивее, пожалуйста...
Просмотров: 11641