Уважаемые знатоки!
Я пытаюсь нарисовать синусоиду, плавность которой можно регулировать следующим способом
(setq x 0.0
y 0.0
)
(command "pline" "0,0" "arc" "Dirction" "20")
(repeat 5
(command (list x y)
)
(setq x (+ x 10)
)
);end repeat
(command "")
Однако прога упорно не желает остлеживать заданное напрасление касательной в 20 градусов, а строит кривую с касательной в 90 град. в точке перелома. Но если все это задать из командной строки ВРУЧНУЮ, то все работает нормально, то есть я могу регулировать плавность кривой. В чем может быть причина?
(setq x 0.0
y 0.0
h 15.0 ;_ высота полуволны
s 5.0 ;_ шаг полуволны
)
(vl-cmdf "_.spline" (list x y))
(repeat 5
(vl-cmdf (list (setq x (+ x s)) (setq y (+ y h)))
(list (setq x (+ x s)) (setq y (- y h)))
(list (setq x (+ x s)) (setq y (- y h)))
(list (setq x (+ x s)) (setq y (+ y h)))
)
)
(vl-cmdf "" "" "")