• Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Тема: Вид в режиме Perspective?

Подскажите пожалуйста, как программно или через командную строку включить вид в Перспективе. В ручную управление видом осуществляется через 3D Orbit, затем в контекстном меню выбираю пункт Projection/Perspective. А как задать перспективный вид для ThisDrawing.ActiveViewport?

  • На форуме с 10 июля 2004г.
  • Сообщений: 8,349
  • Спасибо: 8

Re: Вид в режиме Perspective?

Есть у меня программка, только на AutoLISP'е:

;************** PERRROST.LSP *********************************************
;               Перспектива с высоты роста
;               Громов В.В. Апрель 1999.
;
(defun C:PERROST ( / echo xymin xymax tsel hsel tkam hkam thc thk rast)
   (setq echo (getvar "CMDECHO"))
   (setvar "CMDECHO" 0)
   (princ "\n ПЕРСПЕКТИВА.")
   (princ "\n Параметр-РАССТОЯНИЕ от камеры до цели.")
   (setq xymin (getvar "LIMMIN"))
   (setq xymax (getvar "LIMMAX"))
   (setq tcel (getpoint "\n Укажите в плане точку ЦЕЛИ: "))
   (setq hcel 1000) ; Высота цели
   (setq tkam (getpoint tcel "\n Укажите в плане точку КАМЕРЫ: "))
   (setq hkam 1800) ; Высота камеры
   (setq thc (list (nth 0 tcel) (nth 1 tcel) hcel))
   (setq thk (list (nth 0 tkam) (nth 1 tkam) hkam))
   (setq rast (distance thk thc))
   (command "_DVIEW" "_C" (list (- (car tcel) 24000) (- (cadr tcel) 24000))
                          (list (+ (car tcel) 24000) (+ (cadr tcel) 24000)) ""
                          "_PO" thc thk "_D" (* 2 rast) "_h" "_X")
   (setvar "CMDECHO" echo)
   (princ)
)

  • На форуме с 10 июля 2004г.
  • Сообщений: 8,349
  • Спасибо: 8

Re: Вид в режиме Perspective?

Вот еще цитата моего сообщения в теме
http://dwg.ru/forum/viewtopic.php?t=11206
Для AutoCAD 2005, 2006.
Задать тонирование в файл TGA. Отключить вывод диалога на экран.
Шаблон программы:
Код:

(defun C:REN_TGA ( / n img)
(if (not C:RENDER) (arxload "acrender"))
(setq n "1")
(repeat 10
        (setq img (strcat "E:\\TGA\\" n ".tga"))
        (C:RENDER img)
        (setq n (itoa (+ (atoi n) 1)))
)
(princ)
)

Я думаю, что в цикл "repeat" можно включить набор именованных видов, созданных заранее или с помощью программы из первого моего сообщения (естественно, ее надо модернизировать). Полученный набор файлов TGA можно потом объединить в 1 файл типа AVI внешними программами.

  • Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Re: Вид в режиме Perspective?

Огромное спасибо!!!!
Я  AutoLISP владею слабо, постараюсь разобраться.