Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  altes .lsp aus R12

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  altes .lsp aus R12 (474 mal gelesen)
AsSchu
Ehrenmitglied
Konstrukteur


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

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2007,cadMANdu
Win 2000 XP

erstellt am: 31. Mrz. 2004 12:04    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


ltcol.lsp.txt

 
Hallo Lispler,

habe da ein altes Lisp aus R12.
Dort konnte man Farbe usw. abfragen.
Das war ganz nützlich bei sehr vielen Layern; und wenn es ein Fremdplan war.
Könnte mir jemand von Euch helfen das zum Laufen zu bringen?
Ich habe da schon dran rumprobiert, aber meine bescheidenen Kenntnisse über lisp reichen nicht aus.
Wäre wirklich nett von Euch.

Ciao

[Diese Nachricht wurde von AsSchu am 31. Mrz. 2004 editiert.]

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

marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


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

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2002
Autocad 2002LT + Extender
ADT 3.3
ArchiCAD

erstellt am: 31. Mrz. 2004 12:30    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 AsSchu 10 Unities + Antwort hilfreich


ltcol.zip

 
bin mir bei einem befehl nicht ganz klar, was er meint...habe improvisiert...müsste halt wissen wie es "richtig" aussehen muss

------------------
...so long and thanx for all the fish!

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

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: 13508
Registriert: 30.11.2003

.

erstellt am: 31. Mrz. 2004 12:31    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 AsSchu 10 Unities + Antwort hilfreich

ich auch ...

(defun c:ltcol( / name liste typ la ltyp col ladef coldef ltdef namelist)
  (if (setq name (car (entsel)))
    (progn
      (setq liste    (entget name)
            typ      (cdr(assoc 0 liste))
            la       (cdr(assoc 8 liste ))
            ltyp     (cdr(assoc 6 liste))
            col      (cdr(assoc 62 liste))
            ladef    (tblsearch "LAYER" la)
            coldef   (cdr(assoc 62 ladef))
            ltdef    (cdr(assoc   6 ladef))           
      )
      (princ (strcat "\n\nObjekt " typ " auf Layer " la "  --> "))
      (if col
        (princ (strcat "\nFarbe:     zugewiesen =  "(itoa col)))
        (princ (strcat "\nFarbe:     VONLAYER ---> " (itoa coldef)))
      )
      (if ltyp
        (princ (strcat "\nLinientyp: zugewiesen =  " ltyp))
        (princ (strcat "\nLinientyp: VONLAYER ---> " ltdef))
      )
    )
  )
  (princ)
)


.. wohl zu lange getestet ... ?! 
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 31. Mrz. 2004 editiert.]

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

AsSchu
Ehrenmitglied
Konstrukteur


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

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2007,cadMANdu
Win 2000 XP

erstellt am: 31. Mrz. 2004 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

Vielen, vielen Dank

an marvin 101010 und Cadmium

funktioniert beides hervorragend.
Das hilft mir jetzt total gut bei meinen Plänen mit den vielen Layern und Farben.

Euch beiden 10 U's

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)2023 CAD.de | Impressum | Datenschutz