[_den_]

Программа на ЛИСПе создаёт 3Дполилинию вдоль оси сечения и командой "поднять на поверхность" _AeccFeatureElevsFromSurf поднимает вершины 3дполилинии на поверхность. Но выскакивает диалоговое окно "Задать отметки по поверхности" и здесь предусмотрено добавить вершины в местах перелома поверхности поставив галочку "Вставить промежуточные точки перелома" вопрос: как сделать в программе чтобы это диалоговое окно не выскакивало и галочка была в положении "Снята" (не нужны точки перелома) есть переменные которые несут имя 3Дполилинии (3dplin) и поверхности. Фрагмент программы:
(command "_AeccFeatureElevsFromSurf" 3dplin "")
Подскажите есть ли тут решение. использую AutoCAD Civil 3D 2014

[Кулик Алексей aka kpblc]

_den_, в чистом ACAD подобных команд не существует. В заголовке укажи полную версию ПО, с которым работаешь.

[_den_]

AutoCAD Civil 3D 2014 как отредактировать заголовок?

[VVA]

В Автокаде многие настройки хранятся в реестре. Можно попробовать в нем "снять галочку". Пример

[P_S]

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

Код:

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

 ;Имеем переменные: poly - 3D-полилиния и surf - поверхность
;(vla-объекты, конечно)
;Получаем список координат 3D-полилинии:
(setq coo_lst(vlax-safearray->list(vlax-variant-value(vla-get-Coordinates poly))))
;Пишем функцию для замены в списке координат значений Z вершин на Z поверхности в точках
;вершин (функции такого типа называются рекурсивными)
(defun 3Dlst(lst)
  (if lst
    (append(list(car lst))(list(cadr lst))
	   (list(vlax-invoke-method surf 'FindElevationAtXY(car lst)(cadr lst)))
           (3Dlst (cdddr lst)))))
;Используя эту функцию, изменяем координаты вершин 3D-полилинии:
(vla-put-Coordinates poly
(vlax-safearray-fill
(vlax-make-safearray vlax-vbDouble(cons 0(-(length coo_lst)1)))(3Dlst coo_lst)))