[fastline]

У меня довольно большая модель, и так уж получилось что на ней листов несколько десятков.
И вот нужно мне знать, когда я меняю что-то на модели, в каких листах это изменится?

[BM60]

На всех и изменится. Где показаны эти изменяемые что-то.

[fastline]

Сообщение от BM60 На всех и изменится. Где показаны эти изменяемые что-то.

Я понимаю, в том ведь и вопрос - у меня много листов, и я не знаю на каких из них данный кусок модели отражен!!

[BM60]

Ну а листы ведь имена имеют, правда, тогда может условно (в качестве очередного ухищрения) в пространстве модели обвести рамкой (на отдельном! слое) зону каждого листа, выносками или однострочным текстом (на этом же! слое) написать имя листа. Если модель трехмерная, то эти рамки (зоны листов) показать только на виде, характерном для своего понимания. Слои, при необходимости, замораживать и там, и сям по-разному.
НО! Принесет ли это пользу без доп. головной боли? Будет ли это удобно в оперативных вмешательствах в модель? И зачем вообще это городить?

[engngr]

Например, нарисуйте в новом слое большую, жирную кошку рядом с изменяемым местом и пробегитесь по листам.

[fastline]

Сообщение от engngr Например, нарисуйте в новом слое большую, жирную кошку рядом с изменяемым местом и пробегитесь по листам.

Ох, если б не надо было вносить так много изменений по всей модели, и если б листы были названы в соответствии с тем, что на них находится...

[sagava]

Зайди через лист, и все увидишь.

[BM60]

Сообщение от fastline если б листы были названы в соответствии с тем, что на них находится

Что-что???
А переименовать на свой вкус разве страшно? А потом вернуть прежнее имя. Или скопировать все листы и дать им свои имена и рпасположить рядом с оригинальными.
... Зайти не удастся, если показан блокированным, а блокировку снимешь, масштаб можешь сбить, если зуммировать.

А подшивка, кстати вспомнить, тут никак не пришивается? Как мне помнится, она и придумана для сотен-тысяч листов.

[Krieger]

Поищи, была программка на лиспе, которая отрисовывает контуры видовых экранов из листа в пространстве модели.

[ытя]

Сообщение от fastline И вот нужно мне знать, когда я меняю что-то на модели, в каких листах это изменится?

Сообщение от F1 To export saved layer settings 1.Click Format menu Layer. 2.In the Layer Properties Manager, click the Layer States Manager button. 3.In the Layer States Manager, select a named layer state. Click Export. 4.In the Export Layer State dialog box, enter a file name. Specify a location for the layer state (LAS) file. The .las file name extension is added automatically. 5.Click Save to exit the dialog box. 6.Click Close to exit the Layer States Manager. Click OK to exit the Layer Properties Manager.

Я не знаю, что из себя представляет LAS файл, но подозреваю, что в текстовом редакторе можно посмотреть его содержимое и узнать, в каких layout-ах включен(не заморожен) используемый слой.

[Nike]

Сообщение от Krieger Поищи, была программка на лиспе, которая отрисовывает контуры видовых экранов из листа в пространстве модели.

вот эта программка:

Код:

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

(defun
     C:VPL  (/ ss1 ss2 ss3 zzz PolObj PntArr VptObj XofSet YofSet VptCen PntArr)

(setq ss1(ssget '((0 . "VIEWPORT"))))
(setq ss2 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1))))

(foreach vp ss2
	(progn
			(vl-cmdf "_.MSPACE")
			(vla-put-ActivePViewport (vla-get-activedocument(vlax-get-acad-object)) (vlax-ename->vla-object Vp))
			(vl-cmdf "_.PSPACE")
	(if
		(assoc 340(entget vp))
		(progn
			(setq zzz nil)
			(setq ss3 (mapcar'cdr(vl-remove-if-not'(lambda (x) (= (car x) 10))(entget(cdr(assoc 340(entget vp)))))))
			(foreach pt ss3 (setq zzz(append zzz(trans pt 3 2))))
			(setq 	PntArr 		(vlax-make-safearray vlax-vbDouble (cons 0 (1- (length zzz)))))
			(vlax-safearray-fill PntArr zzz)
			(setq 	PolObj 	(vla-AddPolyline 
						(vla-get-ModelSpace(vla-get-ActiveDocument(vlax-get-acad-object)))
						PntArr
					)
				PolObj (vla-put-Closed PolObj :vlax-true)

			)
		);_ end_of_progn

		(progn
			(setq 	VptObj 		(vlax-ename->vla-object Vp)
				XofSet	 	(/ (vla-get-Width VptObj) 2.0)
				YofSet		(/ (vla-get-Height VptObj) 2.0)
				VptCen		(vlax-get VptObj 'Center)
				PntArr 		(vlax-make-safearray vlax-vbDouble '(0 . 11))
			);_ end_of_setq

			(vlax-safearray-fill PntArr (append
				(trans (list (- (car VptCen) XofSet) (- (cadr VptCen) YofSet)) 3 2)
				(trans (list (+ (car VptCen) XofSet) (- (cadr VptCen) YofSet)) 3 2)
				(trans (list (+ (car VptCen) XofSet) (+ (cadr VptCen) YofSet)) 3 2)
				(trans (list (- (car VptCen) XofSet) (+ (cadr VptCen) YofSet)) 3 2)
							)
			)
			(setq 	PolObj 	(vla-AddPolyline 
						(vla-get-ModelSpace(vla-get-ActiveDocument(vlax-get-acad-object)))
						PntArr
					)
				PolObj (vla-put-Closed PolObj :vlax-true)
			)
			(vlax-release-object VptObj)
		);_ end_of_progn
	);_ end_of_if
	)
);_ end_of_foreach
(princ)
);_end_of_defun

[Aqualung]

это типа Quick View Layouts что ли? Превьюшки листов показывает в чертеже...
Акад 2009

[fastline]

Сообщение от Nike вот эта программка:

Вот спасибо, добрый человек, это видимо то что я и искал .
... Только как ей пользоваться?

[Кулик Алексей aka kpblc]

http://dwg.ru/art/8

[fastline]

Кулик Алексей aka kpblc, Cпасибо, помогло!
Nike, Только все равно не понятно: загрузил лисп,набрал команду "VPL" - а она мне - выберете объекты, и главное куда бы я не кликал - объекты не выбираются (

[Disney]

fastline, под объектами выбора, в данном случаи подразумеваются VIEWPORT-ы

[fastline]

Сообщение от Disney fastline, под объектами выбора, в данном случаи подразумеваются VIEWPORT-ы

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

Команда: vpl
Выберите объекты: найдено: 1
Выберите объекты:
_.MSPACE
Команда: ; ошибка: no function definition: VLAX-GET-ACAD-OBJECT

[St520]

Господа хорошие, выручите в очередной раз, как заставить ЛИСП выше работать ?
Выдаёт туже ошибку, что и у автора предыдущего поста.


------
Прочитал нужно в ком строке написать (vl-load-com), но почему то всё равно выдаёт ошибку, мол команда такая не знакома.
Я совсем ничего не понимаю в ЛИСПе, будьте добры допишите в ЛИСП команду (vl-load-com), может поможет.

[Victor]

Ещё есть _chspace из экспресов

[Do$]

Сообщение от St520 Господа хорошие, выручите в очередной раз, как заставить ЛИСП выше работать ? Выдаёт туже ошибку, что и у автора предыдущего поста.

Сообщение от Кулик Алексей aka kpblc http://dwg.ru/art/8

Читать внимательно и до конца.
Offtop: (Вот бы сделать так: новый юзер может зарегистрироваться на форуме только после того, как ответит правильно на контрольные вопросы по этому мануалу )

[Кулик Алексей aka kpblc]

А лисп вообще загружен?

[proteirei]

Столкнулся с той же проблемой, что и автор, хотел создать новую тему, но нашел эту.

Суть моего вопроса. Выходит такая же ошибка, как и у автора темы:

Команда: VPL

Выберите объекты: Противоположный угол: найдено: 1

Выберите объекты:
_.MSPACE
Команда: ; ошибка: no function definition: VLAX-GET-ACAD-OBJECT

Команда, предложенная Кулик Алексей aka kpblc не помогает исправить эту ошибку (или я ее неправильно применяю - я ее просто вписываю в командную строку, получаю в ответ, что нет такой команды и алес).

НЕ АКТУАЛЬНО
Разобрался. Вставил (vl-load-com) прямо в лисп, всё рабоатет теперь. Всем большое СПАСИБО )))

[proteirei]

А в чем может быть причина того, что лисп в свежесозданном файле переносит все видовые окна как положено, а в файле, над которым проведена работа в 3-4 дня перенос видовых экранов в модель осуществляется для всех видовых экранов в разных масштабах со смещением на одинаковую величину в сторону?

[proteirei]

Вот файл, в котором данный лисп не работает у меня, не могу понять почему.

Работаю в АС2013 без последнего обновления, формат сохранения 2010.

[Всегопонемногу]

Сообщение от proteirei А в чем может быть причина того, что лисп в свежесозданном файле переносит все видовые окна как положено, а в файле, над которым проведена работа в 3-4 дня перенос видовых экранов в модель осуществляется для всех видовых экранов в разных масштабах со смещением на одинаковую величину в сторону?

Ух сколько лет прошло)) Пробую на Акад 2016. Тоже понадобился данный лисп, подгрузил, работает, но на некоторых файлах действительно идет смещение - отрисовывает рамку не в том месте. Причем не зависит от времени создания файла. Мне показалось, что смещение в тех файлах, где много элементов в пространстве модели.

[Krieger]

Попробуй вот этот код от VVA, давно пользуюсь, у меня он корректно работает:
https://forum.dwg.ru/showpost.php?p=227712&postcount=52

[Всегопонемногу]

Сообщение от Krieger Попробуй вот этот код от VVA, давно пользуюсь, у меня он корректно работает: https://forum.dwg.ru/showpost.php?p=227712&postcount=52

Спасибо! Этот работает корректно, жаль конечно что не позволяет выбрать сразу несколько ВЭ, а только по одному.

[Chainik111]

1. Обведите видовой экран полилинией (или командой boundary, предварительно создав прямоугольник вокруг видового экрана)
2. Выделите получившуюся полилинию присвойте ей цвет или слой и наберите команду chspace.

После выполнения этой команды полилиния окажется в пространстве модели, а по цвету или слою вы определите какой это видовой экран.
Можно пронумеровать видовые экраны мтекстом в пространстве листа, затем командой chspace поочерёдно перенести все номера и рамки (границы) в модель, но это если у вас много маленьких узлов.

[Krieger]

Сообщение от Всегопонемногу Спасибо! Этот работает корректно, жаль конечно что не позволяет выбрать сразу несколько ВЭ, а только по одному.

Дык вроде позволяет в пределах листа...

Код:

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

       (if (= (getvar "cvport") 1)
        (progn
          (if (setq ss nil
                    ss (ssget '((0 . "VIEWPORT")))
              ) ;_ end of setq
            (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
            (setq lst nil)
          ) ;_ end of if

[Всегопонемногу]

Сообщение от Krieger Дык вроде позволяет в пределах листа... Код: [Выделить все] (if (= (getvar "cvport") 1) (progn (if (setq ss nil ss (ssget '((0 . "VIEWPORT"))) ) ;_ end of setq (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (setq lst nil) ) ;_ end of if

Выбрать позволяет. Отрисовывает в модели только тот который последний выбрал.
При выборе акад пишет если выбрать 4ре ВЭ: "Выберите объекты: найдено: 1, всего: 4"

----- добавлено через ~6 мин. -----

Сообщение от Chainik111 1. Обведите видовой экран полилинией (или командой boundary, предварительно создав прямоугольник вокруг видового экрана) 2. Выделите получившуюся полилинию присвойте ей цвет или слой и наберите команду chspace. После выполнения этой команды полилиния окажется в пространстве модели, а по цвету или слою вы определите какой это видовой экран. Можно пронумеровать видовые экраны мтекстом в пространстве листа, затем командой chspace поочерёдно перенести все номера и рамки (границы) в модель, но это если у вас много маленьких узлов.

Спасибо! Такой метод тоже работает

[VVA]

Из этой темы Outline projection all viewports to model

Код:

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

 
(defun c:VPO (/ _trans _cornersFromBBox ss i ent data ent2 lst)
  ;; Viewport Outline
  ;; Require subroutine: PCS2WCS (and all subs it requires)
  ;; PCS2WCS by gile (http://www.theswamp.org/index.php?topic=29231.msg347755#msg347755)
  ;; Alan J. Thompson, 12.08.11

  (vl-load-com)

  (defun _trans (p) (cons 10 (PCS2WCS p ent)))

  (defun _cornersFromBBox (o / a b)
    (vla-getboundingbox o 'a 'b)
    (setq a (_trans (vlax-safearray->list a))
          b (_trans (vlax-safearray->list b))
    )
    (list a (list (car a) (cadr a) (caddr b)) b (list (car b) (cadr b) (caddr a)))
  )

  (if (setq ss (ssget '((0 . "VIEWPORT"))))
    (repeat (setq i (sslength ss))
      (setq ent  (ssname ss (setq i (1- i)))
            data (entget ent)
      )

      (if (if (setq ent2 (cdr (assoc 340 data)))
            (setq lst (apply 'append
                             (mapcar '(lambda (x)
                                        (if (eq (car x) 10)
                                          (list (_trans (cdr x)))
                                        )
                                      )
                                     (entget ent2)
                             )
                      )
            )
            (setq lst (_cornersFromBBox (vlax-ename->vla-object ent)))
          )
        (entmakex (append (list '(0 . "LWPOLYLINE")
                                '(100 . "AcDbEntity")
                                '(100 . "AcDbPolyline")
                                (cons 90 (length lst))
                                '(70 . 1)
                                '(410 . "Model")
                          )
                          lst
                  )
        )
      )
    )
  )
  (princ)
)



;; WCS2PCS (gile)
;; Translates a point WCS coordinates to the PaperSpace CS according to
;; the specified Viewport
;; 
;; (WCS2PCS pt vp) is the same as (trans (trans pt 0 2) 2 3) when vp is active
;;
;; Arguments
;; pt : a point
;; vp : the viewport (ename or vla-object)

(defun WCS2PCS (pt vp / elst ang nor scl mat)
  (vl-load-com)
  (and (= (type vp) 'VLA-OBJECT)
       (setq vp (vlax-vla-object->ename vp))
  )
  (setq pt   (trans pt 0 0)
        elst (entget vp)
        ang  (cdr (assoc 51 elst))
        nor  (cdr (assoc 16 elst))
        scl  (/ (cdr (assoc 41 elst)) (cdr (assoc 45 elst)))
        mat  (mxm
               (list (list (cos ang) (- (sin ang)) 0.0)
                     (list (sin ang) (cos ang) 0.0)
                     '(0.0 0.0 1.0)
               )
               (mapcar (function (lambda (v) (trans v nor 0 T)))
                       '((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
               )
             )
  )
  (mapcar '+
          (vxs (mxv mat (mapcar '- pt (cdr (assoc 17 elst)))) scl)
          (vxs (cdr (assoc 12 elst)) (- scl))
          (cdr (assoc 10 elst))
  )
)

;; PCS2WCS (gile)
;; Translates a point PaperSpace coordinates to WCS coordinates
;; according to the specified viewport
;;
;; (PCS2WCS pt vp) is the same as (trans (trans pt 3 2) 2 0) when vp is active
;;
;; Arguments
;; pt : a point
;; vp : the viewport (ename or vla-object)

(defun PCS2WCS (pt vp / ang nor scl mat)
  (vl-load-com)
  (and (= (type vp) 'VLA-OBJECT)
       (setq vp (vlax-vla-object->ename vp))
  )
  (setq pt   (trans pt 0 0)
        elst (entget vp)
        ang  (- (cdr (assoc 51 elst)))
        nor  (cdr (assoc 16 elst))
        scl  (/ (cdr (assoc 45 elst)) (cdr (assoc 41 elst)))
        mat  (mxm
               (mapcar (function (lambda (v) (trans v 0 nor T)))
                       '((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
               )
               (list (list (cos ang) (- (sin ang)) 0.0)
                     (list (sin ang) (cos ang) 0.0)
                     '(0.0 0.0 1.0)
               )
             )
  )
  (mapcar '+
          (mxv mat
               (mapcar '+
                       (vxs pt scl)
                       (vxs (cdr (assoc 10 elst)) (- scl))
                       (cdr (assoc 12 elst))
               )
          )
          (cdr (assoc 17 elst))
  )
)

;; VXS Multiply a vector by a scalar
;;
;; Arguments : a vector and a real

(defun vxs (v s) (mapcar (function (lambda (x) (* x s))) v))

;; VXV (gile)
;; Returns the dot product of two vectors (real)
;;
;; Arguments : two vectors
;; return : a real number

(defun vxv (v1 v2) (apply '+ (mapcar '* v1 v2)))

;; TRP
;; transposes a matrix -Doug Wilson-
;;
;; Argument : a matrix
;; return : a matrix

(defun trp (m) (apply 'mapcar (cons 'list m)))

;; MXV
;; Applies a transformation matrix to a vector  -Vladimir Nesterovsky-
;;
;; Arguments : une matrice et un vecteur
;; return : a vector

(defun mxv (m v)
  (mapcar '(lambda (r) (vxv r v)) m)
)

;; MXM
;; Multiplies (combinates) two matrices -Vladimir Nesterovsky-
;;
;; Arguments : deux matrices
;; return : a matrix

(defun mxm (m q)
  (mapcar '(lambda (r) (mxv (trp q) r)) m)
)

----- добавлено через ~9 мин. -----
И еще код Lee Mac'a
Outline Selected Viewport (VPO)
Outline All Viewports in the Active Layout (VPOL)
Outline All Viewports all Layouts (VPOA)

[Всегопонемногу]

Сообщение от VVA Из этой темы [url="https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/outline-projection-all-viewports- [SIZE="1"]----- добавлено через ~9 мин. -----[/size] И еще код Lee Mac'a Outline Selected Viewport (VPO) Outline All Viewports in the Active Layout (VPOL) Outline All Viewports all Layouts (VPOA)

Сделал вывод, что лучше всего работает вот этот скрипт.
Можно
1. Вывести конкретный ВЭ в модель.
2. Вывести в модель все ВЭ с листа
3. Вывести в модель все ВЭ с файла.
Спасибо!