Объём земляных работ (Страница 2 из 3)

Спасибо, Владимир, что откликнулись.
Пошел я по простому пути:

Кстати почему (группы 10 11 12)?

т.е. 10 и 11 одинаковы
Вот что получилось

(defun geo_z
       (T1 / 3Df A B C dBx dBy dBz dCx dCy dCz dT1x dT1y Zx Zy )
;T1 точка в которой необходимо определить Z 3DFACE
  (VL-CMDF "_vscurrent"
       "_h"
  )
  (setq    3Df  (ssget "_C"
            (polar t1 5.49778714 0.0001414214)
            (polar t1 2.35619449 0.0001414214)
            '((0 . "3DFACE"))
         )
    A    (CDR
           (ASSOC 11 (ENTGET (SSNAME 3Df 0)))
         )
    B    (CDR
           (ASSOC 12 (ENTGET (SSNAME 3Df 0)))
         )
    C    (CDR
           (ASSOC 13 (ENTGET (SSNAME 3Df 0)))
         )
    dBx  (- (nth 0 B) (nth 0 A))
    dBy  (- (nth 1 B) (nth 1 A))
    dBz  (- (nth 2 B) (nth 2 A))
    dCx  (- (nth 0 C) (nth 0 A))
    dCy  (- (nth 1 C) (nth 1 A))
    dCz  (- (nth 2 C) (nth 2 A))
    dT1x (- (nth 0 T1) (nth 0 A))
    dT1y (- (nth 1 T1) (nth 1 A))
    Zy   (/ (- (* dCz dBx) (* dCx dBz)) (- (* dBx dCy) (* dCx dBy))) ;_изменение Z по Y
    Zx   (/ (- dBz (* dBy Zy)) dBx) ;_изменение Z по X
    T1z  (+ (nth 2 A) (* dT1x Zx) (* dT1y Zy))
      )

  (VL-CMDF "_vscurrent"
       "_2"
  )

)

Не нашел переменной отвечающей за визуальный стиль, при 2Dкаркас выбрать 3DFACE можно только ухватившись за его ребро, по этому пришлось переключать визуальный стиль, а вот каким он был раньше, чтоб восстановить его?
Новая задача:
1) Построить контур (замкнутая полилиния), являющийся общим для двух других контуров.
2) Построить сетку из прямоугольников по заданным размерам, внутри контура, причём чтоб по периметру, примыкая к контуру, прямоугольники повторяли его конфигурацию, так же внутри контура могут быть характерные лини (полилинии) перелома рельефа, по которым также надо разбить прямоугольники на части.

Владимир, я наверно немного не точно выразился по п.1, мне нужно получить контур, который как бы был контуром штриховки, если бы мы создали штриховку указав точку где-то внутри двух контуров.
Уже почти решил:
Иду по вершинам 1-го контура, дохожу до пересечения со 2-ым, дальше иду по 2-му до следующего пересечения...
Только сразу не угадаешь, получиться внутренний или наружный контур, поэтому создаю оба, а потом больший по площади удаляю. Осталось рассмотреть варианты: вершина на пересечении.

Спасибо!
Наверно на будущее, прежде чем сочинять функцию, я буду сначала спрашивать у людей: - "А нет ли уже такой готовой в AutoCAD-е"
Сначала сломал мозг, ища общую точку для двух контуров, чтоб передать её в _-boundary, потом вернулся к своему варианту (в предыдущем посте), а потом решил, что не стоит изобретать велосипед и установил Geonics :D

Правильно, не поняли, вы же не геодезист, да и возможно я не совсем чётко ставлю задачу, и ещё менее чётко её решаю
Попробую объяснить:
1) Использования одного лишь ядра будет не достаточно, потому что ваша программа не научена учитывать контур поверхности, и характерные линии внутри поверхности (перелом рельефа: бровки-подошвы откосов и пр.), которые не стоит пересекать 3dFace-ми поэтому после создания поверхности, приходиться руками немного править 3dFace-ы, дабы поверхность адекватно отражала фактический рельеф местности.
2) Посчитать объём по триангулированной сетке не сложно, но надо не только посчитать объём, а ещё и оформить исполнительную схему, по которой любому(заказчику, технадзору и др.) будет понятно от куда этот объём берётся, как оформлять изложено в ГОСТ 21.508-93, обсуждалось рядом Как посчитать Объем земляных масс в Автокаде
3) Т.е. нам необходимо построить сетку из квадратов, скажем 10х10, в углу каждого квадрата определить отметку поверхности в данной точке (для чего нужна эта отметка читаем в  1 посте, кстати Геодезист это я). Так вот для определения этой отметки я и хотел искать координату пересечения полилинии, опущенной из угла квадрата сетки, на поверхность из 3dFace-ов.

Здравствуйте, не могли бы помочь, добавить ручной ввод площади полилинии, или её масштаб (черчу в мм.)

(DEFUN c:raz  (/ TEXT TEXT_1 TEXT_2 OLD_DIM)
;|
вычисляет разницу между проектными и существующими отметками
|;
  (setq OLD_DIM (getvar "dimzin"))
  (IF
    (AND
      (SETQ text_1 (ENTSEL "\nПроектная отметка: "))
      (SETQ text_2 (ENTSEL "\nОтметка земли: "))
      (SETQ text_1 (CDR (ASSOC 1 (ENTGET (SETQ text (CAR text_1))))))
      (SETQ text_2 (CDR (ASSOC 1 (ENTGET (CAR text_2)))))
      (SETQ text_1 (ATOF text_1))
      (SETQ text_2 (ATOF text_2))
      )
     (PROGN
       (VL-CMDF "_.copy" text "" "_none" '(0 0 0) "_none" '(0 0 0))
       (SETQ text (ENTGET (ENTLAST)))
       (setvar "dimzin" 4)
       (ENTMOD
    (SUBST   (CONS 1 (STRCAT "(" (RTOS (- text_1 text_2) 2 2) ")"))
      (ASSOC 1 text)
      text))
       (setvar "dimzin" OLD_DIM)
       (VL-CMDF "_.change" "_l" "" "_p" "_co" 5 "")
       (VL-CMDF   "_.move"
      "_l"
      ""
      "_none"
      (CDR (ASSOC 10 (ENTGET (ENTLAST))))
      )
       )
     )
  )
(DEFUN c:ob  (/ I NABOR NN PLO SUMA TEXT OLD_DIM)
;|
вычисляет объем срезки\насыпи по разнице отметок и площаде фигуры
|;
  (setq OLD_DIM (getvar "dimzin"))
  (IF
    (AND
      (SETQ nabor (SSGET '((0 . "*text") (1 . "(*)") (62 . 5))))
      (SETQ plo (ENTSEL "\nУчасток: "))
      (SETQ plo (CAR plo))
      (SETQ plo (VLA-GET-AREA (VLAX-ENAME->VLA-OBJECT plo)))
      )
     (PROGN
       (SETQ nn     (SSLENGTH nabor)
        i     -1
        suma 0.0)
       (REPEAT nn
    (SETQ suma
      (+
        suma
        (ATOF
          (VL-STRING-TRIM
            "()"
            (CDR
         (ASSOC
           1
           (ENTGET (SSNAME nabor (SETQ i (1+ i))))))))))
    )
       (SETQ suma (* (/ suma nn) plo))
       (VL-CMDF   "_.copy"
      (SSNAME nabor 0)
      ""
      "_none"
      '(0 0 0)
      "_none"
      '(0 0 0))
       (SETQ text (ENTGET (ENTLAST)))
       (setvar "dimzin" 4)
       (ENTMOD
    (SUBST   (CONS 1 (RTOS suma 2 2))
      (ASSOC 1 text)
      text))
       (setvar "dimzin" OLD_DIM)
       (VL-CMDF "_.change" "_l" "" "_p" "_co" 1 "")
       (VL-CMDF   "_.move"
      "_l"
      ""
      "_none"
      (CDR (ASSOC 10 (ENTGET (ENTLAST))))
      )
       )
     )
  )

1. результат вставлялся в существующий текст - не понял в какой
2. без скобок. Что мешает убрать их, религия?

(setq etext (entmakex (subst  (cons 1 (strcat 
                           (if (> delta 0) "+" "") 
                           (rtos delta  2 2) ;_здесь происходит округление
                           "")) 
                   (assoc 1 etext) 
                   etext) 
           ) 
        )

Если вы хотите чтобы вас поняли, говорите разборчиво...

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

Вроде они были вставлены в предыдущем действии?

ИМХО. Проще создать блок с тремя атрибутами. Тогда потребуется только одно указание, все остальные действия просты как угол дома.

в этом кусочке текста всё уже убрано.

Да всё что угодно! :D
Больше того, тогда можно выделить все(!) блоки отметок и за 1(одну) сек. получить подписанную разницу.
>Largo_GT
Посылал тебе сообщение в Личку, хотел прислать Блок с атрибутами (тут нельзя его прикрепить) и Лиспик к нему.

Добрый день. Было бы ОЧЕНЬ интересно посмотреть на этот блок и Lisp. Можете опубликовать?

спасибо. блок и лисп работают, но считает только разницу отметок, объем не считает.

Спасибо за пояснение. (не до конца вчитался в форум).
А можно лисп объема из этой темы применить к блокам (атрибуту DELTA)

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