Движение фигуры в AutoLisp

@VIZZE · Регистрация: 18.05.2012

помогите пожалуйста,
как заставить фигуру двигаться??

@Lambdik · 15.09.2013, 20:15

Lisp

((lambda (/ osm lin)
  (command "_.line" '(0 0 0) '(2500 0 0) "")
  (setq lin (entlast))
  (command "_.view" "_top")
  (entdel lin)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (command "_.color" "6")
  (command "_.pdmode" 35)
  (command "_.pdsize" 0)
((lambda (c i) 
 (repeat 500
  (command "_.point" i)
  (command "_.delay" "8")
  (entdel (entlast))
  (setq c (+ c 5))
  (setq i (cons c (cdr i)))))
 0 '(0 0 0))
  (command "_.color" "7")
  (command "_.pdsize" 6)
  (setvar "osmode" osm)
  (princ)))

Не по теме:

Давайте создадим здесь немного движения.

@VIZZE 1 / 1 / 0 Регистрация: 18.05.2012 Сообщений: 43
		1
	Движение фигуры в AutoLisp 18.05.2012, 17:39. Просмотров 1315. Ответов 1 Метки нет (Все метки) помогите пожалуйста, как заставить фигуру двигаться?? 0

Опции темы