Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Layerstates

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:  Layerstates (2186 mal gelesen)
T. Bürger
Mitglied
Technischer Angestellter


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

Beiträge: 201
Registriert: 30.01.2001

AMD Athlon XP2000+
ATI Fire GL 8800
Maxtor 4R060J0(60GB)
Windows XP-Pro. SP1
Novell 4.1
1024MB Arbeitsspeicher
AutoCAD2004
Expresstools
LayerManager-Pro

erstellt am: 24. Sep. 2003 16:06    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

Hallo Ihr Wissenden,

wie bekomme ich die Namen von gespeicherten Layerstände in eine Liste.
Ich meine dabei nicht die aus dem Layermanager der bei den Expresstools dabei ist, sondern den von Autocad selber (seit V.2002, glaube ich).

Ich möchte mit dieser Liste Überprüfen ob es einen Namen schon giebt oder nicht.


Gesucht habe ich natürlich auch schon, aber nur was gefunden für den LM aus den Expresstools.

------------------
Grüße T. Bürger   

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: 24. Sep. 2003 16:33    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 T. Bürger 10 Unities + Antwort hilfreich

www.cadwiesel.de -> sonstiges -> layer -> ladoc.lsp

------------------
.......good vibrations make the world go round 

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

benwisch
Mitglied
Bautechniker, CAD-Konstrukteur


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

Beiträge: 375
Registriert: 01.02.2001

erstellt am: 24. Sep. 2003 17: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 T. Bürger 10 Unities + Antwort hilfreich

@marvin
ich glaube er meint den "status speichern" "status wiederherstellen" im layerdialog, mit denen man die jeweiligen layerzustände speichern kann...

@T. Bürger
wenn ich dich richtig verstanden habe, dann...
...kannst du das aus der ACAD Dictionary auslesen

Code:

(entget
    (vlax-vla-object->ename
    (vla-getextensiondictionary
      (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end vla-GetExtensionDictionary
    ) ;_ end vlax-vla-object->ename
  )


ich habe bei mir einfach 2 func's gebaut, die nahezu identisch sind.
=> ACAD_LAYERFILTERS
=> ACAD_LAYERSTATES

Namen der gespeicherten Layerstände

Code:

(defun bw_ACAD_Layerstates (/ NameLst chk)
(if (setq
      chk (member
  (cons 3 "ACAD_LAYERSTATES")
  (entget
    (vlax-vla-object->ename
    (vla-getextensiondictionary
      (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) ;_ end vla-get-layers
    ) ;_ end vla-GetExtensionDictionary
    ) ;_ end vlax-vla-object->ename
  ) ;_ end entget
  ) ;_ end member
    ) ;_ end setq
  (progn (foreach task (entget (cdr (assoc 360 chk)))
  (if (= (car task) 3)
  (setq NameLst (cons (cdr task) NameLst))
  ) ;_ end if
) ;_ end foreach
(reverse NameLst)
  ) ;_ end progn
) ;_ end if
) ;_ end defun


(bw_ACAD_LayerStates) => ("name1" "name2" "name3")

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

CADwiesel
Moderator
CAD4FM UG




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

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 25. Sep. 2003 08:11    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 T. Bürger 10 Unities + Antwort hilfreich

ach, und dann gibt's da noch Tables auch bei diesem CADwiesel-vogel auf der Seite, das Ding schreibt dir sogar Sachen in eine Datei, an die vielleicht noch nicht einmal gedacht hast. Natürlich nur Sachen - die Zeichnung betreffend ;-)

------------------
Gruß
CADwiesel
Besucht uns im
CHAT

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

T. Bürger
Mitglied
Technischer Angestellter


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

Beiträge: 201
Registriert: 30.01.2001

AMD Athlon XP2000+
ATI Fire GL 8800
Maxtor 4R060J0(60GB)
Windows XP-Pro. SP1
Novell 4.1
1024MB Arbeitsspeicher
AutoCAD2004
Expresstools
LayerManager-Pro

erstellt am: 25. Sep. 2003 09:32    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

Hallo Ihr,
danke erst einmal für die schnellen Antworten.

@marvin101010,
wie benwisch ja schon angemerkt hatte wollte ich nicht die Layerstände aus dem Layermanager der Expresstools sondern aus der Layersteuerung von Autocad.

@benwisch,
volle Punktzahl..., ich bin begeistert!
Es scheint wohl wirklich an der Zeit zu sein sich mit der Geschichte über vla-* und vlax-* auseinander zu setzen.

@CADwiesel,
interessantes Tool, wenn es den bei mir laufen würde (2004). Es kommt leider nur eine Fehlermeldung nach dem aufpoppen der Dosbox und dann war es das auch schon, leider.

------------------
Grüße T. Bürger   

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

CADwiesel
Moderator
CAD4FM UG




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

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 25. Sep. 2003 11:14    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 T. Bürger 10 Unities + Antwort hilfreich


Tables.zip

 
@Thomas watt? geht nich?
probier mal bitte das im Anhang aus - bei mir haut das hin.

------------------
Gruß
CADwiesel
Besucht uns im
CHAT

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

mkl-cad
Mitglied
Technischer Zeichner


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

Beiträge: 378
Registriert: 23.07.2003

ACAD 2002
Express Tools 1-9
Architektural Desktop
Windows XP
Server Windows 2003
3 GHz Rechner
1 GB RAM
80 GB Festplatte
ATI FireGL V3100
2 17" Flachbildschirme

erstellt am: 25. Sep. 2003 12:43    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 T. Bürger 10 Unities + Antwort hilfreich

Wenn Sie nur wissen wollen ob ein Layer existiert geht das auch ohne vla-* und vlax-* .

(setq abfrage (tblsearch "layer" "Layername"))

Gibt nil zurück wenn nicht vorhanden und sonst eine Liste mit den Layereigenschaften

Martin

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

T. Bürger
Mitglied
Technischer Angestellter


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

Beiträge: 201
Registriert: 30.01.2001

AMD Athlon XP2000+
ATI Fire GL 8800
Maxtor 4R060J0(60GB)
Windows XP-Pro. SP1
Novell 4.1
1024MB Arbeitsspeicher
AutoCAD2004
Expresstools
LayerManager-Pro

erstellt am: 25. Sep. 2003 13:32    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

@CADwiesel,

joooo..., die Tables.vlx in der ZIP-Datei funktioniert.


@mkl-cad,
es geht nicht darum ob ein Layer vorhanden ist, sondern ob der Name eins gespeicherten Layerstandes (welche Layer ein, aus, gefroren, getaut, gesperrt oder entsperrt sind) vorhanden ist.

------------------
Grüße T. Bürger   

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

SebZ
Mitglied
Bauingenieur Tiefbau


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

Beiträge: 189
Registriert: 17.10.2004

AutoCAD 2010 Civil 3D DACH
WinXP Professional 2002 SP3
MS Office 2007
Intel Core2Duo 2.80 GHz, 3.00 GB RAM

erstellt am: 22. Aug. 2007 12:28    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 T. Bürger 10 Unities + Antwort hilfreich

hallo - ich hole mal dieses alte Thema wieder nach oben.

Ich hatte mich nur eben gewundert, dass die Zeichnungsanalyse bei einer Zeichnung (dwg2000) die vorhandenen 4 Layerstates nicht bemerkt hat ("- KEIN EINTRAG- " unter "Layerstände").
Zur Vermeidung von Missverständnissen: die LS' habe ich mit der Layersteuerung und nicht mit den ET vereinbart.

Hab ich da was vergessen?

[/EDIT]
PS:
die Textfelder der Einträge sind auf 20 Zeichen beschränkt (habe gerade die Blöcke abgefragt, aber ich glaube diese Beschränkung gilt für alle anderen Kategorien auch).
@CADWiesel: wenn du mal eines Tages ein Update in Erwägung ziehen solltest, könntest du dieses Feld evtl. deutlich vergrößern? wär schon nicht ungünstig...
Ansonsten will ich aber keinen falschen Eindruck aufkommen lassen. Das Tool leistet hervorragende Hilfe.
[/edit]
------------------
Gruß
SebZ

[Diese Nachricht wurde von SebZ am 22. Aug. 2007 editiert.]

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

CADwiesel
Moderator
CAD4FM UG




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

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 23. Aug. 2007 10: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 T. Bürger 10 Unities + Antwort hilfreich

Hai

kann ich leider nicht nachvollziehen.

Kannst du mir mal die Zeichnung zur Verfügung stellen? - Kannst ja die Geometrie löschen

Die Zeichenfolge ist begrenzt um nicht in det Tabellarischen Ansicht zu verrutschen.
Aber ich sollte in der Tat mal was auf Excel ausgabeformat machen.
außerdem sind ja auch einige weitere Objekte hinzugekommen, die Tables noch nicht berücksichtigt - muss ich auch mal erweitern.


------------------
Gruß
    CADwiesel
Besucht uns im CHAT

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 16. Jul. 2013 10:26    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 T. Bürger 10 Unities + Antwort hilfreich

hi - ich hole auch dieses alte Thema wieder nach oben.

wie bringe ich den Code:

(defun bw_ACAD_Layerstates (/ NameLst chk).....

zum laufen ?

Und kann man den Code so erweitern dass das Datum ausgelesen wird wann ein Layerstatus zuletzt gespeichert wurde ?

------------------
mfg
Peter

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

CADwiesel
Moderator
CAD4FM UG




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

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 16. Jul. 2013 10:55    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 T. Bürger 10 Unities + Antwort hilfreich

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!
Mach ein c: vor BW_ACAD_LAYERSTATES
dann lad es in acad und führ es durch Eingabe von BW_ACAD_LAYERSTATES aus

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 16. Jul. 2013 11:09    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 T. Bürger 10 Unities + Antwort hilfreich

danke
so einfach ...funktionierts.

Das mit Datum auslesen wird etwas schwieriger sein. Geht das überhaupt ?

------------------
mfg
Peter

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