Обрезать все линии внутри нескольких выбранных полилиний

Alea · 26.06.2010, 16:32

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

Спасибо!

Кулик Алексей aka kpblc · 26.06.2010, 16:55

http://dwg.ru/pub/12

Alea · 26.06.2010, 17:13

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

VVA · 26.06.2010, 17:26

Alea, Добро пожаловать на форум!
Тебе помогут сделующие команды:
1. EXTRIM из ExpressTools (на всякий случай ExpressTools или иногда ET - это бесплатное дополнение к Автокаду, входит в дистрибутив)
2. CookieCutter2 - more fun with ET extrim
Судя по вопросу с лиспом обращаться умеешь. Если нет - читай по ссылке в моей подписи.
По поводу поста #2 - это тоже то, что нужно. Создаешь блок размером 1x1 с маскировкой (часть 2 статьи). Задавая в свойствах масштаб по x и y легко превращаешь его в окно нужного размера.
Можно при определенном навыке сделать этот блок динамическим.

Alea · 26.06.2010, 17:55

И EXTRIM и CookieCutter2 выбирает только одну полилинию и нужно указывать сторону, где резать. В любом случае, гораздо удобнее обычного trim, спасибо, не знала про эти команды! Но у меня этих прямоугольников (окошек) больше 200 на каждом доме, для каждого нужно повторять операцию отдельно, что резать, что блок с маскировкой ставить(((
Хотя идею подали: можно все окошки тупо заштриховать солидом в цвет листа (белым) и поставить штриховку на передний план, на экране выглядит погано, а при печати - то, что нужно)))

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

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

Кулик Алексей aka kpblc · 26.06.2010, 20:57

У команды _trim есть замечательная опция _fence...

Alea · 26.06.2010, 21:20

А толку? То же самое делает и рамка... Все равно, тем или иным образом, нужно выбирать линии внутри каждого прямоугольника, а их (прямоугольников)- много...
Т.е. в программе нужно выбрать прямоугольники, секущая линия - это диагональ каждого прямоугольника...алгоритм, кажется, понятен.. напишите кто-нибудь, а?!

VVA · 26.06.2010, 23:59

Alea, Проще "закрыть" их маскировками (WIPEOUT)

Цитата:

Сообщение от Alea

нужно выбирать линии внутри каждого прямоугольника

Если каждый прямоугольник - это ЗАМКНУТАЯ полилиния.

Код:

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

(defun c:WFP ( / ss)
  ;;;Wipeout From Polyline
 (setq ss (ssget "_I" (list (cons 0  "LWPOLYLINE")(cons 70  1))));_Предварительный выбор
 (SSSETFIRST)
  (and
    (or ss
        (setq ss (ssget  (list '(0 . "LWPOLYLINE") '(70 . 1))))
        )
    (wipe-from-pl ss nil)
    )
  (princ)
  )
(defun c:WFPD ( / ss)
  ;;;Wipeout From Polyline with Delete Polyline
 (setq ss (ssget "_I" (list (cons 0  "LWPOLYLINE")(cons 70  1))));_Предварительный выбор
 (SSSETFIRST)
  (and
    (or ss
        (setq ss (ssget  (list '(0 . "LWPOLYLINE") '(70 . 1))))
        )
    (wipe-from-pl ss t)
    )
  (princ)
  )
(defun wipe-from-pl ( ss del / cnt e1 osm clay ssmask *error* )
  ;;; ss - набор с полилиниями 
  ;;; del - t - удалять полилинии
  ;;; nil - нет
  (vl-load-com)
  (defun *error* (msg / image_set)
        (while (> (getvar "CMDACTIVE") 0) (command))
        (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
        (princ msg)
        (princ)
      )
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq osm (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setvar "CMDECHO" 0)
  (setq clay (getvar "CLAYER"))
  (command "_.LAYER" "_M" "Маскировка" "")
  (setq ssmask (ssadd))
  (and 

       (repeat (setq cnt (sslength ss))
         (setq e1 (ssname ss (setq cnt (1- cnt))))
         (setq ptlist (mapcar 'cdr
                            (vl-remove-if-not 
                              (function (lambda (x) (= 10 (car x))))(entget e1))))
         (command "_WIPEOUT")
         (foreach pt ptlist (command (trans pt 0 1)))
         (command "")
         (ssadd (entlast) ssmask)
         (and del (entdel e1))
         )
       )
  (if (> (sslength ssmask)  0)
    (command "_DRAWORDER" ssmask "" "_F")
    )
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setvar "CLAYER" clay)
  (setvar "OSMODE" osm)
  (princ "\nОбработано ")
  (princ (sslength ssmask))
  (princ " замкнутых полилиний")
  (setq ss nil ssmask nil)
  (princ)
  )
(princ "\nType WFP or WFPD in command line")

Другие версии здесь

Alea · 27.06.2010, 01:37

Подходит!!! Спасибо!! А как сделать, чтобы сначала можно было выбрать те полилинии, которые нужно обрабатывать?

VVA · 27.06.2010, 10:21

В строке

Цитата:

(setq ss "_X" (ssget (list '(0 . "LWPOLYLINE")

убери "_X".
PS. Я подправил #8. Если нужны и незамкнутые полилинии, то убери из красной строчки '(70 . 1)

Alea · 30.06.2010, 22:47

Все работает, спасибо огромное!)
Только если в готовом чертеже запускать - маскировку рисует не на полилиниях, а где-то в другом месте, но это не проблема, один раз и перетащить не трудно))) Маскировкой раньше практически не пользовалась, ведет она себя мало предсказуемо (для меня), порядок слоев меняется, часть маскировки уходит назад, часть остается впереди.... нервирует. Нет ли возможности в автокаде зафиксировать порядок слоев, типа как в фотошопе? "Штатной" функции не нашла(((

VVA · 01.07.2010, 10:13

Цитата:

Сообщение от Alea

маскировку рисует не на полилиниях, а где-то в другом месте

Добавил обработку ПСК в #8

Цитата:

Сообщение от Alea

Нет ли возможности в автокаде зафиксировать порядок слоев

Меню Вид->Регенерировать все

vade · 01.07.2010, 19:51

А было бы еще супер если сразу и заменять полилинию маскировкой

VVA · 01.07.2010, 20:49

Цитата:

Сообщение от vade

А было бы еще супер если сразу и заменять полилинию маскировкой

Я предпочитаю отключать контур (в команде _WIPEOUT опция Контур/Frame)

Код:

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

(defun C:OKNA ( / ss cnt e1 osm clay ssmask )
  (vl-load-com)
  (setq osm (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setvar "CMDECHO" 0)
  (setq clay (getvar "CLAYER"))
  (command "_.LAYER" "_M" "Маскировка" "")
  (setq ssmask (ssadd))
  (and 
       ;;;(setq ss (ssget "_X"  (list '(0 . "LWPOLYLINE")
       ;;;                                   '(70 . 1)(cons 410 (getvar "CTAB")))))
       (setq ss (ssget "_:L"  (list '(0 . "LWPOLYLINE") '(70 . 1))))

       (repeat (setq cnt (sslength ss))
         (setq e1 (ssname ss (setq cnt (1- cnt))))
         (setq ptlist (mapcar 'cdr
                            (vl-remove-if-not 
                              (function (lambda (x) (= 10 (car x))))(entget e1))))
         (command "_WIPEOUT")
         (foreach pt ptlist (command (trans pt 0 1)))
         (command "")
         (ssadd (entlast) ssmask)
         (entdel e1)
         )
       )
  (if (> (sslength ssmask)  0)
    (command "_DRAWORDER" ssmask "" "_F")
    )
  (setvar "CLAYER" clay)
  (setvar "OSMODE" osm)
  (princ "\nОбработано ")
  (princ (sslength ssmask))
  (princ " замкнутых полилиний")
  (setq ss nil ssmask nil)
  (princ)
  )

vade · 01.07.2010, 21:14

Извиняюсь, наверное не так выразился. А нужно так "А было бы еще супер если сразу и заменять удалять автоматически полилинию после выполнения маскировки

VVA · 01.07.2010, 22:43

vade, Разницы нету. Ты код в #14 смотрел? (нажми на +)

vade · 02.07.2010, 01:01

Извинняюсь еще раз, не то подгрузил.
Спасибо большое.

АлексЮстасу · 13.12.2010, 18:17

Отличный, очень нужный лисп создания оптом масок - я тоже искал такой ))
По поводу удаления-обрезания-вырезания.
Tool Pack-->Object-->Erase-->Inside Objects позволяет удалять все элементы, попадающие внутрь контуров, причем, контуров можно сразу указать много. И никаких точек-элементов внутри указывать не требуется!
Проблема там, во-первых, в том, что удалятся элементы целиком, а не обрежутся по границам контуров. Во-вторых, даже если элементы предварительно разбить на границах контуров, то эта утилита либо внутри контуров не удалит все примыкающие к границе (Erase Crossing Objects - N), либо удалит все - и внешние тоже (Erase Crossing Objects - Y).
Разрезание элементов на пересечениях есть - http://forum.dwg.ru/showthread.php?t...t=breakobjects

Можно на основе этих наработок сделать и удаление всех частей всех элементов внутри множества указанных контуров, не указывая точек или элементов внутри контуров?

АлексЮстасу · 18.05.2011, 19:15

Цитата:

Сообщение от Alea

А как сделать, чтобы сначала можно было выбрать те полилинии, которые нужно обрабатывать?

Цитата:

Сообщение от VVA

В строке (setq ss "_X" (ssget (list '(0 . "LWPOLYLINE")
убери "_X".
PS. Я подправил #8.

Предварительный выбор полилиний у меня сейчас не обрабатывается.
Оттого, что у меня 2006?

VVA · 19.05.2011, 14:17

Обновил #8. Сделал 2 команды (с удалением и без удаления исходных полилиний)

АлексЮстасу · 20.05.2011, 01:09

Цитата:

Сообщение от VVA

Обновил #8. Сделал 2 команды (с удалением и без удаления исходных полилиний)

Здорово! Работает!
1. Я присоединяюсь к просьбе

Цитата:

Сообщение от Alea

часть маскировки уходит назад, часть остается впереди.... нервирует. Нет ли возможности в автокаде зафиксировать порядок слоев

- как я ее понимаю. Можно сделать так, чтобы исходные полилинии сразу оказывались выше масок?
2. Что в тексте подправить, чтобы маски делались не только в замкнутых полилиниях, но и в разомкнутых тоже? (Раньше в #8 было указание, но оно теперь исчезло).

VVA · 20.05.2011, 12:11

Пробуй. Убрал vlisp ф-ции. По идее должно работать и в клонах (Bricscad и проч). Снабдил коментариями

Код:

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

 
 
(defun c:WFP (/ ss)
;;;Wipeout From Polyline
  (setq ss
         (ssget "_I"
                (list
                  (cons 0 "LWPOLYLINE")
;;;  (cons 70 1) ;_Раскомментировать, если нужны замкнутые полилинии
                ) ;_ end of list
         ) ;_ end of ssget
  ) ;_Предварительный выбор
  (sssetfirst)
  (and
    (or ss
        (setq ss
               (ssget
                 (list
                   '(0 . "LWPOLYLINE")
;;;  '(70 . 1) ;_Раскомментировать, если нужны замкнутые полилинии
                 ) ;_ end of list
               ) ;_ end of ssget
        ) ;_ end of setq
    ) ;_ end of or
    (wipe-from-pl ss nil)
  ) ;_ end of and
  (princ)
) ;_ end of defun
(defun c:WFPD (/ ss)
;;;Wipeout From Polyline with Delete Polyline
  (setq ss
         (ssget "_I"
                (list
                  (cons 0 "LWPOLYLINE")
;;;  (cons 70 1) ;_Раскомментировать, если нужны замкнутые полилинии
                ) ;_ end of list
         ) ;_ end of ssget
  ) ;_Предварительный выбор
  (sssetfirst)
  (and
    (or ss
        (setq ss
               (ssget
                 (list
                   '(0 . "LWPOLYLINE")
;;;  '(70 . 1) ;_Раскомментировать, если нужны замкнутые полилинии
                 ) ;_ end of list
               ) ;_ end of ssget
        ) ;_ end of setq
    ) ;_ end of or
    (wipe-from-pl ss t)
  ) ;_ end of and
  (princ)
) ;_ end of defun
(defun wipe-from-pl (ss del / cnt e1 osm clay ssmask *error* echo)
;;; ss - набор с полилиниями 
;;; del - t - удалять полилинии
;;; nil - нет
  (vl-load-com)
  (defun *error* (msg)
    (while (> (getvar "CMDACTIVE") 0) (command))
    (command "_.UNDO" "_E")
    (setvar "CLAYER" clay)
    (setvar "OSMODE" osm)
    (setvar "CMDECHO" echo)
    (princ msg)
    (princ)
  ) ;_ end of defun
  (setq osm (getvar "OSMODE")
       clay (getvar "CLAYER")
       echo (getvar "CMDECHO")
        )
  (
   (lambda (m)
     (cond
       ((= (logand m 1) 0) (command "_.UNDO" "_All"))
       ((= (logand m 3) 3) (command "_.UNDO" "_Control" "_All"))
       (t nil)
     ) ;_ end of cond
   ) ;_ end of lambda
    (getvar "UNDOCTL")
  )
  (command "_.UNDO" "_BE")
  (setvar "OSMODE" 0)
  (setvar "CMDECHO" 0)
  (command "_.LAYER" "_M" "Маскировка" "")
  (setq ssmask (ssadd))
  (repeat (setq cnt (sslength ss))
    (setq e1 (ssname ss (setq cnt (1- cnt))))
    (setq ptlist (apply 'append
                        (mapcar '(lambda (x)
                                   (if (= (car x) 10)
                                     (list (cdr x))
                                     nil
                                   ) ;_ end of if
                                 ) ;_ end of lambda
                                (entget e1)
                        ) ;_ end of mapcar
                 ) ;_ end of apply
    ) ;_ end of setq
    (if (> (length ptlist) 2) ;_Пропускаем полилинии с 2 вершинами
      (progn
        (command "_WIPEOUT")
        (foreach pt ptlist (command (trans pt 0 1)))
        (command "")
        (ssadd (entlast) ssmask)
	(if (not del)
	  (command "_-group" "_c" "*" "" (entlast) e1 "")
	  )
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of repeat
  (setvar "PICKSTYLE" 0)
  (if (> (sslength ssmask) 0)
    (command "_DRAWORDER" ssmask "" "_F") ;_Помещаем набор WIPEOUT на передний план
  ) ;_ end of if
  (command "_DRAWORDER" ss "" "_F") ;_Помещаем набор полилиний на передний план
  (if del
    (command "_.ERASE" ss "")
  ) ;_ end of if
  (setvar "PICKSTYLE" 1)
  (command "_.UNDO" "_E")
  (command "_WIPEOUT" "_F" "_OFF") ;_Отключаем контур у WIPEOUT
  (setvar "CLAYER" clay)
  (setvar "OSMODE" osm)
  (setvar "CMDECHO" echo)
  (princ "\nОбработано ")
  (princ (sslength ssmask))
  (princ " полилиний")
  (setq ss nil
        ssmask nil
  ) ;_ end of setq
  (princ)
) ;_ end of defun
(princ "\nType WFP or WFPD in command line")

АлексЮстасу · 21.05.2011, 00:59

Цитата:

Сообщение от VVA

Пробуй. Убрал vlisp ф-ции. По идее должно работать и в клонах (Bricscad и проч). Снабдил коментариями

Работает всячески хорошо, спасибо! И исходные полилинии сразу оказываются сверху, над масками, что освобождает от ненужной доработки.
Несколько спорна только однозначная определенность слоя, в который создаются маски - в "Маскировка". Правда, это уже выше обсуждалось.

Есть еще одна проблемка, типичная для масок - усложняется редактирование, т.к. нужно изменять не только границы контуров, но и синхронно изменять форму масок.
А что если создаваемые маски сразу объединять с исходными полилиниями в группы? Как это делает Экспресс, объединяя текст со своими масками?

VVA · 26.05.2011, 11:32

Добавил в #22 группировку

АлексЮстасу · 26.05.2011, 13:22

Цитата:

Сообщение от VVA

Добавил в #22 группировку

Отлично!

То, что нужно!
А можно сразу принудительно включить режим отображения групп (который вручную включается/выключается Ctrl+H) - чтобы сразу при редактировании границ случайно не рассогласовать их с масками?

VVA · 26.05.2011, 14:59

Там так и делается. см (setvar "PICKSTYLE" 1)

АлексЮстасу · 26.05.2011, 15:27

Цитата:

Сообщение от VVA

Там так и делается. см (setvar "PICKSTYLE" 1)

А! Разглядел!
Вообще - мечта

ES · 15.06.2011, 08:31

Цитата:

Сообщение от VVA

Пробуй. Убрал vlisp ф-ции. По идее должно работать и в клонах (Bricscad и проч). Снабдил коментариями

Ну для Bricscad сие и не надо было делать. VL-функции поддерживаются в нем еще с V8. А сейчас уже V11 как никак. Да и не клон это, а альтернативный софт, заменяющий AutoCAD.

Astartes · 10.07.2012, 08:08

АлексЮстасу, У тебя при растягивании за любую ручку полилинии тянется маска или только за угловые?
У меня растягивается только когда тяну за угловые.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание нового типа линий	Apelsinov	AutoCAD	915	08.07.2022 12:36
Не все линии проекции отображаются при использовании Sectionplane	NK2891	AutoCAD	9	02.06.2009 09:09
все линии отображаются одной толщиной это при включенном LWG	lisa4ka	AutoCAD	7	05.02.2007 20:36
ЮМОР 2006 =)	Perezz!!	Разное	1122	04.01.2007 00:46
Переход в пунктирные линии примитивов,блоков внутри rectang	DDlis	Программирование	3	12.03.2005 11:39

26.06.2010, 16:32		#1
Обрезать все линии внутри нескольких выбранных полилиний Alea Регистрация: 25.01.2010 Сообщений: 7 Может у кого есть такая программка на лиспе, очень нужно, а сама программировать не умею((( На чертеже много линий или полилиний (у меня - сетка из вертикальных и горизонтальных линий), их пересекают замкнутые полилинии (у меня - прямоугольники). Нужно обрезать все линии, которые находятся внутри этих прямоугольников, не выделяя линии внутри каждого прямоугольника отдельно. Спасибо! Миниатюры Последний раз редактировалось Кулик Алексей aka kpblc, 26.06.2010 в 16:54.
Просмотров: 13794