Bestimmte layer makieren (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Bestimmte layer makieren (816 mal gelesen)

kickdown
Mitglied

Senden Sie eine Private Message an kickdown

Schreiben Sie einen Gästebucheintrag für kickdown

Beiträge: 39
Registriert: 23.08.2006

erstellt am: 09. Aug. 2007 11:18

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

ich habe hier ein paar hundert zeichnungen, von jeder zeichnung muss ich bestimmte layer kopieren. diese haben immer den selben namen.

gibt es eine möglichkeit diese automatisch zu makieren?
ein lisp wo der layername in der lisp datei steht, und er die makiert?,

wäre mir wirklich sehr geholfen damit.
hoffe es kann mir jemand helfen.

ich verwende dieses lisp um einen layer zu makieren.
jedoch funktioniert es nicht damit mehrer zu makieren. evtl. gibt es da eine möglichkeit?

;(C) 2007 XANADU - www.xanadu.cz
(defun C:SELLAY ( / e lay ss)
(setq e (nentsel "Select entity on a layer: "))
(if e (setq ss (ssget "_X" (list(cons 8 (cdr (assoc 8 (entget (car e)))))))))
(if (zerop (getvar"CMDACTIVE"))
(progn (sssetfirst ss ss)(princ"Use 'P' for this selection set: "))
)
ss
)

danke

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

fuchsi
Mitglied
Programmierer c#.net Datawarehouse

Senden Sie eine Private Message an fuchsi

Schreiben Sie einen Gästebucheintrag für fuchsi

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 09. Aug. 2007 12:39

<-- editieren / zitieren -->

Unities abgeben:

Nur für kickdown

schnell mal (ungetestet) ein bisschen angepasst

jetzt wirst du solange nach einen Element zum Layer bestimmen gefragt, biss du mit der rechten Mausstate (oder du wählst ins leeer) untebrichst

;(C) 2007 XANADU - www.xanadu.cz
(defun C:SELLAY ( / e lay ss)
(setq lay "");
(while (setq e (nentsel "Select entity on a layer: "))
(setq lay (strcat lay "," (cdr (assoc 8 (entget (car e))))))
)
(if (/= lay "") (setq ss (ssget "_X" (list(cons 8 (substr lay 2))))))
(if (zerop (getvar"CMDACTIVE"))
(progn (sssetfirst ss ss)(princ"Use 'P' for this selection set: "))
)
ss
)

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

kickdown
Mitglied

Beiträge: 39
Registriert: 23.08.2006

erstellt am: 09. Aug. 2007 13:15

<-- editieren / zitieren -->

Unities abgeben:

funktioniert bestens.

danke, das erleichtert meine arbeit erheblich.

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

Anzeige:	Infos zum Werbeplatz >>
BlechCAD Verlegeplan CAD APP für AEC - Architektur-, Ingenieur- und Bauwesen, Blechverarbeitung Metallbau- Fassadenbau- Planer, die aus einer Gebäudedraufsicht (Grundriss) die Flachdachbleche in freien selbst definierten Formen als Plan und Abwicklungen uns Listen erzeugen

vevi61
Mitglied
techn. Zeichner

Senden Sie eine Private Message an vevi61

Schreiben Sie einen Gästebucheintrag für vevi61

Beiträge: 59
Registriert: 08.10.2003

AutoCAD 2012

erstellt am: 04. Sep. 2007 18:02

<-- editieren / zitieren -->

Unities abgeben:

Nur für kickdown

Hallo fuchsi!

Hab dein kurzes Programm getestet und es funktioniert wunderbar. Meine Fragen:

1) Ist es auch möglich, dass ab dem ersten ausgewählten Layer schon eine Hervorhebung (Griffe) sichtbar ist und nicht erst nach Abschluss des Auswahl mit Enter?

2) Ist es auch möglich, mit "Fenster" mehrere Layer gleichzeitig auszuwählen und hervorzuheben?

Hab zwar schon versucht zu basteln, leider aber ohne Erfolg.

Grüße - vevi

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

BlechCAD Verlegeplan CAD APP für AEC - Architektur-, Ingenieur- und Bauwesen, Blechverarbeitung