| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Nachbar Zelle aus Tabelle (1205 mal gelesen)
|
Ex-Mitglied | |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 28. Jun. 2005 16:41 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
aus welcher Zeile der Excel-Tabelle die du sicher als OLE-Objekt eingebunden haste- denn ? P.S: an den aktuellen Zeichungsnamen kommst du mit (getvar "dwgname") einfacher ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 28. Jun. 2005 16:47 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|
Ex-Mitglied | |
Ex-Mitglied | |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 28. Jun. 2005 17:02 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
Nochmals ich, irgendwie stell ich mir deine Aufgabenstellung reichlich schwierig vor; schliesslich willst du was aus Excel in AC einlesen, AC muss aber zeitgleich mitbekommen, dass es sich hierbei um eine Liste handelt, welche es mit dem aktuellen Dateinamen vergleicht und im Fall des Falles aus der Liste den zugehörigen Wert ausliest und wiedergibt... siehe hierzu auch: http://autolisp.mapcar.net/where.html (das letzte Beispiel von Axel liese sich schon auf deinen Fall umtexten, wäre da nicht noch das Problem des AC-bescheid gebens... (hier kommt Liste mit Vergleichswerten und zugehörigen Ergebniswerten...)) ------------------ Grüsse
Thomas EDIT: Dies ist die Aussage eines Nicht-Lisplers !!! [Diese Nachricht wurde von tunnelbauer am 29. Jun. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 28. Jun. 2005 17:19 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
ist schon klar (hab ich auch geschrieben) - so "fest" ist deine Tabelle aber nicht (wenn sie zuvor einmal aus Excel kommt); anders würde es aussehen ( glaube ich) wenn die Liste in einer TXT-Datei steht, die speziell formatiert ist... ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 29. Jun. 2005 11:45 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|
Ex-Mitglied | |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 29. Jun. 2005 12:01 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
ich behaupte: das (natürlich etwas umgeschrieben) und die Tipps von weiter oben sollten so ungefähr das ergeben was du willst... Viel Spass... (ich als Nicht-Lispler trau mich das sagen da ich keinen Plan habe auf die Schnelle und mir zur Zeit die Zeit fehlt um mich da tiefer hineinzuknien..) ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 29. Jun. 2005 12:24 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
@rabbit das ist total easy ! das einzige was man wissen müsste ist wie man den Text in der Zeichnung aufspürt... schick mir eine Beispieltabelle (poste sie hier als anhang / dwg ) . so sehe ich den (hoffentlich immer gleichen) Layer auf dem die Texte liegen, der Rest ist simpel - hoffe ich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 29. Jun. 2005 13:12 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
wie gesagt, poste mal eine DWG mit ordentlichem Namen und einer solchen Tabelle (Dateiname sollte dort schon vorhanden sein ) und dann schau ich es mir an.. PS.: Schade das sie nicht immer auf einem gleichnameigen Layer liegt... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 29. Jun. 2005 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
Hi, mal auf die Schnelle, ist weder Lisp noch besonders hübsch. Nur'n kleiner Ansatz, wobei so ganz ohne Excel, nur als Liste bzw. Textfile könnt ich mir das auch vorstellen;-) Gruss Nancy
Code:
Sub x() Dim xlapp As Object, wb As Object Dim arr, i&, p#(2) Set xlapp = CreateObject("Excel.application") Set wb = xlapp.workbooks.Open("D:\Mappe1.xls") arr = wb.sheets("Tabelle1").range("A1:B1000") wb.Close 0 Set xlapp = Nothing For i = LBound(arr, 1) To UBound(arr, 1) If arr(i, 1) = ActiveDocument.Name Then ThisDrawing.ModelSpace.AddText arr(i, 2), p, 0.25 Exit For End If Next End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 29. Jun. 2005 14:48 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|
Ex-Mitglied | |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 30. Jun. 2005 20:58 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
Hallo Rabbit 007, ein Hinweis: Dies ist ein Forum, in welchem Probleme beim Programmieren mit AutoLISP diskutiert werden. Es ist kein 'Macht mir mal' oder 'Ich-suche-ein-Tool'-Forum. Hast du begonnen zu programmieren, dann werden dir sicher die dabei auftretenden Fragen beantwortet werden. Anbei das geänderte Tool. Das dies dranhängt, widerspricht sicher dem obigen Hinweis. Mich hat jedoch selbst die Lösung interessiert, weshalb ich das mal 'dazwischen geschoben' habe. Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 30. Jun. 2005 22:25 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|