Из AutoCAD в Excel

Из AutoCAD в Excel · 05.07.2010, 15:02

Как выгрузить конкретный объект из AutoCAD в Excel?

05.07.2010, 16:15

_DATAEXTRACTION

Владимир74 · 05.07.2010, 16:41

AlphaGeo, Можно поподробнее...

AlexV · 05.07.2010, 17:00

Цитата:

Сообщение от Владимир74

Как выгрузить конкретный объект из AutoCAD в Excel?

Как-то конкретно не понятно, что за конкретный объект.. И как конкретно его выгрузить?

Атрибуты блоков в таблицу excel, что ли?

Владимир74 · 05.07.2010, 17:05

Изначально мне надо чтоб данные из автокадовского файла открывались через 1С... Я это хочу реализовать с помощью экселя, так как связать эксель с 1С намного проще...
А конкретно нужно чтобы в 1С открывались таблицы с данными, чтоб подсчитать и подвести итоги... Следовательно надо, чтоб в эксель выгружались таблицы определенного файла расширения dwg.

05.07.2010, 18:32

Цитата:

Сообщение от Владимир74

надо, чтоб в эксель выгружались таблицы определенного файла

Тебе нужны таблицы (как примитив) AutoCAD'a переводить в Excel? С этим команда _DATAEXTRACTION, если не ошибаюсь, не поможет.

Владимир74 · 05.07.2010, 18:41

Да, мне надо таблицы AutoCAD'a переводить в Excel!

05.07.2010, 18:52

Это пробовал: Как перегнать таблицу из Autocad в файл Excel?

Владимир74 · 05.07.2010, 18:58

Пробовал, не помогает ((

hwd · 05.07.2010, 21:53

Цитата:

Сообщение от Владимир74

Да, мне надо таблицы AutoCAD'a переводить в Excel!
...
Пробовал, не помогает ((

В чём выражается "не помогает"? Если в вашем чертеже таблица представлена объектом Table, то никаких проблем возникнуть не может. Если таблица нарисована отдельными линиями и текстом - тогда другое дело... В этом случае проблема решается программно.

jola · 05.07.2010, 22:49

цитата - "В этом случае проблема решается программно."
Интересует именно такой случай.
Таблица нарисована линиями, в ячейках из линий - значения. Это издержки использования плагина к автокаду Викс студия.
Надо переливать спецификации в Ексель.
Может быть придуманы такие програмки, которые из таблиц нарисованюх линиями экспортят?

Есть еще путь, который пробовали и работает. Печатаешь в PDF, далее через адобовскую распознавалку и таблица Ексель готова. 3 секунды, но как то через ж.
А более красивый путь есть?

hwd · 05.07.2010, 23:07

Цитата:

Сообщение от jola

цитата - "В этом случае проблема решается программно."
Интересует именно такой случай.
Таблица нарисована линиями, в ячейках из линий - значения. Это издержки использования плагина к автокаду Викс студия.
Надо переливать спецификации в Ексель.
Может быть придуманы такие програмки, которые из таблиц нарисованюх линиями экспортят?

Есть еще путь, который пробовали и работает. Печатаешь в PDF, далее через адобовскую распознавалку и таблица Ексель готова. 3 секунды, но как то через ж.
А более красивый путь есть?

Это похоже на то, что нужно?

Кулик Алексей aka kpblc · 06.07.2010, 00:17

А также http://kpblc.blogspot.com/2009/08/alasphera.html#more

КККостя · 02.09.2010, 01:12

Доброго времени суток. Вот у меня такой вопрос, к примеру получил я в экселе Н значений(допустим оч много формул и исх данных, а далее по формулам эти Н и получаются и записываются в определенные ячейки). Возможно ли построить линии длиной этими разными Н значениями, как нибудь по направлениям Х, У??? СПС

Дима_ · 02.09.2010, 10:32

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

ытя · 02.09.2010, 10:51

Может это http://dwg.ru/dnl/4177

youri2005 · 09.11.2010, 18:24

Цитата:

Сообщение от Кулик Алексей aka kpblc

А также http://kpblc.blogspot.com/2009/08/alasphera.html#more

Добрый день всем!
Подскажите пожалуйста как пользоваться программой у меня аналогичная проблема необходимо таблицы с автокада перенести в 1С.

Что необходимо, чтобы запустить данную программу, возможно у кого-то есть эксешник.

Заранее благодарен!

youri2005 · 09.11.2010, 19:08

Добрый вечер!
Подскажите как пользоваться теми программами которые предназначены для переноса данных из автокада в эксель.

Заранее спасибо!

Кулик Алексей aka kpblc · 09.11.2010, 19:21

http://dwg.ru/pub/9

youri2005 · 09.11.2010, 19:37

Спасибо! Буду пробывать!

pasko · 09.02.2011, 13:53

Цитата:

Сообщение от jola

Викс студия

можно узнать, Вы Комфорт-В пользуетесь?

asergeey · 22.02.2011, 11:49

День добрый всем!! Уважаемые товарищи, есть у меня маленькая задача. Работаю в департаменте мерчендайзинга. Есть товарищь который рисует план-схемы магазинов в автокад. Он дает название всем объектам которые нарисовал там. Вопрос таков. Он знает как вытягивать данные из автокада. Но есть у меня подозрения, что можно делать больше всего и проще. У кого есть опыт. Подскажите может кто сталкивался...
Спасибо.

Владимир74 · 22.02.2011, 13:56

каким образом вытягивать данные? можно поподробнее?

Avodo · 03.05.2011, 11:51

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

SHURF · 04.10.2011, 13:06

Цитата:

Сообщение от Кулик Алексей aka kpblc

А также http://kpblc.blogspot.com/2009/08/alasphera.html#more

Алексей, использовал материал с вашей ссылки, спасибо. Но пока что не работает. После выделения объектов таблицы в автокаде вот такое сообщение в командной строке. Не выручите меня, не подскажите как с этим быть.

С уважением, Shurf

angel-fear · 04.10.2011, 15:39

Можно несколько противоположный вопрос?
Как, после извлечения, организовать обратную связь? То есть хочу изменять данные в Excel и чтобы они автоматически менялись в автокаде. Это возможно? К примеру, извлеченные атрибуты блоков менять таким образом...

Кулик Алексей aka kpblc · 04.10.2011, 15:46

SHURF, я с подобным сталкивался, кода версия офиса была то ли 2000, то ли 2007 (без SP). Как решал - хоть убейте, не помню. Если вечером будет возможность, посмотрю.
angel-fear, есть три варианта: а) заняться поиском - вопрос уже не раз поднимался; б) использовать attin и attout; в) использовать dataextraction.

Avodo · 04.10.2011, 15:49

Цитата:

Сообщение от angel-fear

Можно несколько противоположный вопрос?
Как, после извлечения, организовать обратную связь? То есть хочу изменять данные в Excel и чтобы они автоматически менялись в автокаде. Это возможно? К примеру, извлеченные атрибуты блоков менять таким образом...

Так Вы не очень в тему пишите. Здесь обсуждалась проблема перевода таблицы именно из примитивов. Далее после удачного экспорта в Excel можно уже обратно вставить таблицу в Autocad из Excel как целостный элемент "Таблица". Получите такие же ячейки, в которых можно выполнять вычисления, писать формулы и назначать какие либо данные например из атрибутов блоков через так называемые "Поля" которые могут быть вставлены в ячейку вместо текста...

MCAD · 04.10.2011, 16:14

Цитата:

Сообщение от jola

Таблица нарисована линиями, в ячейках из линий - значения. Это издержки использования плагина к автокаду Викс студия.

Если есть СПДС старше трёшки, то sprectable и экспорт в excel.

VVA · 04.10.2011, 18:36

Как вариант попробовать еще это Transfer Acad Table (made by lines and text) to Excel

Код:

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

;; The Aim of the Rountine: To transfer the acad table to excel
;; Notes: Now the program can only deal with the table drawed by line or lwpolyline, and the 
;;        table grid are N*M, not irregular, the rountine is tested under office97
;;        and I think it can also run under the after office version.

;; The command name :b2e

;  by qjchen at http://www.xdcad.net 2006.02.07
;; South China University of Technology, Architecture Department
;; Some code taken from a Korea Friend, Thanks to them


;; The main program
(defun c:b2e (/ p1 p2 p3 p4 p1a p2a p1b p4b pvlist phlist palllist newpvlist
		i j column row ss palist en ed ttext fn fh
	     )
  (setvar "osmode" 33)
  (setq p1 (getpoint "\nThe left Up corner point:"))
  (setq p3 (getpoint "\nThe Right Bottom corner point:"))
  (setvar "osmode" 0)
  (setq p2 (list (car p1) (car (cdr p3)) 0))
  (setq p4 (list (car p3) (car (cdr p1)) 0))
  (setq p1a (polar p1 0 1))
  (setq p2a (polar p2 0 1))
  (setq p1b (polar p1 (* pi 1.5) 1))
  ;(setq p4b (polar p4 pi 1))	       
  (setq p4b (polar p4 (* pi 1.5) 1))	
; Get the Table's horizontal and vertical line's place
  (setq pvlist (vl-Get-Int-Pt p1a p2a))
  (setq pvlist (mapcar
		 '(lambda (x)
		    (polar x pi 1)
		  )
		 pvlist
	       )
  )				      
  (setq phlist (vl-Get-Int-Pt p1b p4b))
  (setq palllist (list pvlist))
  (setq i 1)
  (repeat (- (length phlist) 1)
    (setq newpvlist (mapcar
		      '(lambda (x)
			 (list (car (nth i phlist)) (car (cdr x))
			       (car (cddr x))
			 )
		       )
		      pvlist
		    )
    )
    (setq palllist (append
		     palllist
		     (list newpvlist)
		   )
    )
    (setq i (1+ i))
  )
  (setq column (length palllist))
  (setq row (length (nth 0 palllist)))
  (setq j 0)
  (setq finallist nil)
  (repeat (- row 1)
    (setq i 0
	  rowlist nil
    )
    (repeat (- column 1)
      (setq pa1 (nth j (nth i palllist)))
      (setq pa2 (nth (1+ j) (nth i palllist)))
      (setq pa3 (nth (1+ j) (nth (1+ i) palllist)))
      (setq pa4 (nth j (nth (1+ i) palllist)))
      (setq palist (list pa1 pa2 pa3 pa4))
      (SETQ SS (SSGET "_WP" palist))
      (if (/= ss nil)
	(progn
	  (SETQ EN (SSNAME SS 0))
	  (SETQ ED (ENTGET EN))
	  (setq ttext (cdr (assoc 1 ed)))
	  (setq rowlist (append
			  rowlist
			  (list ttext)
			)
	  )
	)
	(setq rowlist (append
			rowlist
			(list " ")
		      )
	)
      )
      (setq i (1+ i))
    )
    (setq finallist (append
		      finallist
		      (list rowlist)
		    )
    )
    (setq j (1+ j))
  )
  
  
  ;;Now all the N horizontal and M vertical lines' intersecting points(N*M) are obtained				      				       
  (setq outlist finallist)	       
  
;;The subrounine to tranfer text to excel
  (2xl outlist)
)


;;; A subrountine from a Korea Friend for obtaining the intersection point of a line through 2 points with many other object
(defun vl-Get-Int-Pt (FirstPoint SecondPoint / acadDocument mSpace SSetName
				 SSets SSet reapp ex obj Baseline
		     )
  (vl-load-com)
  (setq acadDocument (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq mSpace (vla-get-ModelSpace acadDocument))
  (setq SSetName "MySSet")
  (setq SSets (vla-get-SelectionSets acadDocument))
  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-add (list SSets
							       SSetName
							 )
			    )
      )
    (vla-clear (vla-Item SSets SSetName))
  )
  (setq SSet (vla-Item SSets SSetName))
  (setq Baseline (vla-Addline mspace (vlax-3d-point FirstPoint)
			      (vlax-3d-point SecondPoint)
		 )
  )
  (vla-SelectByPolygon SSet acSelectionSetFence
		       (kht:list->safearray (append
					      FirstPoint
					      SecondPoint
					    ) 'vlax-vbdouble
		       )
  )
  (vlax-for obj sset (if (setq ex (kht-intersect
						 (vlax-vla-object->ename BaseLine)
						 (vlax-vla-object->ename obj)
				  )
			 )
		       (setq reapp (append
				     reapp
				     ex
				   )
		       )
		     )
  )
  (vla-delete BaseLine)
  (setq reapp (vl-sort reapp '(lambda (e1 e2)
				(< (car e1) (car e2))
			      )
	      )
  )
  reapp
)


;;; My modify to omitting the text objects' intersection
(defun kht-intersect (en1 en2 / a b x ex ex-app c d e)
  (vl-load-com)
  (setq c (cdr (assoc 0 (entget en1)))
	d (cdr (assoc 0 (entget en2)))
  )
  (if (or
	(= c "TEXT")
	(= d "TEXT")
      )
    (setq e -1)
  )
  (setq En1 (vlax-ename->vla-object En1))
  (setq En2 (vlax-ename->vla-object En2))
  (setq a (vla-intersectwith en1 en2 acExtendNone))
  (setq a (vlax-variant-value a))
  (setq b (vlax-safearray-get-u-bound a 1))
  (if (= e -1)
    (setq b e)
  )
  (if (/= b -1)
    (progn
      (setq a (vlax-safearray->list a))
      (repeat (/ (length a) 3)
	(setq ex-app (append
		       ex-app
		       (list (list (car a) (cadr a) (caddr a)))
		     )
	)
	(setq a (cdr (cdr (cdr a))))
      )
      ex-app
    )
    nil
  )
)

(defun kht:list->safearray (lst datatype)
  (vlax-safearray-fill (vlax-make-safearray (eval datatype) (cons 0
								  (1-
								      (length lst)
								  )
							    )
		       ) lst
  )
)
;;; End of the Korea Friend's Subrountine


(defun TerminaExcel ()
  (vlax-release-object *cells*)
  (vlax-release-object *item*)
  (vlax-release-object *workbooks*)
  (vlax-release-object *Excel*)
)

(defun IniciaExcel (/ m)
  (vl-load-com)
  (setq m (vlax-get-or-create-object "excel.application"))
  (if (= (vla-get-visible m) :Vlax-false)
    (vla-put-visible (vlax-get-or-create-object "excel.application") T)
  )

  (setq *Excel* (vlax-get-or-create-object "excel.application"))
  (if (= (vlax-get-property *Excel* "activeworkbook") nil)
    (progn
      (setq *workbooks* (vlax-get-property *Excel* "workbooks"))
      (vlax-invoke-method *workbooks* "add")
      (setq deltaRow nil)
    )
  )

  (setq *workbooks* (vlax-get-property *Excel* "activeworkbook")
	*item* (vlax-get-property *workbooks* "activesheet")
	*cells* (vlax-get-property *item* "cells")
  )
  (if (= (vlax-get-object "Excel.Application") nil)
    (progn
      (vla-put-visible *Excel* T)
    )
  )


)



;; My subrounine to transfer the Table to excel
(defun 2xl (outlist / temp val cll rll cel ccel ccell curid curval curcell)
(IniciaExcel)
(setq list1 (conexcelcolumn))
 (setq curRow 1)
 (if (= deltaRow nil) (setq deltaRow 0))
 (repeat (length outList)
	    (setq temp 1)
	    (repeat (length (nth 0 outlist))
	     (setq val (nth (1- temp) (nth (- curRow 1) outList)))
	     (setq cll (nth temp list1))
	     (setq rll (itoa (+ curRow deltaRow)))
                (setq cel (strcat cll rll))
                (setq curId (strcat (nth temp list1) (itoa (+ curRow deltaRow)))
		    curCell (vlax-variant-value (vlax-invoke-method *item* "Evaluate"
								    curId
						)
			    )
		    curVal (nth (1- temp) (nth (- curRow 1) outList))
	      )
	      
	      (vlax-put-property curCell "Formula" curVal)
	      (vlax-release-object curCell)
	      (setq temp (1+ temp))
	    )
	    (setq curRow (1+ curRow))
	  )
(setq deltaRow  (+ deltaRow (- curRow 0)))
(TerminaExcel)
(princ)
)


;;;Subrouine to produce a list corresponding to the Excel's Column, For Example:A,B,...Z,AA,AB,....
(defun conexcelcolumn (/ a b list1)
  (setq a 65)
  (setq list1 nil)
  (repeat 26
    (setq list1 (append
		  list1
		  (list (chr a))
		)
    )
    (setq a (1+ a))
  )
  (setq a 65)
  (repeat 26
    (setq b 65)
    (repeat 26
      (setq list1 (append
		    list1
		    (list (strcat (chr a) (chr b)))
		  )
      )
      (setq b (1+ b))
    )
    (setq a (1+ a))
  )

  list1
)

(prompt "\nCopyright (c) 2006 qjchen\n")
(prompt "Enter b2e to start.")
(princ)

angel-fear · 04.10.2011, 19:06

Цитата:

Сообщение от Avodo

Так Вы не очень в тему пишите. Здесь обсуждалась проблема перевода таблицы именно из примитивов. Далее после удачного экспорта в Excel можно уже обратно вставить таблицу в Autocad из Excel как целостный элемент "Таблица". Получите такие же ячейки, в которых можно выполнять вычисления, писать формулы и назначать какие либо данные например из атрибутов блоков через так называемые "Поля" которые могут быть вставлены в ячейку вместо текста...

Меня не интересуют изменения таблицы AutoCAD, с этим все понятно. Нужно другое:

1. Делаем dataextraction из dwg. Допустим извлекаем данные из блоков, в частности - атрибуты.
2. Результаты вываливаем в xls.
3. Меняем значение некоторой ячейки в таблице Excel.
4. В чертеже, в соответствующем блоке, должен автоматически поменяться соответствующий атрибут.

SHURF · 05.10.2011, 09:31

Цитата:

Сообщение от Яков

Если есть СПДС старше трёшки, то sprectable и экспорт в excel.

Яков, попробовал как вы написали, СПДС 5, на ввод этой команды запрашивает указать точку (где её указывать внутри таблицы или снаружи не понятно), но не суть. Затем выдаётся надпись Невидимая таблица - причём эта надпись в свойствах объекта называется как spdstable. Если двойным щелчком нажать на надпись "Невидимая таблица" то открывается окно редактирования таблицы с чистыми полями и всё больше ничего не происходит.

MCAD · 05.10.2011, 09:47

Цитата:

Сообщение от SHURF

выдаётся надпись Невидимая таблица

Текущий масштаб какой?
Собственно смотри в почте.

SHURF · 05.10.2011, 10:31

Яков СПАСИБО!!!!!!! ВСЁ ПОЛУЧИЛОСЬ. сделал текущий масштаб аннотаций 1:1 и заработало.

Кулик Алексей aka вопрос всё ещё актуален. Хотелось бы с помощью Лиспа выполнить подобную операцию. Если у вас будет время в продолжение поста 27, буду признателен...

VVA

Цитата:

Как вариант попробовать еще это Transfer Acad Table (made by lines and text) to Excel

по ссылке нужен пароль и много ещё чего просто так не скачать. Как быть?

Кулик Алексей aka kpblc · 05.10.2011, 10:50

Цитата:

Сообщение от SHURF

по ссылке нужен пароль

Там нужна регистрация.

MCAD · 05.10.2011, 11:58

Цитата:

Сообщение от angel-fear

Можно несколько противоположный вопрос?
К примеру, извлеченные атрибуты блоков менять таким образом...

Можно использовать нанокад или СПДС.

VVA · 05.10.2011, 12:01

angel-fear, Попробуй пункт б) из #27 и почитай 1-ю статю Solo Autocad Дмитрия Тищенко
А лучше все
>SHURF Добавил код к #30

angel-fear · 05.10.2011, 14:19

VVA, код из #30 выпадает с ошибкой:

The left Up corner point:
The Right Bottom corner point:
Команда:
Команда: ; ошибка: неверная строка режима ssget

Правда тестил на 2003 и 2010 офисе.

VVA · 05.10.2011, 16:46

angel-fear, Исправил #30

angel-fear · 06.10.2011, 09:21

Откопал самую кривую табличку.
Исходник и результат в архиве... так и должно быть? )))

SHURF · 06.10.2011, 09:29

Цитата:

Сообщение от VVA

>SHURF Добавил код к #30

VVA блеск, работает!!!

Только вот почему то одну из ячеек в моём случае ту в которой были написаны веса некоторые цифры превращены в месяцы и даты...

angel-fear · 06.10.2011, 09:42

Это уже настройки excel. А так, да. Все работает. Главное довзорвать текст до однострочного

VVA · 06.10.2011, 10:17

Цитата:

Сообщение от angel-fear

Это уже настройки excel

По моему эти
PS. >SHURF Судя по картинкам у тебя 2003 офис. Ищи где-то в Сервис->Настройки

SHURF · 06.10.2011, 10:58

angel-fear спасибо. VVA - ты супер!!! за lisp

angel-fear · 06.10.2011, 14:25

Какие-то проблемы при работе с одно-двух столбцовыми таблицами. Не проверяли?

opoffis · 18.01.2012, 06:36

Кто нибудь может нормально объяснить как перенести начерченную таблицу (Спецификацию !!!) из AUTOCAD в EXCEL ?

Эту таблицу

в эту форму EXCEL

, но не обязательно в готовую форму, лишь бы в итоге получилась Нормальная Спецификация.
КАК !?

Avodo · 18.01.2012, 12:27

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

gesper · 18.01.2012, 12:29

Цитата:

Сообщение от opoffis

КАК !?

Если один раз только такое надо, то самый быстрый вариант и удобный - руками прокопировать строки.
Если часто такое надо будет, то можно на VBA в Excel Сделать скрипт, чтобы по команде он просил выбрать в AutoCAD таблицу и загружал данные из нее в свои листы. Но это не будет работать в AutoCAD LT.

Про встроенные функции экспорта не знаю.

opoffis · 18.01.2012, 13:12

Цитата:

Сообщение от gesper

Если часто такое надо будет, то можно на VBA в Excel Сделать скрипт, чтобы по команде он просил выбрать в AutoCAD таблицу и загружал данные из нее в свои листы. Но это не будет работать в AutoCAD LT.

Да ООЧЕНЬ ЧАСТО !
Я скрипты писать не умею !
У меня Лицензионная версия хз какая но точно не ограниченная !

gesper · 18.01.2012, 15:58

Закажи тому, кто умеет.

Avodo · 18.01.2012, 16:21

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

opoffis · 19.01.2012, 08:51

Вот файл с таблицей (+ в старой версии) и файл заготовки Excel . Нужно перенести в эту заготовку или напрямую в Excel без заготовки.

Avodo · 19.01.2012, 09:41

и что дальше ??? вы понимаете что вам пишут? таблица из ПРИМИТИВОВ!!! только линии и только однострочный текст! И в одной ячейке только один объект! никаких БЛОКОВ как в вашем файле в таблице быть не должно! Взрывайте, упрощайте до примитивов и используйте лисп из темы - ВСЕ РАБОТАЕТ!

Кулик Алексей aka kpblc · 19.01.2012, 10:22

Цитата:

Сообщение от opoffis

как перенести начерченную таблицу (Спецификацию !!!) из AUTOCAD в EXCEL ?

Ищи описание http://dwg.ru/dnl/6638

E-degtyarev · 11.12.2012, 09:59

В Книге Полещука "AutoCad2004 разработка приложений и адаптация" на странице 279 приведен пример записи в ячейку Excel значения:

Код:

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

(vlax-put-property g_cr "value2" -17.873)

При этом значение -17.873 вставляется как число.
А можно ли вставить это значение как текст, указав формат ячейки Excel функцией Lisp-а?

PS: Не туда вкарячил. Надо было в программирование.Здесь никто не ответит.

E-degtyarev · 12.12.2012, 11:10

Вот сам нашел:
(vlax-put-property g_cr "NumberFormat" "@")
Все очень просто: В Excel включаешь запись макроса, выполняешь действие, в записанном макросе смотришь методы, свойства...
Всем спасибо!

posetitel · 22.10.2017, 16:50

после выполнения лиспа PL_export-to-excel из архива http://dwg.ru/dnl/6638 открывается пустая таблица эксель, а данные не конвертируются.
в чем может быть причина? ошибок в командной строке не выдает, для чего второй файл pl_export-to-excel.VLX в архиве с лиспом - не понимаю.

kacugu · 22.10.2017, 18:55

posetitel, без файла вам точно никто не скажет.
Offtop: навскидку: лисп PL_export-to-excel не работает с многострочным текстом. Если данные в чертеже в виде многострочного текста, то нужно преобразовать его в однострочный

posetitel · 22.10.2017, 21:20

Цитата:

Сообщение от kacugu

Offtop: навскидку: лисп PL_export-to-excel не работает с многострочным текстом. Если данные в чертеже в виде многострочного текста, то нужно преобразовать его в однострочный

Именно из-за этого. Даже предположить не мог, спасибо за подсказку.
Теперь проблема как преобразовать мультитекст в текст (из текста в мультитекст знаю, и на форуме подстказки есть)

kacugu · 22.10.2017, 21:31

Как вариант преобразования: можно просто взорвать мтекст.
Попробуйте поправленный лисп

posetitel · 23.10.2017, 10:00

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

bm13 · 16.09.2020, 15:18

Господа помогите решить проблему. Внезапно перестали экспортироваться таблицы из автокад в эксель. Тоесть из всплывающего окна и командой ЭКСПОРТТАБЛ ничего не происходит, даже ошибку никакую не выдает. В любых файлах. Хотя раньше все было нормально.

trir · 16.09.2020, 15:38

Внезапно?

ssn · 28.04.2025, 09:58

Цитата:

Сообщение от kacugu

Как вариант преобразования: можно просто взорвать мтекст.
Попробуйте поправленный лисп

подскажите пожалуйста, что надо поменять в этом лиспе, что бы при вставке из автокада в эксель число типа 4.1 не переводилось экселем в дату?

05.07.2010, 15:02		#1
Из AutoCAD в Excel Владимир74 Регистрация: 05.07.2010 Сообщений: 8 Как выгрузить конкретный объект из AutoCAD в Excel?
Просмотров: 60762

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Таблицы из Excel в AutoCAD вставляются неполностью	Nikolay_N	AutoCAD	23	07.09.2019 21:12
Таблица из Excel в AutoCAD	Elbrus	AutoCAD	56	11.06.2012 11:41
Подключение Excel к AutoCad 2008 c помощью базы ODBC	Eddicordo	AutoCAD	4	03.02.2011 17:01
В русской версии AutoCAD 2010 SP1 32-bit файл Acad.PGP содержит ошибки.	hwd	Баги и пожелания в Autodesk	21	21.04.2010 20:27
Информация по идентификационным кодам программ в сетевых лицензиях Autodesk	KSI	AutoCAD	1	14.09.2009 15:59

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск