[zz212243]

Можете помочь, написать лисп на такую операцию?
Ситуация: есть сотни прямоугольников, нужно в них проставить обозначения "проём", т.е. ломанную полилинию из двух отрезков, см. рисунок.
Я лисп-программированием к сожалению не владею.. надеюсь, когда-нибудь и изучу.
Можно ли написать такой лисп, чтобы одним махом во всех выбранных прямоугольниках ставилось это обозначение?
Спасибо.

[Boxa]

Можно ли? Можно.
ЗЫ.
У самого часто возникает потребность в таком скрипте, но руки не доходят...

[hwd]

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

Чем не устроил вариант с расстановкой вхождений динамического блока? В этом случае, при желании, можно так же будет программно узнать, сколько каких проёмов в чертеже и создать их ведомость (при необходимости).

[Boxa]

2 hwd
Бывает от архов или инженеров получаешь план с отверстиями и перечерчивать просто нет времени.
Хотя ты наверное прав, проще вместо обозначения, программно вставлять дин. блок соответственно его изменяя.

[Дима_]

Offtop: Решил размяться с утреца и аж 2 (правда одинаковых) навоял
proem-line - добавляет полилинию к прямоугольникам, proem-block удалит прямоугольник и создаст на его месте блок с соответствующими коэффицентами растяжения. Нормально работать будет только с "правилно" соориентированными в пространстве (паралелно осям) прямоугольниками.

Код:

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

 (vl-load-com)
(defun c:proem-line()
  ((lambda (doc lst-ent)
     (vla-startundomark doc)
     (mapcar '(lambda (lst)
                ((lambda (minx maxx miny maxy)
                   (entmakex (append '((0 . "LWPOLYLINE")(100 . "AcDbEntity")(100 . "AcDbPolyline") (90 . 3))
                                     (mapcar '(lambda (pt) (cons 10 pt))
                                             (list (list minx miny)
                                                   (list (+ minx (* 0.2(- maxx minx)))
                                                         (+ miny (* 0.8(- maxy miny))))
                                                   (list maxx maxy))))))
                 (apply 'min (mapcar 'car lst))
                 (apply 'max (mapcar 'car lst))
                 (apply 'min (mapcar 'cadr lst))
                 (apply 'max (mapcar 'cadr lst))))
             lst-ent)
     (vla-endundomark doc))
   (vla-get-activedocument (vlax-get-acad-object))
   (mapcar '(lambda (ent) (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))))
           (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "LWPOLYLINE") (90 . 4) (70 . 1)))))))))

(defun c:proem-block()
  ((lambda (doc lst-ent)
     (vla-startundomark doc)
     (if (not (tblsearch "block" "proem-block"))
         (vla-AddLightweightPolyline
            (vla-add (vla-get-blocks doc) (vlax-3d-point '(0 0 0)) "proem-block")
            (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 13)) '(1 1 0 1 0 0 1 0 1 1 0.2 0.8 0 0))))
     (mapcar '(lambda (lst)
                ((lambda (minx maxx miny maxy)
                   (entmakex (append '((0 . "INSERT") (100 . "AcDbEntity") (100 . "AcDbBlockReference") (2 . "proem-block"))
                                      (list (list 10 minx miny) (cons 41 (- maxx minx)) (cons 42 (- maxy miny))))))
                 (apply 'min (mapcar 'car lst))
                 (apply 'max (mapcar 'car lst))
                 (apply 'min (mapcar 'cadr lst))
                 (apply 'max (mapcar 'cadr lst))))
             (mapcar 'car lst-ent))
     (mapcar 'entdel (mapcar 'cdr lst-ent))
     (vla-endundomark doc))
   (vla-get-activedocument (vlax-get-acad-object))
   (mapcar '(lambda (ent) (cons (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))) ent))
           (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "LWPOLYLINE") (90 . 4) (70 . 1)))))))))

[zz212243]

Спасибо, Дмитрий, опробуем

[Дима_]

Исправил ошибку (блоки всегда создавались в модели - строка 32 - убрал пару (67 . 0) - лишку из определения скопипастил).

[zz212243]

шик!

[LynxM]

Чуть-чуть не то что просит автор темы, но для тех кто пользуется СПДС графиксом надеюсь что пригодится. Делал для себя параметрический объект для обозначения приема. Описание и ссылка для загрузки: http://roof-facade.blogspot.com/2013...-SPDS.html?m=1

[SetQ]

Дима_, мощно! Захотелось поменять ник

[Дима_]

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

[gomer]

ой мне б ваши проблемы...

[Никита Ремизов]

Можно ли как-то отредактировать этот лисп, чтобы в нем определялась короткая сторона проема и отношение (0,2 0,8) высчитывалось относительно нее, как это сделано в динмическом блоке (см. картинку)?

[Дима_]

С обычными блоками так не сделать (т.к. соотношение сторон будет уникальным для каждого блока - коэффицентами растяжения не подогнать), с линией можно - (мне сейчас не проверить - только вечером посмотреть смогу) - вместо строк

Код:

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

 (list (+ minx (* 0.2(- maxx minx)))
       (+ miny (* 0.8(- maxy miny))))

вставить:

Код:

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

 ((lambda (g2) (list (+ minx g2) (- maxy g2)))
  (* 0.2 (min (- maxx minx) (- maxy miny))))

[Никита Ремизов]

Отлично, спасибо!
А нельзя чтоб еще и заливка этой области делалась?)

[Дима_]

Так можно бесконечно подправлять - делай дин. блок с 2 параметрами (длинна, ширина), которые будет лисп раставлять.

[Никита Ремизов]

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

[Полусолнце]

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

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