[IvanRus4]

Здравствуйте! Есть Exel таблица с данными координат скважин, ее глубины и номера. Возможно ли реализовать вставку блока с атрибутами, привязанными к этой таблице? По необходимости могу разместить файлы.

[Сергей812]

Обязательно привязанными, т.е. наличие обратной связи с Excel? А так задача типовая: считать данные из экселя, вставляем блок по координатам из считанных данных (не забываем про систему координат), затем во вставленном блоке сразу заполняем атрибуты.
Как пример, обратная задача на сайте уважаемого hwd тыц

[IvanRus4]

спасибо за ссылку! но моя задача не решена! В моем случае кроме номера точки и ее координат могут быть другие данные, которые я предполагаю тоже заносить в блок с атрибутами.
Прикладываю файл блока с набором атрибутов, которые мы забиваем в ручную с таблиц. Помогите упростить задачу вымирающих геологов) Созданием программ и написанием кода не владеем.

[Сергей812]

Т.е. расчетная часть в excel, вывод в AutoCAD. Поскольку

Сообщение от IvanRus4 Созданием программ и написанием кода не владеем.

и желания, похоже, особо нет, то как из один вариантов - сделать в самом блоке таблицу. Вбить туда атрибуты в том же порядке, как они идут в таблице эксель. Затем просто в редакторе блока вставляется таблица из экселя одним кликом и далее на чертеже после установки очередного блока в выпадающем списке у данного блока выбрать нужную скважину. И автоматом выставится в соответствующих атрибутах значения из таблицы блока. Возможно удастся, поиграв в зависимостями и операциями сдвига - обеспечить перемещение в нужную точку. Все таки не вручную значения атрибутов забивать.

P.S. Возможно, у таблицы блока есть какое то ограничение - далеко не влезал в этот вопрос. Но вроде сотни три строк копировал - работало.

[Krieger]

Можно и без лиспа обойтись, дайте пример экселя.

[IvanRus4]

Выкладываю файл таблицы. Может есть какой то путь, если я переведу таблицу в кад?

[Krieger]

Сделать txt файл с данными как в приложении (скопировать из экселя в блокнот).
Вставить блоки при помощи вот такого простенького лиспика, подправив там путь до файла с данными. Править его по желанию.

Код:

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

(defun insertblock

       (setq aa (open (findfile "C:\\Users\\Сергей.Sergei-PC\\Desktop\\данные.txt") "r"))
 
	(while (setq str (read-line aa))
	 (setq lst (dwgru-string-to-list str "\t"))
	 (command "-insert" "скважина" (strcat (nth 2 lst) ","(nth 3 lst)) "" "" "" (nth 4 lst) (nth 5 lst) (nth 6 lst) "" "" "" "")
	 )
	(close aa)
  )