[DANZZ]

Вопрос №1:
Почему все полилинии создаются в первой вкладке "Лист 1"? хотя задумано чтоб в каждой вкладке создавалась своя полилиния
Вопрос №2:
Есть полилиния и есть видовой экран в конкретной вкладке, как подрезать видовой экран по полилинии?

Функция pl:Point_Rectang вычисляет координаты вершин полилиний в пространстве модели и переводит их в координаты в пространстве Листа

Код:

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

(setq name_layout "Лист ")
  (setq i 1)
  (while (<= i num_Layots)
  	(setq name_layout (strcat name_layout (rtos i 2 0))) 
  	(vl-catch-all-apply '(lambda () (vla-add (vla-get-layouts active_document) name_layout)))
    	(vla-put-ActiveLayout active_document (vla-item (vla-get-layouts active_document) name_layout))
    	(vlax-for vp (vla-get-paperSpace active_document)
   		(if (= (vla-get-ObjectName vp) "AcDbViewport")
		  	(progn
		  		(vla-put-layer vp "Граница")
			  	(setq Rectang (nth (- i 1) List_Rectang))
			  	(setq temp (pl:Point_Rectang Rectang))
			  	(setq temp (apply 'append (mapcar 'list (mapcar 'car temp)(mapcar 'cadr temp))))
				(setq temp (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 9)) temp)))      
			  	(setq rec (vla-AddLightWeightPolyline paper_space temp))
			  	(vla-put-Closed rec :vlax-true)
			  	(vla-ZoomExtents (vlax-get-acad-object))
			)
		)  
    	)
  	(setq i (+ i 1))
 	(setq name_layout "Лист ")
  )

[Alaspher]

Попасть на конкретный лайаут можно например так:

Код:

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

(setq paper_space
      (vla-get-block
       (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
                 "Лист2" ;_ имя лайаута
       )
      )
)
(setq rec (vla-addlightweightpolyline
           paper_space
           (vlax-make-variant
            (vlax-safearray-fill
             (vlax-make-safearray vlax-vbdouble '(0 . 7))
             '(0.0 0.0 200.0 0.0 200.0 150.0 0.0 150.0)
            )
           )
          )
)
(vla-put-closed rec :vlax-true)

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

[VVA]

Прочитай координаты полилинии, trans в текущую ПСК, и скормить координаты _.VPCLIP

[DANZZ]

а если не _.VPCLIP.
c помощью vla- какнить можно? красивее както

[DANZZ]

Спасибо Alaspher, полилиния создается там где нужно, но вот подрезка не работает, думаю причина в том что в пространстве листа 2 объекта с именем "AcDbViewport" (две полилинии одинаковых выводится, значит (vlax-for vp (vla-get-paperSpace active_document)
(if (= (vla-get-ObjectName vp) "AcDbViewport") два раза прокручивается в одном лайуте), причем 1й невидимый, типа условный, получается я его подставляю в (vl-cmdf "_.VPCLIP" vp rec) и акад выдает ошибку:

Команда: _.VPCLIP
*Неверный выбор*
Требуется точка/ или Последний/Группа
Команда: Неверный подрезающий объект.
Выберите объект для подрезки видового экрана: Неверно: Контур подрезки не
входит в регенерируемую область.
Выберите объект для подрезки видового экрана:
Команда: Выполняется регенерация листов.
Выполняется регенерация листов.
Регенерация модели - кэширование видовых экранов.

Код:

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

(setq name_layout "Лист ")
  (setq i 1)
  (while (<= i num_Layots)
  	(setq name_layout (strcat name_layout (rtos i 2 0))) 
  	(vl-catch-all-apply '(lambda () (vla-add (vla-get-layouts active_document) name_layout)))
    	(vla-put-ActiveLayout active_document (vla-item (vla-get-layouts active_document) name_layout))
    	(setq paper_space (vla-get-Block (vla-item (vla-get-layouts active_document) name_layout)))
    	(vlax-for vp (vla-get-paperSpace active_document)
   		(if (= (vla-get-ObjectName vp) "AcDbViewport")
		  	(progn
		  		(vla-put-layer vp "Граница")
			  	(setq Rectang (nth (- i 1) List_Rectang))
			  	(setq temp (pl:Point_Rectang Rectang))
			  	(setq temp (apply 'append (mapcar 'list (mapcar 'car temp)(mapcar 'cadr temp))))
				(setq temp (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 9)) temp)))      
			  	(setq rec (vla-AddLightWeightPolyline paper_space temp))
			  	(vla-put-Closed rec :vlax-true)
			  	(setq vp (vlax-vla-object->ename vp))
			  	(setq rec (vlax-vla-object->ename rec))
			  	(vl-cmdf "_.VPCLIP" vp rec)
			  	(vla-ZoomExtents (vlax-get-acad-object))
			)
		)  
    	)
  	(setq i (+ i 1))
 	(setq name_layout "Лист ")
  )

Как отфильтровать ненужный "AcDbViewport"?

[DANZZ]

вот так всегда, только напишу и сразу нахожу вариант решения задачки, нужно просто добавить проверку (if (= (vla-get-UCSIconOn vp) :vlax-false) и все сразу заработало

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

Я бы делал не так:

Код:

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

(defun test01 (/ adoc space res)
  (setq
    space (vla-get-block
            (vla-item
              (vla-get-layouts
                (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
                ) ;_ end of vla-get-Layouts
              (getvar "ctab")
              ) ;_ end of vla-item
            ) ;_ end of vla-get-block
    ) ;_ end of setq
  (vlax-for ent space
    (if (wcmatch (strcase (vla-get-objectname ent)) "*VIEW*")
      (setq res (cons ent res))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (cdr (reverse res))
  ) ;_ end of defun

(defun test02 (/ adoc space res)
  (setq
    space (vla-get-block
            (vla-item
              (vla-get-layouts
                (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
                ) ;_ end of vla-get-Layouts
              (getvar "ctab")
              ) ;_ end of vla-item
            ) ;_ end of vla-get-block
    ) ;_ end of setq
  (vlax-for ent space
    (if (wcmatch (strcase (vla-get-objectname ent)) "*VIEW*")
      (setq res (cons ent res))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vl-remove-if
    '(lambda (x) (= (cdr (assoc 69 (entget (vlax-vla-object->ename x)))) 1))
    (reverse res)
    ) ;_ end of vl-remove-if
  ) ;_ end of defun

Второй вариант более надежный, но и помедленнее будет.

[VVA]

DANZZ,

думаю причина в том что в пространстве листа 2 объекта с именем "AcDbViewport"

Правильно, и первый надо пропускать всегда (признак - значение поля 69 = 1). Обрати внимание на этот фрагмент у Алексея

Код:

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

(vl-remove-if
    '(lambda (x) (= (cdr (assoc 69 (entget (vlax-vla-object->ename x)))) 1))
    (reverse res)
    ) ;_ end of vl-remove-if

[DANZZ]

Спасибо за ответы
возник еще один вопрос

Почему при применении (vla-delete rec) после (vl-cmdf "_.VPCLIP" (vlax-vla-object->ename vp) (vlax-vla-object->ename rec)) удаляется не только полилиния а еще и видовой экран?

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

Они между собой связаны внутренними реакторами, по-моему.

[DANZZ]

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

[VVA]

Вот два списка одной и той же полилинии. Во втором случае ей подрезан ВЭ.

((-1 . <Имя объекта: 7ef7be10>) (0 . "LWPOLYLINE") (330 . <Имя объекта: 7ef7bce8>) (5 . "42") (100 . "AcDbEntity") (67 . 1) (410 . "Лист1") (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 73.3218 45.1636) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 163.361 45.1636) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 163.361 141.648) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 73.3218 141.648) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0)) ((-1 . <Имя объекта: 7ef7be10>) (0 . "LWPOLYLINE") (5 . "42") (102 . "{ACAD_REACTORS") (330 . <Имя объекта: 7ef7be08>) (102 . "}") (330 . <Имя объекта: 7ef7bce8>) (100 . "AcDbEntity") (67 . 1) (410 . "Лист1") (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 73.3218 45.1636) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 163.361 45.1636) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 163.361 141.648) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 73.3218 141.648) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

Можно попробывать 2 варианта.
1. Подрезать не полилинией, а точками (точки взять с координат вершин)
2. Убрать выделенное красным и сделать entmod списку полилинии.
Думаю вариант 1 предпочтительнее, раз собираешься ее все равно удалять.

[DANZZ]

Сообщение от VVA 1. Подрезать не полилинией, а точками (точки взять с координат вершин) удалять.

это лучший вариант, но

Команда: _vpclip
Выберите подрезающий объект или [Многоугольник] <Многоугольник>: м
Начальная точка:
Следующая точка или [Дуга/длИна/Отменить]:
Следующая точка или [Дуга/Замкнуть/длИна/Отменить]:
Следующая точка или [Дуга/Замкнуть/длИна/Отменить]:
Следующая точка иомли [Дуга/Замкнуть/длИна/Отменить]:
Следующая точка или [Дуга/Замкнуть/длИна/Отменить]:
Команда:

Всеравно создается полилиния которая также связана с видовым экран

[VVA]

DANZZ, Но это другая полилиния! Или я чего-то не понял?
Или не подрезай ВЭ или не удаляй подрезающую ВЭ полилинию.

[DANZZ]

подрезать точками ты имел ввиду это
(vl-cmdf "_.VPCLIP" "м" pt1 pt2 pt3 "з")
или точками это чтото другое?

DANZZ, Но это другая полилиния! Или я чего-то не понял?

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

[DANZZ]

Сообщение от VVA Или не подрезай ВЭ или не удаляй подрезающую ВЭ полилинию.

мне надо И подрезать И удалить

[VVA]

Делай и то и другое через _VPCLIP

Команда: ВЭКРЕЗ Выберите видовой экран для подрезки: Выберите подрезающий объект или [Многоугольник/Удалить] <Многоугольник>: _d

[DANZZ]

Понял, спасибо, не заметил что при _VPCLIP к уже связанному видовому экрану то появляется /Удалить