Abmessungen, Längen in Excel exportieren (Autodesk/Rund um AutoCAD)

Hallo!

Gibt es eine Möglichtkeit Abmessungen in eine Excel- Datei zu konvertieren. Ich müßte da eine Menge an Leitungslängen herausmessen und mit diesen Längen im Excel weiterarbeiten.

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Auch Hallo !
Grundsätzlich geht das schon, aber um Daten nach Excel zu schicken muß man erst mal die Daten haben.

Wie kommst du denn an die Längen ?
Was sind das denn für Objekte mit denen die Leitungen dargestellt werden ?
Kann man die Messungen automatisieren ?

Gib uns Info und dann - schaun wir mal

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Guten Morgen Andreas!

Also grundsätzlich sind die Leitungen als Linie oder Polylinie dargestellt. Ich möchte nur die einzelnen Linien, bzw. Polylinien markieren, mir die Längen anzeigen lassen der Markierten und diese dann in Excel exportieren. Perfekt wäre, wenn man die X-, Y- Koordinaten auch noch mit exportieren könnte.
Es wäre mir eine große Hilfe und eine große Zeitersparnis, wenn das funktioniert.

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo loschy,
ich gehe mal davon aus das du mit einem "puren" ACAD zeichnest.
Was für deinen Wunsch keine große Hilfe ist.
Mir scheint, du hast Kabelverlegepläne zu bearbeiten, inkl. Massenermittlung.
Ich mußte so etwas früher mal mit einem einfachen ACAD bewerkstelligen.
Das Ganze war dann auch geschoßübergreifend. Mit den recht bescheidenen Mitteln habe ich ausschließlich mit 3D-Polylinien gearbeitet die in Bezug auf die Koordinaten der Streckenpunkte bessere Informationen liefern.
Das ist die gute Nachricht.
Eine "automatische" Auswertung gibt es bei den o.g. Voraussetzungen nicht. Der Begriff Export hat dabei eine recht komplexe Bedeutung

Das bedeutete damals die einzelnen Strecken "listen" , nach Excel kopieren, umformatieren. Das Ergebnis war eine sehr hübsche Datenbank der gesamten Verkabelung. Allerdings war das auch richtig Arbeit.
Das ist die weniger gute Nachricht
Es gibt natürlich Programme die deine Wünsche sogar eher übererfüllen können. Das wäre aber dann warscheinlich in einem anderen Fachforum zuhause.
Gruß

------------------
... günter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Günter,

vorerst danke für deine AW. Du hast den Nagel auf den Kopf getroffen. Mit der Liste hab ich natürlich auch schon gearbeitet, nur kann das sehr zeitaufwändig und mühselig werden. kennst du vl. zufällig eine programm hierfür?

Gruß

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo loschy,
kennst du dich ein wenig mit Lisp aus ?
Dann hätt ich da was für dich, muß aber noch zusammengebaut werden.

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Loschy,

hatte ein ähnliches Problem: http://ww3.cad.de/foren/ubb/Forum285/HTML/000188.shtml
Vielleicht hilft es dir weiter

Gruß
Geometer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Andreas,

Leider kenn ich mich nicht wirklich mit LISP aus. Aber ein Versuch wäre es ja wert. Was muß ich tun?

Gruß,

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

So - ferdisch
Geht sicher auch eleganter, aber erst mal muss es funktionieren.

WICHTIG !!!!!
Excel muß geöffnet sein

viel Spass damit
Andreas

(defun c:len2excel ()
;;;Erst mal einen Auswahlsatz erstellen in dem Linien und Polylinien drinn sind:
(setq
satz
(ssget
'((-4 . "<OR") (0 . "LINE") (0 . "LWPOLYLINE") (-4 . "OR>"))
)
)
;;;Dann den Auswahlsatz durchlaufen und eine Liste erzeugen den Startpunkt und die Länge des Elements enthält
;;;Diese Liste, die für jedes Element erzeugt wird, packen wir gleich in eine Liste die das für alle Elemente sammelt
(setq data_list (list))
(setq n (1- (sslength satz)))
(repeat (sslength satz)
(setq ent_data (entget (setq ent_name (ssname satz n))))
(setq data_list
(cons
(list (cdr (assoc 10 ent_data))
(VLA-GET-LENGTH (VLAX-ENAME->VLA-OBJECT ent_name))
)
data_list
)
)
(setq n (1- n))
)
;;;jezt das Ganze in Richtung Excel - Excel muß geöffnet sein
;;; erst mal einrichten
(if (setq excel (vlax-get-object "excel.application"))
(progn
(setq ExcelWorkbook (if excel
(vlax-get-property
excel
"ActiveWorkbook"
)
)
ExcelSheet (if ExcelWorkbook
(vlax-get-property
ExcelWorkbook
"ACTIVESHEET"
)
)
ExcelCells (if ExcelSheet
(vlax-get-property
ExcelSheet
"CELLS"
)
)
)
)
(alert "Excel nicht gefunden")
)
;;; und dann rüberschieben
(setq zeile 1)
(foreach data data_list
(setq spalte 1)
;;;aus der Koordinatenliste einen Text machen
(setq txt "")
(mapcar '(lambda (dummy) (setq txt (strcat txt " " dummy)))
(mapcar 'rtos (nth 0 data))
)
(setq txt (substr txt 2))
(vlax-put-property
ExcelCells
"ITEM"
zeile
spalte
(strcat "'" txt)
)
(setq spalte 2)
(vlax-put-property
ExcelCells
"ITEM"
zeile
spalte
(vl-string-translate "." "," (rtos (nth 1 data)))
)
(setq zeile (1+ zeile))
)
;;; ordentlich abmelden
(vlax-release-object excel)
(vlax-release-object ExcelWorkbook)
(vlax-release-object ExcelSheet)
(vlax-release-object ExcelCells)
;;; fertig
(princ)
)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Andreas,

vorerst besten Dank für die große Mühe die du dir angetan hast. Wenn du mir jetzt noch kurz beschreibst wie ich das jetzt in ACAD anwende, oder hineinschreibe, dann kann ich arbeiten auch damit.

Vielen Danke noch mal für die Unterstützung.

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Du kopierst dir alles von:

(defun c:len2excel ()

bis zur letzten Klammer in eine Textdatei und speicherst die unter

len2excel.lsp z.B. im Suport-Verzeichniss von acad.

Die kannst du dann mit dem Befehl _appload bzw. Menü Extras/Anwendungen laden und mit "len2excel" als Befehl verwenden.

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo Andreas,

so das hab ich jetzt alles so gemacht, nur bekomme ich jedesmal folgende fehlermeldung:
Fehler: no function definition: VLAX-ENAME->VLA-OBJECT

was bedeutet das?

Gruß,

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Oh - Mist
hab ich ganz vergessen.
Schreib nach der ersten Zeile (die mit dem defun ...)

(vl-load-com)

ins Programm (Das muß ja noch geladen werden)

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ok, so hab das jetzt alles so erledigt, aber irgendwie funktioniert das nicht.

Ich hab jetzt eine neue Zeichnung begonnen, dort ein paar linien und polylinien gezeichnet, danach die len2excel.lsp geladen, danach den Befehl mit len2excel aufgerufen, dann fragt er micht Objekte wählen. Ja und nach der Auswahl der Objekte passiert nicht wirklich viel.

Mach ich da immer noch was falsch?!?

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hast du BEVOR du das Programm ausführst Excel gestartet ?
Wenn ja, dann sollte NACH der Programmausführung was im Excel drin stehen.
Spalte A: Koordinaten Startpunkt
Spalte B: Länge

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

WAU Kommando retour!!!

JETZT FUNKTIONIERT ES GENAU SO WIE ICH ES WOLLTE.

Ich weiß nicht wie ich dir danken soll. Ich möchte dir aber nur sagen, du hast mir unheimlich weiter geholfen. Das ist echt goldeswert.

NOCHMALS RECHT, RECHT HERZLICHEN DANK!

SCHÖNE GRÜ?E UND JETZT SCHON FROHE WEIHNACHTEN...

GRUSS; Jürgen

------------------
LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

freut mich daß du dich freust.
Jeden Tag einen gute Tat (darf ich jezt wieder böse sein ?

)

Und wenn du dich mit Lisp beschäftigen willst, empfehle ich dir http://www.autolisp-tutorial.mapcar.net/

Gruß
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

auch von mir dickes Lob! (und natürlich 10U's!!!)

Sowas braucht man immer wieder mal....!

Danke,
mARTin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Super, das Programm

nur eine kurze Frage: wie kann ich verhindern, das eine bereits geöffnete excel-datei (mit anderen daten) überschrieben wird, ist mir nämlich gerade passiert.
ich kann ja ohne speichern rausgehen, aber vielleicht gibts ja noch ne möglichkeit in lisp. da habe ich leider null ahnung.

danke im voraus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

mit rückgängig kannst Du in excel alle Befehle seit dem letzten Speichern rückgngig machen

joey

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

@joey nicht, wenn Du z.B. ein VBA-Makro hast laufen lassen, danach gibt es kein rückgängig mehr in Excel, nur schließen ohne speichern. Nach lisp: kA

, denke aber auch nicht.

man müßte wohl im Bereich

Code:
;;;jezt das Ganze in Richtung Excel - Excel muß geöffnet sein
;;; erst mal einrichten
(if (setq excel (vlax-get-object "excel.application"))
(progn
(setq ExcelWorkbook (if excel
(vlax-get-property
excel
"ActiveWorkbook"
)
)
ExcelSheet (if ExcelWorkbook
(vlax-get-property
ExcelWorkbook
"ACTIVESHEET"
)
)

was tun, also vom Activesheet bzw. -workbook weg, aber wie genau machen mal andere ;-)
------------------
Gruß,
runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

[Diese Nachricht wurde von runkelruebe am 15. Mai. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Zitat:
Original erstellt von runkelruebe:
@joey nicht, wenn Du z.B. ein VBA-Makro hast laufen lassen, danach gibt es kein [i]rückgängig mehr in Excel, nur schließen ohne speichern. Nach lisp: kA , denke aber auch nicht.
;-)[/i]

oh je, zu weit aus dem fenster gelehnt, mache zu wenig mit vba

aber noch ein tip für die zukunft, in acad 2008 ist eine solche funktion (ohne vba zu schnitzen) direkt integriert.

Joey

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hi Leute,

muss den alten Beitrag nochmal rauskramen, habe das gleiche Problem nur handelt es sich bei mir 3dpolylinien und die bekomme ich leider mir diesem Programm net in Excel.... kann mir bitte jemand sagen, wie ich die 3dpolys in den Auswahlsatz bekomme meine LISP kentnisse sind leider NOCH sehr sehr beschränkt!??

(defun c:len2excel ()
(vl-load-com)
;;;Erst mal einen Auswahlsatz erstellen in dem Linien und Polylinien drinn sind:
(setq
satz
(ssget
'((-4 . "<OR") (0 . "LINE") (0 . "LWPOLYLINE") (-4 . "OR>"))
)
)
;;;Dann den Auswahlsatz durchlaufen und eine Liste erzeugen den Startpunkt und die Länge des Elements enthält
;;;Diese Liste, die für jedes Element erzeugt wird, packen wir gleich in eine Liste die das für alle Elemente sammelt
(setq data_list (list))
(setq n (1- (sslength satz)))
(repeat (sslength satz)
(setq ent_data (entget (setq ent_name (ssname satz n))))
(setq data_list
(cons
(list (cdr (assoc 10 ent_data))
(VLA-GET-LENGTH (VLAX-ENAME->VLA-OBJECT ent_name))
)
data_list
)
)
(setq n (1- n))
)
;;;jezt das Ganze in Richtung Excel - Excel muß geöffnet sein
;;; erst mal einrichten
(if (setq excel (vlax-get-object "excel.application"))
(progn
(setq ExcelWorkbook (if excel
(vlax-get-property
excel
"ActiveWorkbook"
)
)
ExcelSheet (if ExcelWorkbook
(vlax-get-property
ExcelWorkbook
"ACTIVESHEET"
)
)
ExcelCells (if ExcelSheet
(vlax-get-property
ExcelSheet
"CELLS"
)
)
)
)
(alert "Excel nicht gefunden")
)
;;; und dann rüberschieben
(setq zeile 1)
(foreach data data_list
(setq spalte 1)
;;;aus der Koordinatenliste einen Text machen
(setq txt "")
(mapcar '(lambda (dummy) (setq txt (strcat txt " " dummy)))
(mapcar 'rtos (nth 0 data))
)
(setq txt (substr txt 2))
(vlax-put-property
ExcelCells
"ITEM"
zeile
spalte
(strcat "'" txt)
)
(setq spalte 2)
(vlax-put-property
ExcelCells
"ITEM"
zeile
spalte
(vl-string-translate "." "," (rtos (nth 1 data)))
)
(setq zeile (1+ zeile))
)
;;; ordentlich abmelden
(vlax-release-object excel)
(vlax-release-object ExcelWorkbook)
(vlax-release-object ExcelSheet)
(vlax-release-object ExcelCells)
;;; fertig
(princ)
)

Hoffende Grüße
Manu

------------------
Immer auf der Suche nach Wissen....wenn ichs doch nur finden würde....???kann mir jemand helfen???

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

LÖSUNG gefunden!!!!!!

musste einfach nur LWPOLYLINE gegen *POLYLINE ersetzten.... manchmal sieht man den Wald vor lauter Bäumen nicht...!!

------------------
Immer auf der Suche nach Wissen....wenn ichs doch nur finden würde....???kann mir jemand helfen???

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo zusammen,
auch wenn der Beitrag schon sehr alt ist, finde ich keinen anderen Beitrag auf die Stelle wo mir meine Frage beantwortet wurde.

Erstmal, an sich Funktioniert die lsp-Datei von Andreas Kraus, ich habe nur ein kleines Problem.

In der Excel Tabelle werden manche Längen in Metern geschrieben, andere in Millimetern, woran liegt das?
Kann man alle in Metern ausgeben lassen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

das liegt wohl an deine Einstellungen in der DWG ... Einheit

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen
Plant ist nur die Spitze des Berges der da treibt ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Danke für die schnelle Antwort, es lag an den Excel-Einstelungen.

Dezimaltrennzeichen war der Punkt und die Tausendertrennzeichen war das Komma.

Als ich es wieder auf den Deutschenstandard umgestellt habe, ging es wieder.

------------------
Grüße,

Oli

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hallo Andreas Kraus,
mir hat dein Beitrag mega weitergeholfen.

Da ich absolut keine Kenntnisse im LSP habe, bin ich auf euer Wissen und Hilfe angewiesen.

Gibt es die Möglichkeit die LSp so zu erweitern, dass auch die Winkel der Linie mit angegeben/ausgegeben werden können?

LG Stephie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hallo stephie-21-12-84,

unabhängig von der Code-Änderung:

Dürfen wir davon ausgehen das du entgegen der bisherigen Diskussionsteilnehmer zum damaligen Zeitpunkt kein AutoCAD2006 oder älter benutzt?
Leider hast du keine Angaben über die Hard&Software gemacht in der System-Info, auch nicht im Text deines Beitrages, sonst wüssten wir dies bereits.

Aktuellere Versionen haben den Befehl DATENEXTRAKT und der liefert Polylinien wie auch Linien-Längen
und bei Linien auch die Winkelangabe.
Und wenn es nichts für deinen Anwendungsfall ist, vllt freut sich ein anderer Mitleser darüber.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP