AutoLisp почему-то рисует не так как я хочу

@Venomkol · Регистрация: 14.06.2015

Author24 — интернет-сервис помощи студентам

Упростил код до минимума:

Lisp

(defun circles (n)
    (setq c (getpoint "Enter the circle center:"))
    (setq r (getreal "Enter the radius of the circles:"))
    (setq i 1)
    (while (<= i n)
        (command "._circle" c r)
        (setq point (list r r))
        (command "._circle" point r)
        (setq r (+ r r))
        (setq i (+ i 1))
    )
)

Рисовать он примерно должен то, что на первой картинке (внимание на окружности в левом нижнем углу). Но он рисует то, что на второй картинке. Почему? Мы же в цикле меняем r... А меняется координата только последней окружности.

@Venomkol · 19.10.2016, 20:24 **[ТС]**

Проблема решена, нужно было отключить "прилипание", например так:

Код

(setvar "osmode" 0)

@vlisp · 22.10.2016, 12:47

не нужно вообще использовать command в командах, в место этого лучше использовать функцию прослойку, например,
(draw_circle ins_point circle_diam), а в самой функции уже описывать как строится окружность. И тогда если использовать правильные функции, а не command, то и osmode не понадобится и в случае если command вообще перестанет поддерживаться, а вероятность этого есть и в принципе command уже не рекомендуют использовать, можно в один присест исправить и восстановить работоспособность всех программ, которые используют функцию-прослойку.

@Venomkol 0 / 0 / 0 Регистрация: 14.06.2015 Сообщений: 7
	19.10.2016, 20:24 [ТС]	2
	Проблема решена, нужно было отключить "прилипание", например так: Код (setvar "osmode" 0) 0

@vlisp 1018 / 964 / 151 Регистрация: 10.08.2015 Сообщений: 5,170
	22.10.2016, 12:47	3
	не нужно вообще использовать command в командах, в место этого лучше использовать функцию прослойку, например, (draw_circle ins_point circle_diam), а в самой функции уже описывать как строится окружность. И тогда если использовать правильные функции, а не command, то и osmode не понадобится и в случае если command вообще перестанет поддерживаться, а вероятность этого есть и в принципе command уже не рекомендуют использовать, можно в один присест исправить и восстановить работоспособность всех программ, которые используют функцию-прослойку. 0