| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Polylinie aus Excel in ACAD (8503 mal gelesen)
|
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 07. Nov. 2001 10:55 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich habe in Excel die Daten für ein Weg-Zeit-Diagramm berechnet und als Ergebnis zwei Spalten mit X und Y Koordinaten damit möchte ich mir in ACAD eine Polylinie zeichnen lassen. Beispiel: _pline 0 | 0 5 | 5 5 | 10 mit "|" meine ich dass die Zahlen jeweis in einer Zelle sind So hat es funktioniert: Excel-Blatt als .csv speichern als .txt umbenennen und mit Word öffnen ; durch , ersetzen als .scr umbenennen Script in ACAD starten. Dies ist mir zu aufwendig, ich habe mal probiert den Bereich in Excel zu markieren und kopieren und in der ACAD-Befehlszeile mit Strg + V einzufügen. Acad zeichnet dann Linien aber diese haben nichts mit den Koordinaten zu tun die in Excel stehen. Wie muß ich die Excel-Tabelle verändern? Danke und Gruß Wolfgang [Diese Nachricht wurde von Wolli am 07. November 2001 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4185 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 08. Nov. 2001 08:05 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Hallo Wolfgang, folgender Code macht das: Bedingung ist, dass das in Excel standardmäßige Zahlenformat beibehalten wird. Komma als Defzimaltrennzeichen OHNE Tausender-Trennzeichen. Excel-Datei als txt-Datei mit TAB's als Trennung speichern. Bei Fragen ... Grüße Holger (defun c:xlspl ( / datei f datzeile zeile tabli x) (setq datei (getfiled "Datei wählen" "" "txt" 0)) (setq f (open datei "r")) (while (setq datzeile (read-line f)) (setq zeile (read (vl-string-translate "," "." (vl-string-translate " " (chr 209) (vl-string-translate "." (chr 182) (strcat "(" datzeile ")") ) ) ) ) tabli (if tabli (append tabli (list (cons 10 zeile))) (list (cons 10 zeile)) ) ) ) (close f) (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(8 . "0") '(100 . "AcDbPolyline") (cons 90 (length tabli)) '(70 . 0) '(43 . 0.0) '(38 . 0.0) '(39 . 0.0)) (apply 'append (mapcar '(lambda (x) (list x '(40 . 0.0) '(41 . 0.0) '(42 . 0.0)) ) tabli )) (list '(210 0.0 0.0 1.0)) );append ) ) [Diese Nachricht wurde von Brischke am 08. November 2001 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 08. Nov. 2001 10:32 <-- editieren / zitieren --> Unities abgeben:
Hallo Holger, danke für Deine Antwort, aber ich möchte die Koordinaten ganz ohne Lisp und VBA aus Excel als Plinie nach ACAD bringen. Nur mit kopieren und einfügen. Es scheint möglich zu sein, da ja beim Einfügen in die Befehlszeile eine Linie gezeichnet wird, nur halt falsch. Danke und Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADS Support Mitglied Dipl Ing (FH) Holztechnik
Beiträge: 8 Registriert: 21.12.2000
|
erstellt am: 16. Nov. 2001 15:55 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Hallo , eigentlich kein Problem. Wenn Du das öfters brauchst dann schreib die ein VBA Progrämmchen in EXCEL. Dieter Zitat: Original erstellt von Wolli: Hallo Zusammen,ich habe in Excel die Daten für ein Weg-Zeit-Diagramm berechnet und als Ergebnis zwei Spalten mit X und Y Koordinaten damit möchte ich mir in ACAD eine Polylinie zeichnen lassen. Beispiel: _pline 0 | 0 5 | 5 5 | 10 mit "|" meine ich dass die Zahlen jeweis in einer Zelle sind So hat es funktioniert: Excel-Blatt als .csv speichern als .txt umbenennen und mit Word öffnen ; durch , ersetzen als .scr umbenennen Script in ACAD starten. Dies ist mir zu aufwendig, ich habe mal probiert den Bereich in Excel zu markieren und kopieren und in der ACAD-Befehlszeile mit Strg + V einzufügen. Acad zeichnet dann Linien aber diese haben nichts mit den Koordinaten zu tun die in Excel stehen. Wie muß ich die Excel-Tabelle verändern? Danke und Gruß Wolfgang [Diese Nachricht wurde von Wolli am 07. November 2001 editiert.]
------------------ SD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADS Support Mitglied Dipl Ing (FH) Holztechnik
Beiträge: 8 Registriert: 21.12.2000
|
erstellt am: 16. Nov. 2001 15:55 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Hallo , eigentlich kein Problem. Wenn Du das öfters brauchst dann schreib die ein VBA Progrämmchen in EXCEL. Dieter Zitat: Original erstellt von Wolli: Hallo Zusammen,ich habe in Excel die Daten für ein Weg-Zeit-Diagramm berechnet und als Ergebnis zwei Spalten mit X und Y Koordinaten damit möchte ich mir in ACAD eine Polylinie zeichnen lassen. Beispiel: _pline 0 | 0 5 | 5 5 | 10 mit "|" meine ich dass die Zahlen jeweis in einer Zelle sind So hat es funktioniert: Excel-Blatt als .csv speichern als .txt umbenennen und mit Word öffnen ; durch , ersetzen als .scr umbenennen Script in ACAD starten. Dies ist mir zu aufwendig, ich habe mal probiert den Bereich in Excel zu markieren und kopieren und in der ACAD-Befehlszeile mit Strg + V einzufügen. Acad zeichnet dann Linien aber diese haben nichts mit den Koordinaten zu tun die in Excel stehen. Wie muß ich die Excel-Tabelle verändern? Danke und Gruß Wolfgang [Diese Nachricht wurde von Wolli am 07. November 2001 editiert.]
------------------ SD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mgru Mitglied
Beiträge: 3 Registriert: 15.11.2003
|
erstellt am: 18. Nov. 2003 14:57 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Einfachst: Daten stehen ab 2.Zeile in Excel In der ersten zeile steht der Befehl _pline im Feld C1 mit =verknüpfen(A2,",",B2) der wertepaare im Feld C2 den Befehl auf alle Wertepaare anwenden (durch markieren und auf der rechten unteren Ecke herunterziehen) Dann den Bereich von C1 bis Ci ins Kopierfach und unter Autocad in die Befehlszeile einfügen fertig d.h. das Dezimalzeichen muss global auf PUNKT eingestellt sein (unter Windows - Regionale Einstellung) sonst gehts nicht. ------------------ mgru Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |