[DENiM]

проблема такая: есть топоплан вдоль проектируемой трассы. для удобства расположен в глобальных координатах. расположение трассы - с юга на север (на экране это выглядит вертикально). распечатанная на нескольких А3 трасса должна иметь удобное для восприятия положение - слева направо (горизонтально). для этого перед печатью каждый раз ее "поворачиваю" градусов на 50-90 (каждый лист А3 - разный угол) и печатаю.

собственно, вопрос: можно ли в видовом экране повернуть изображение, не поворачивая его в самой модели? желательно, на каждом ВЭ (разные листы) - свой угол при одном и том же масштабе.

буду признателен за помощь.

Команда ФОРМАТЛ. Запускается в активном видовом экране. В AutoCAD 2008 Rus есть ошибка в лиспе, и лучше команду вызывать _MVSETUP или внести изменения в файл C:\Program Files\AutoCAD 2008\Support\mvsetup.lsp как советует Profan:

Сообщение от Profan Про работу MVSETUP не скажу, но в самом файле mvsetup.lsp в конце (в предпоследней строке) надо приписать выражение: Код: [Выделить все] (defun c:ФОРМАТЛ () (c:mvsetup))

[skif58]

Или экспрессовская команда alignspace

[Vova]

Или Dview (option Twist). А если автокад 2010, то обыкновенная Rotate

[igorni]

Или в видовом экране развернуть UCS на нужный угол а потом View -> 3D Views -> Plane View -> Current UCS

[zprizrak]

Эббот Дэн AutoCAD: секреты которые должен знать каждый пользователь.
Страница 310, глава 6.
Вращение командой DVIEW (ДВИД)
1. Сделайте видовой экран активным.
2. Определите угол, на который хотите повернуть вид.
3. Введите команду DVIEW (ДВИД).
4. Укажите объекты, которые вы хотите использовать для определения ориентации, или нажмите <Enter>
5. Выберите опцию Twist (ВРащать).
6. Вы получите запрос Specify view twist angel <0>. Укажите угол, на который надо повернуть изображение.
7. Введите <Enter>, чтобы выйти из команды. Отмасштабируйте плавающий видовой экран.

[Victor]

Код:

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

(defun c:vv( / snp p1 p2 dist ugol ugol_new
               deltaX deltaY new_X new_Y p3
               ugol_rad ugol_grd_x ugol_grd_y)

(setq snp (getvar "Osmode"))
(setvar "Osmode" 1536) 
(command "_.mspace")
(setq p1 (reverse(cdr(reverse(getpoint "\nKlik point1")))))
(setq p2 (reverse(cdr(reverse(getpoint "\nKlik point2")))))
(setq dist (distance p1 p2)) 
(setq ugol (angle p1 p2))
(setq ugol_new (+ ugol (/ pi 2.0)))
(setq deltaX (* (cos ugol_new) dist))
(setq deltaY (* (sin ugol_new) dist))
(setq new_X (+ (car p1)  deltaX))
(setq new_Y (+ (cadr p1) deltaY))
(setq p3 (list new_X new_Y))
(setq ugol_rad (angle p1 p3))
(setq ugol_grd_x (* ugol_rad 57.2958))
(setq ugol_grd_y (- 90.0 ugol_grd_x))
(command "_.dview" "all" "" "TW" ugol_grd_y "")
(setvar "Osmode" snp)
)

[KronSerg]

В справку акада с запросом "Выравнивание видов на видовых экранах"

[antonio_k]

а можно посмотреть на какой уогол я повернул вид экран???ну бывает подбираешь этот угол чтоб на лист все поместилось,а потом нужно еще какие то листы крутить с той же трассой,и нужен этот угол???как можно это посмотреть

[Victor]

Так скопировать его, и вертеть не надо.

[Хмурый]

antonio_k, проставь нужный угловой размер на непечатном слое в пространстве модели заранее, до разворота содержимого видового экрана

[Peter]

Вид вот повернул , но и все текстовые данные повернулись. Есть ли способ повернуть изображение в видовом экране так, чтоб текст в нем остался все равно горизонтальным?? спасибо.

[Victor]

Попробуй. Мне самому интересно, работает или нет. Подпрограмму сдул у кого-то. Клик по въюпорту, выбираем тексты.

Код:

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

(defun cent ( pln / vlaObj minPt maxPt)
(setq vlaObj (vlax-ename->vla-object pln))
(vla-GetBoundingBox vlaObj 'minPt 'maxPt)
(setq minp (vlax-safearray->list minPt))
(setq maxp (vlax-safearray->list maxPt))
(setq midp (list (/(+(car minp)(car maxp)) 2)(/(+(cadr minp)(cadr maxp)) 2)))
)

(defun c:t2v( / snp lay nameVP sp_vp wdh_ly lnh_ly krd_vp krd1 krd4
                pt1 pt4 ins i name_blk spis_blk ugol_pl ugol_pl_gr 
                P-ugol ugol_rad ugol_grad ugol-povorota ugol_t )

(if(= (getvar "CTAB") "Model")(exit))
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0) 
(command "_.pspace")
(setq nameVP (car (entsel)))
(setq sp_vp (entget nameVP))
(setq ins (cdr(assoc 69 sp_vp)))
(command "_.mspace")
(setvar "CVPORT" ins) 
(setq lnh_ly (/(cdr (assoc 41 sp_vp)) 2))
(setq wdh_ly (/(cdr (assoc 40 sp_vp)) 2))
(setq krd_vp (cdr(assoc 10 sp_vp)))
(setq krd1 (list (-(car krd_vp)wdh_ly)(-(cadr krd_vp)lnh_ly)))
(setq krd4 (list (+(car krd_vp)wdh_ly)(-(cadr krd_vp)lnh_ly)))
(command "_.ucs" _w)
(command "_.mspace") 
(command "_.ucs" _w)
(setq pt1 (trans (trans krd1 3 2) 2 0)) 
(setq pt4 (trans (trans krd4 3 2) 2 0)) 
(setq blokset (ssget "_:L" '(( 0 . "TEXT"))))
(setq blklength (sslength blokset))
(setq i -1)
(repeat  blklength
   (setq i (1+ i))      
   (setq name_blk (ssname blokset i))
   (cent name_blk)
   (setq spis_blk (entget name_blk))
   (setq krd_c (cdr(assoc 10 spis_blk)))
   (setq ugol_pl (angle pt1 pt4))
   (setq ugol_pl_gr (* ugol_pl 57.29747))       
   (setq P-ugol (assoc 50 spis_blk));para ugol
   (setq ugol_rad  (cdr P-ugol)) ;ugol v rad                          
   (setq ugol_grad (* ugol_rad 57.29747)) ;ugol v grad
   (setq ugol-povorota (- ugol_pl_gr ugol_grad))           
   (command "_.rotate" name_blk "" midp ugol-povorota)
)
(command "_.pspace")
(setvar "Osmode" snp)
)