[ati96]

Коллеги, добрый день!
Не нашел похожей темы и поэтому создал новую
Проблема в следующем: часто приходится оформлять сервитуты на ЗУ и приходится нумеровать вершины полилинии, затем по проставленным блокам по вершинам извлекать координаты в эксель файл и потом уже снова вставлять в чертеж.
В лисп не силен и все собрано буквально на коленке
Нужно чтобы лисп делал следующее:
1. выбираешь полилинию
2. Выбираешь блок (блок с атрибутом, чтобы менять номер вершины), как исходник для проставления вершин. Первая вершина должна быть под номером один, а каждая следующая соответственно на один больше.
3. Лисп проставил вершины и создал таблицу, где проставлены номера вершин и координаты Х и Y.

Примерно так. Может уже есть что-то подобное и просто направите меня.
Лисп и пример блока ниже.

Код:

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

 (defun c:servitut4 ()
  (vl-load-com)
  
  ;; Просим выбрать полилинию
  (setq polyline-selection (ssget '((0 . "LWPOLYLINE"))))
  
  (if polyline-selection
      (progn
        ;; Выбираем полилинию из выборки
        (setq polyline (vlax-ename->vla-object (ssname polyline-selection 0)))
        
        ;; Просим выбрать блок
        (setq pt (getpoint "\nУкажите блок на модели: "))
        (setq block-name (cdr (assoc -1 (entget (car (entsel pt))))))
        
        ;; Просим указать имя таблицы
        (setq table-name (getstring t "\nEnter table name: "))
        
        ;; Создаем таблицу
        (setq table (vla-add (vla-get-database polyline) (vla-get-activelayout (vla-get-documents polyline)) "Table" (vla-get-activexobject "ACAD.Table")))
        
        (defun get-polyline-vertices (polyline)
          (setq vertices '())
          (vlax-for vertex (vlax-in polyline 'vertices)
            (setq vertices (cons (vlax-get-property vertex 'coordinates) vertices)))
          (reverse vertices))
        
        (defun insert-block-at-vertex (vertex block-name)
          (setq insertion-point (cdr (assoc 10 vertex)))
          (setq angle (cdr (assoc 40 vertex)))
          (command "-insert" block-name insertion-point angle))
        
        (defun add-to-table (table vertices)
          (setq count 1)
          
          (vlax-for row (vlax-get-property table 'rows)
            (vla-delete row))
          
          (foreach vertex vertices
            (setq point (cdr (assoc 10 vertex)))
            
            ;; Добавляем новую строку в таблицу
            (setq newRow (vla-addrow table))
            
            ;; Задаем значение номера вершины в ячейку A
            (vla-settextstring (vla-get-cell newRow 0) (strcat "Vertex " (itoa count)))
            
            ;; Задаем значение координаты вершины в ячейку B
            (setq coordinates (apply 'strcat (mapcar '(lambda (coord) (rtos coord 2 6)) point)))
            (vla-settextstring (vla-get-cell newRow 1) coordinates)
            
            (setq count (+ count 1))))
        
        (setq vertices (get-polyline-vertices polyline))
        
        (foreach vertex vertices
          (insert-block-at-vertex vertex block-name))
        
        (add-to-table table vertices)
        
        (princ "Блок успешно размещен на вершинах полилинии и данные добавлены в таблицу.")
      )
      (princ "Не найдено ни одной полилинии.")
    )
  (princ)
)

[pzu_gp]

Maksim7enov, не нужно ничего корректировать, все работает)
Большое вам спасибо!

[gumel]

Делал недавно что-то похожее. Только я тоже не силен в Лисп. Реализовал вставку специального динамического блока в узлы полилинии с генерацией таблицы с координатами. Попробуйте, вдруг понравится. Для работы нужно 2 файла: "PolylinePointsCoordToTable.exe" и "GeoPointNumb.dwg", остальное исходники на Delphi

[San-Miguel]

Ничего непонятно.

[Тёмыч]

Сообщение от gumel Делал недавно что-то похожее. Только я тоже не силен в Лисп. Реализовал вставку специального динамического блока в узлы полилинии с генерацией таблицы с координатами. Попробуйте, вдруг понравится. Для работы нужно 2 файла: "PolylinePointsCoordToTable.exe" и "GeoPointNumb.dwg", остальное исходники на Delphi

А можно сделать без пробелов в числах в таблице координат? (пример: 1 125 744.32 что бы было: 1125744.32)

[SilvioManuel]

можете подсказать - может дело не в коде, однако себе поставил на один комп

Сообщение от Maksim7enov Поменял в строке 39 и 40

а на другом - даёт ошибку, прописывая в названиях команд декодированый текст и ставя только точку на первой вершине, игнорируя создание таблицы

[Maksim7enov]

Добрый день! Как грузится лисп в кад? Про декодированый текст посмотрите здесь
https://adn-cis.org/forum/index.php?topic=8399.0
Какие версии када? ну и файл сам нужен. Так не особо понятно