[sinedr]

доброво времени суток. прошу оказать такую консультацию. можно в програме автокад создавать динамические чертежи (пример две вращающиеся шестерни). в литературе ничего не нашел а жаль.
заранее благодарю

[Chapter]

Сообщение от sinedr настораживает в ней универсальность ну да ладно

Не настараживайся. Книга неплоха...Хотя некоторые аспекты можно было описать и получше. Но в целом полезных вещей очень много. Особенно если ты хочешь углубится в познание Autolisp или 3D то нормальный такой толчок в нужную сторону. ИМХО.

[sinedr]

Chapter благодарю за рецензию

[bolt22]

В атокаде невозможно как предположим в солиде показать как двигаются при работе части механизма.

[engngr]

Сообщение от bolt22 В атокаде невозможно как предположим в солиде показать как двигаются при работе части механизма.

Кое-что можно. С параметризацией.

[bolt22]

Сообщение от engngr Кое-что можно. С параметризацией.

А это что, кое-что?

[gomer]

Код:

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

(defun C:TARAKAN ()
  (setvar "cmdecho" 0)
  (command "_limits" '(50 50) '(300 200))
  (command "_zoom" "_all")
  (setq
	p0 '(100 100.7)
	p1 '(100 100)
	p2 '(100 97.5)
	p3 '(100 95)
	p4 '(97.5 106)
	p5 '(97.5 100.7)
	p6 '(97.5 97.5)
	p7 '(97.5 95)
	p8 '(102.5 106)
	p9 '(102.5 100.7)
	p10 '(102.5 97.5)
	p11 '(102.5 95)
	p12 '(158 200)
	p13 '(158 160)
	p14 '(158 120)
	p15 '(158 80)
  ) 
  (command "_.pline" p0 "_w" 0 3 p1 p2 "_w" 3 1 p3 "")
  (command "_.pline" p12 "_w" 40 40 p13 "")
  (command "_.pline" p14 p15 "")
  (command "_.line" p5 p2 p9 "")
  (command "_.line" p6 p1 p10 "")
  (command "_.line" p7 p2 p11 "")
  (command "_.arc" p1 "_e" p4 "_a" 30)
  (command "_.arc" p1 "_e" p8 "_a" -30)
   (setq
	nab1 (ssget "W" '(70 70) '(130 130))
	nab2 (ssget "X" '((0 . "arc")))
  )
  (repeat 100 (command "_rotate" nab2 "" p1 -0.3) (command "_delay" 10))
  (repeat 100 (command "_rotate" nab2 "" p1 0.6) (command "_delay" 10))
  (repeat 100 (command "_rotate" nab2 "" p1 -0.3) (command "_delay" 10))
  (repeat 80
	(setq p2 (polar p1 (/ pi 2) 1))
	(command "_move" nab1 "" p1 p2)
	(command "_delay" 20)
	(setq p1 p2)
  )
  (command "_rotate" nab1 "" p1 -90)
  (repeat 50
	(setq p2 (polar p1 0 1))
	(command "_move" nab1 "" p1 p2)
	(command "_delay" 20)
	(setq p1 p2)
  )
  (command "_copy" nab1 "" p1 (polar p1 0 11))
  (setq p3 (polar p1 (/ pi 4) 40) p4 (polar p1 (* (/ pi 4) 5) 25))
  (setq nab3 (ssget "W" p3 p4)) (command "_rotate" nab3 "" p1 -90)
  (repeat 80
	(setq p2 (polar p1 (* (/ pi 2) 3) 1))
	(command "_move" nab3 "" p1 p2)
	(command "_delay" 20)
	(setq p1 p2)
  )
  (command "_rotate" nab3 "" p1 -90)
  (setq p5 (polar p1 (/ (* pi 2) 3) 15) p6 (polar '(100 100) 0 10))
  (command "_copy" nab3 "" p1 p1)
  (command "_scale" "_p" "" p5 0.5)
  (command "_mirror" "_p" "" '(100 100) p6 "")
  (setq p7 (polar p1 (/ pi 4) 20) p8 (polar p1 (* 5 (/ pi 4)) 40))
  (setq nab4 (ssget "W" p7 p8))
  (repeat 50
	(setq p2 (polar p1 pi 1))
	(command "_move" nab4 "" p1 p2)
	(command "_delay" 20)
	(setq p1 p2)
  )
  (command "_rotate" nab4 "" p1 -90)
  (princ)
)

;(c:tarakan)