Отклонения в исполнительных семах (строительство) (Страница 1 из 2)

Спасибо! Будем пробовать

Тогда лучше проектные сделать не только точки, а на выбор: круг, блок, точка, (ещё бы пересечение полилиний).
И не обязательно заранее по слоям разносить, можно предложить выбрать образец, а потом спросить по какой характеристики:слой, цвет, вес,... создать набор.

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

Ну, вообще программа позволяет рисовать "просто стрелки" с отклонения от проектного.
По стенам как-то так:
I) В диалоговом окне:
   1. "Что снимали?" оставляем по-умолчанию "другое"
   2. "Что показывать"
      а)   Для углов можно оставить dx dy
      б)  Право/лево (на чертеже)dy
      в) Верх/низ (на чертеже) dx
   3. "Предельные отклонения" по-желанию.
II)Кликаем стена проект -> точка факт

Disney, жму руку. Код супер!!!!!!!!!

Я думал об этом, даже хотел так, что бы при указании средней отметки между низом и верхом стен/колон,  программа по отметке фактического положения определяла [В] или [Н] автоматически.
Как нибудь займусь этим.

Как использовать лисп Владимир Азарко aka VVA

Вот еще пара кодов, может пригодятся кому.
Первый код проставляет точки во всех пересечениях отрезков на слой "PR". Использовать на чертеже с небольшим кол-вом отрезков! Иначе будете долго чаи гонять. Годится для простановки точек в пересечениях проекктных осей.
Второй код удаляет дубль-точки к примеру если несколько отрезков пересекаются в одной точке, то точек также получится несколько(после запуска первого кода).

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun entmake-point1 (pof)
  (entmake
    (list
      '(0 . "POINT")        
      '(100 . "AcDbEntity")
      '(410 . "Model")
      '(8 . "PR")
      '(100 . "AcDbPoint")
      (cons 10 pof)
    )                    ;list
  )                    ;entmake
  (princ)
)                    ;defun

(defun Get-a-group-code (EntName Groupcode)
  (cdr (assoc Groupcode (entget EntName)))
 );defun

(defun C:P_L (/ sset1 p1 p2 p3 p4 counter)

  (setvar "PDMODE" 35)
  (setvar "PDSIZE" 0.1)
  (setq sset1 (ssget "X" '((0 . "LINE"))))

  (while (/= (sslength sset1) 1)


  (setq counter 0)
    (setq p1 (Get-a-group-code (ssname sset1 0) 10)
        p2 (Get-a-group-code (ssname sset1 0) 11))

(repeat (- (sslength sset1) 1)
    (setq counter (1+ counter))
    (setq p3 (Get-a-group-code (ssname sset1 counter) 10)
        p4 (Get-a-group-code (ssname sset1 counter) 11))
       (if (inters p1 p2 p3 p4 T)
     (entmake-point1 (inters p1 p2 p3 p4 T))
  );if
    
);repeat
    (ssdel (ssname sset1 0) sset1)
    );while
  );defun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun C:P_DEL (/ sset1 sset2 p1 p2 counter)
  (setq sset1 (ssget "X" '((0 . "POINT"))))
(setq sset2 (ssadd))
  (while (/= (sslength sset1) 1)
  (setq counter 0)
    (setq p1 (Get-a-group-code (ssname sset1 0) 10))

    (repeat (- (sslength sset1) 1)
    (setq counter (1+ counter))
    (setq p2 (Get-a-group-code (ssname sset1 counter) 10))
       (if (equal p1 p2 0.00001)
                                                    ; (entmake-circle p2)

     (ssadd (ssname sset1 counter) sset2)
  );if
    
);repeat
    (ssdel (ssname sset1 0) sset1)
    );while
  (vl-cmdf "erase" sset2 "")
  );defun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Добавил:
1. Префикс [В] [Н]
2. Пересечение линий(LINE) считает как проектное положение
Рандом добавлять не стал, чтоб не была соблазна халтурить при выполнении исполнительных съёмок

Система Windows Vista x64
AutoCAD 2009 x64

Вот работую и ненарадуюсь этим шедевром.
Только вот еще бы хотелось вот что:
1. Можно ли сделать так чтобы был выбор размера текста отклонения. А то бывает иногда надо покрупнее а иногда и помельче текст (соотв и стрелки автоматом увеличивались/уменьшались)

2. Можно ли тебя попросить сварганить небольшой код. На мультивыноске подписывать координаты. со стилем мультивыноски. А то координаты которые ставит сам акад неудобны каждый раз приходится X Y отдельно лепить. (координату Z только по запросу)

УРАААА МАСШТАБ.

только теперь вот какой небольшой глюк есть:
после запуска приложения, когда он спрашивает выберите проектное положение, почему-то отключены все привязки
такой глюк на акаде 2010 рус х32 и х64

Добавил:
В качестве проектного положения, при автоматической простановке отклонений можно использовать полилинию, за проектное положение будет браться вершина полилинии или ближайшая точка (на полилинии), приоритет отдан вершине, т.е. при поиске ближайшего, расстояние до вершины и расстояние до точки (на полилинии), сравниваются с коэффициентами 1 и 2 соответственно, для того чтобы поймать углы.
На вертикальных или горизонтальных участках полилинии (на "косых" участках использование данного обновления не целесообразно), отклонение от ближайшей точки (на полилинии) будет отображаться только dX или dY соответственно.

Сергей, всё правильно, и логика нормальная, раз коофициента 2, то и значений должно быть 2, т.е. для каждого своё, и хотя исправить(добавить) это не сложно, но пока не будет, т.к. это моя дебютная программа, написана она очень коряво, и не совсем корректно, поэтому душа не лежит, если браться за неё, то надо переделывать, практически всё, когда-нибудь обязательно займусь ;)
Как вариант:
1) Если свай или др. не сильно много, можно в рукопашную с применением динамического блока, вот тут как раз мой видеоурок, как создать такой блок, а там настраивай сам как хочешь...
2) Тут рядом, Сергей Климов выкладывал свою аналогичную программу Strelka10, спроси у него, может ещё не перегорел... и напишет, как тебе надо.