Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Nachbar Zelle aus Tabelle

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Nachbar Zelle aus Tabelle (1053 mal gelesen)
Ex-Mitglied
CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13435
Registriert: 30.11.2003

.

erstellt am: 28. Jun. 2005 16:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von tunnelbauer an!   Senden Sie eine Private Message an tunnelbauer  Schreiben Sie einen Gästebucheintrag für tunnelbauer

Beiträge: 7085
Registriert: 13.01.2004

ich hab eh keine Probleme damit...

erstellt am: 28. Jun. 2005 16:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

Nur den Dateinamen (ohne .dwg) erhälst du mit:

(substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))

------------------
Grüsse

Thomas

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

Ex-Mitglied
Ex-Mitglied
tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



Sehen Sie sich das Profil von tunnelbauer an!   Senden Sie eine Private Message an tunnelbauer  Schreiben Sie einen Gästebucheintrag für tunnelbauer

Beiträge: 7085
Registriert: 13.01.2004

ich hab eh keine Probleme damit...

erstellt am: 28. Jun. 2005 17:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von tunnelbauer an!   Senden Sie eine Private Message an tunnelbauer  Schreiben Sie einen Gästebucheintrag für tunnelbauer

Beiträge: 7085
Registriert: 13.01.2004

ich hab eh keine Probleme damit...

erstellt am: 28. Jun. 2005 17:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4136
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 29. Jun. 2005 11:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

Hallo Rabbit 007,

du kannst auch die Excel-Tabelle öffnen und musst die gar nicht in der Zeichnung einfügen. Man greift dann eben via ActiveX direkt auf das geöffnete Excel-Dokument zu.

Wie weit bist du denn mit der Programmierung? Wo hakt es denn?

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
tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



Sehen Sie sich das Profil von tunnelbauer an!   Senden Sie eine Private Message an tunnelbauer  Schreiben Sie einen Gästebucheintrag für tunnelbauer

Beiträge: 7085
Registriert: 13.01.2004

ich hab eh keine Probleme damit...

erstellt am: 29. Jun. 2005 12:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19657
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 29. Jun. 2005 12:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

@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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19657
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 29. Jun. 2005 13:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von startrek an!   Senden Sie eine Private Message an startrek  Schreiben Sie einen Gästebucheintrag für startrek

Beiträge: 1361
Registriert: 13.02.2003

.

erstellt am: 29. Jun. 2005 13:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4136
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 29. Jun. 2005 14:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich


tabwert.VLX.txt

 
Hallo Rabbit 007,

anbei ein kleines Tool, welches deine Aufgabe erfüllt.
Anhang umbenennen in tabwert.vlx

Bei Fragen ...

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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4136
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 30. Jun. 2005 20:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich


tabwert.VLX.txt

 
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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4136
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 30. Jun. 2005 22:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rabbit 007 10 Unities + Antwort hilfreich


tabwert.VLX.txt

 
Hallo Rabbit,

habe noch einmal getestet .. Schreibfehler. Sollte nun gehen.

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz