[itshpit]

Здравствуйте. Хочу написать программу на AUTOLISP, которая чертит окружность, на которой равномерно расположены 6 небольших окружностей. Вот сам код:

Код:

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

 (  defun c: laba ()
        (setq p (getpoint "\nChoose a start point."))
        (setq rad (getreal p "\nRadius :"))
        (setq num (getint "\nColor :"))
        (command "\_ÑOLOUR" num)
        (command "_circle" p rad)
  	(setq p1 (getpoint "Choose a point on a circle."))
  	(setq p2 (polar p1 (/ pi 3) rad))
	(setq p3 (polar p2 (/ pi 3) rad))
	(setq p4 (polar p3 (/ pi 3) rad))
	(setq p5 (polar p4 (/ pi 3) rad))
	(setq p6 (polar p5 (/ pi 3) rad))
	(setq R (/ rad 3))
	(command "_circle" p1 R)
	(command "_circle" p2 R)
	(command "_circle" p3 R)
	(command "_circle" p4 R)
	(command "_circle" p5 R)
	(command "_circle" p6 R) 
)

После компиляции программа пишет среди команд (не в редакторе, а в поле ниже рабочего пространства AutoCAD): "Неверный синтаксис", после чего просто дублирует весь код. При запуске (введении команды "laba") программа сообщает, что такая команда не существует.

[Кулик Алексей aka kpblc]

А что за команда

Код:

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

 (command "\_ÑOLOUR" num)

:?:

----- добавлено через 44 сек. -----
И почему после C: идет пробел?

[Сергей812]

не говоря уже о том, что надо консольную версию вызывать этой команды...)