Поверхность по нарисованным поперечникам

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


Итак, командой vlisp вызываем окно интерпретатора и вставляем код программы :




Загружаем код в текущее окно(чертеж) Civil3D:


Запускается код командой digitize, набранной в командной строке:


Выбираем вид сечения:


Выбираем полилинию;


Пробелом или Enter-ом повторяем команду для следующих видов сечений.
В итоге в чертеже появляются автокадовские точки:


Используя которые создаём нужную нам поверхность:

В итоге:

Код:

;this code is copyright (c) 2019, Timothy Corey, Redding, CA
;Permission is hereby granted for you to use and modify this code in any way you see fit, within your organization.
;You may not distribute this code outside your organization.
 
;This routine requires a 2d polyline drawn atop a Section View.
;The output objects are AutoCAD Points, not Civil 3D COGO Points. You can convert from AutoCAD Points to COGO Points using
; _AeccCreatePtConvertAdeskPts command. Use PDMODE setting to control the marker style of the AutoCAD Points.
 
 
(defun c:digitize ( / secvw plin smplin smplgr algn coords len ctr x y sta off pxyz px py pz )
(setq cosmode (getvar "OSMODE"))
(setvar "OSMODE" 0)
(vl-load-com)
;get section view
(setq secvw (vlax-ename->vla-object
(car (entsel "\nSelect Section View: "))
      )
  ) ;ask user to select sec view
  (while (not
   (= (vlax-get secvw 'ObjectName) "AeccDbGraphCrossSection")
 ) ;be sure user didn't pick the wrong obtype
    (setq secvw
   (vlax-ename->vla-object
     (car
       (entsel "\nYou must select a Section View, try again: ")
     )
   )
    )
  );end get section view
 
  (setq plin (vlax-ename->vla-object (car (entsel "\nSelect polyline in section view: "))))
  (while (not (= (vlax-get plin 'ObjectName) "AcDbPolyline"))
         (setq plin (vlax-ename->vla-object (car (entsel "\nObject must be a polyline. Try again: "))))
 )
 
 (setq smplin (vlax-get secvw 'Parent))
 (setq smplgr (vlax-get smplin 'Parent))
 (setq algn (vlax-get smplgr 'Parent))
 (setq coords (vlax-get plin 'Coordinates))
 (setq len (length coords)
   ctr 0)
     
 (while (< ctr len)
 
 (setq x (nth ctr coords)
   y (nth (+ ctr 1) coords)
   sta 0.000
   off 0.000
   pz 0.000
   )
   
(vlax-invoke-method secvw 'FindStationOffsetAndElevationAtXY x y 'sta 'off 'pz)
        (vlax-invoke-method algn 'PointLocation sta off 'px 'py)
(setq pxyz (list px py pz))
(vl-cmdf "Point" pxyz)
(setq ctr (+ ctr 2))
)
(setvar "OSMODE" cosmode)
(princ)
);end defun

 

Так, в закладочки

 

Что то немного не работает

 

А в сечениях у вас корыто откуда берется?

 

Просто нарисовал полилинией.

--- Сообщения объединены, 8 дек 2022, Оригинальное время сообщения: 8 дек 2022 ---

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

 

Не появляются.

 

странно, а если в вашей среде Civil3D просто выполнить команду point, что произойдёт? У меня английская версия Civil3D и команда point создаёт автокадовские точки. В тексте кода можно поменять "Point" на соответствующую команду "Точка" из русской версии, или на "_Point".

Версия с "_Point":

Код:

(defun c:digitize ( / secvw plin smplin smplgr algn coords len ctr x y sta off pxyz px py pz )
(setq cosmode (getvar "OSMODE"))
(setvar "OSMODE" 0)
(vl-load-com)
;get section view
(setq secvw (vlax-ename->vla-object
(car (entsel "\nSelect Section View: "))
      )
  ) ;ask user to select sec view
  (while (not
   (= (vlax-get secvw 'ObjectName) "AeccDbGraphCrossSection")
 ) ;be sure user didn't pick the wrong obtype
    (setq secvw
   (vlax-ename->vla-object
     (car
       (entsel "\nYou must select a Section View, try again: ")
     )
   )
    )
  );end get section view
 
  (setq plin (vlax-ename->vla-object (car (entsel "\nSelect polyline in section view: "))))
  (while (not (= (vlax-get plin 'ObjectName) "AcDbPolyline"))
         (setq plin (vlax-ename->vla-object (car (entsel "\nObject must be a polyline. Try again: "))))
 )
 
 (setq smplin (vlax-get secvw 'Parent))
 (setq smplgr (vlax-get smplin 'Parent))
 (setq algn (vlax-get smplgr 'Parent))
 (setq coords (vlax-get plin 'Coordinates))
 (setq len (length coords)
   ctr 0)
   
 (while (< ctr len)
 
 (setq x (nth ctr coords)
   y (nth (+ ctr 1) coords)
   sta 0.000
   off 0.000
   pz 0.000
   )
 
(vlax-invoke-method secvw 'FindStationOffsetAndElevationAtXY x y 'sta 'off 'pz)
        (vlax-invoke-method algn 'PointLocation sta off 'px 'py)
(setq pxyz (list px py pz))
(vl-cmdf "_Point" pxyz)
(setq ctr (+ ctr 2))
)
(setvar "OSMODE" cosmode)
(princ)
);end defun

 

Нет такой команды пишет. Похоже надо делать восстановление Civila.

 

Посмотрел в интернете:

"Просто захотелось дать полный ответ на такой вопрос: "Как в русском / немецком / китайском etc AutoCAD написать лисп / DIESEL / макрос, не зависящий от локализации?
Все достаточно просто (на первый взгляд): ставим подчеркивание перед английским именем команды и перед каждой опцией - и все."

В тексте кода можно/нужно поменять "Point" на "_Point" и сохранить файл для дальнейшего использования.
Прикреплён лисп файл с изменённой командой ("Point" -> "_Point") - digitize.lsp - просто перетаскиваем файл в окно чертежа.

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

 

Вот сейчас заработала.

 

Заработало! Спасибо

 

Но слетают привязки)

 

Не стал создавать новую тему. Вот лисп с такой же логикой работы, но работает по обычным примитивам. Выбираете трассу(полилиния), задаёте масштаб вашего поперечника(вертикальный и горизонтальный, если план трассы 1:1000, поперечник больше в 5 раз, то вводим допустим мастштаб 200). Выбираете линию поверхности на сечении(полилиния), ось сечения(отрезок или полилиния), пикет(в формате ПК0+00.00) и отметка в виде текста или МТЕКСТА. Лисп строит точки на трассе с учётом масштабов, и на их основе создаёт 3д полилинию. Кому то пригодится для быстрой оцифровки проекта. Пока не получается заставить запоминать образцы примитивов, чтобы разом выбирать каждый поперечник. Коллеги может кто подскажет, как это реализовать.