Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Auswahlsatz über länger Zeit erstellen

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:  Auswahlsatz über länger Zeit erstellen (691 mal gelesen)
MARTINLE
Mitglied
Tischler


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

Beiträge: 485
Registriert: 18.10.2007

AUTOCAD 2016,
MS Windows7, 64-bit

erstellt am: 31. Okt. 2013 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


Hallo
Folgendes Problem:
Ich habe viele Gruppen in meinen Plänen.
Um diese Gruppen bei Änderungen einfach aktuell zu halten hab ich mir folgendes überlegt:

Start: Einen Merker setzen der mir das letze Element merkt.
Dann zeichne ich weiter.....und weiter und weiter.....
Irgendwann will ich alle Objekte die nach dem Merker dazugekommen sind in eine gezeigte Gruppe aufnehmen.

Nun zum Lisp das leider nicht funktioniert.

(defun c:gruppeanfang ( / )
(setq OBJ(entlast));globale variable
)

(defun c:gruppeende ( / AWS OBJ)
(setq AWS(ssadd))
(while (setq OBJ(entnext OBJ))(ssadd OBJ AWS));erzeugt Auswahlsatz
(command "gruppebearb" Pause "H" AWS "")
)


Liegt es daran, dass ich die im ersten Lisp gesetze Variable nicht abrufen kann oder warum geht das nicht.

Natürlich wäre eine Art Reaktor der mir Gruppen überwacht oder so ähnlich sicher noch besser. Aber wenn ich
sowas wie mein Beispiel oben zum laufen kriege bin ich schon zufrieden.

Ich denke weiter...: Und wenn man das dann auf ein Buttenmakro zum umschalten legen würde wäre das Lisp perfekt.

^C^C(if(null c:gruppieren)(load"gruppieren"));^c^c^P$m=$(nth,$(getvar,useri4),gruppeanfang;;useri4;1,expert;1;gruppeende;expert;0;useri4;0)

Hat hier jemand eine Idee wie ich das umsetzen könnte?
Danke vorab für eure Hife!

Liebe Grüße Martin 

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: 21533
Registriert: 03.06.2002

Alles

erstellt am: 31. Okt. 2013 13:16    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 MARTINLE 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von MARTINLE:

(defun c:gruppeende ( / AWS OBJ)
(setq AWS(ssadd))
(while (setq OBJ(entnext OBJ))(ssadd OBJ AWS));erzeugt Auswahlsatz
(command "gruppebearb" Pause "H" AWS "")
)

Liegt es daran, dass ich die im ersten Lisp gesetze Variable nicht abrufen kann oder warum geht das nicht.
Ich denke weiter...: Und wenn man das dann auf ein Buttenmakro zum umschalten legen würde wäre das Lisp perfekt.


Du hast bei Gruppeende eine LOKALe Variable definiert, also erhälst du bei der Abfrage von OBJ nil statt
dem Wert der GLOBALEN Variable 'OBJ'(eigentlich gelogen - ist nur innerhalb der Datei"global") .
Nehme das OBJ also aus der Klammer heraus (und ggf. nimmst du eindeutigere Namen für globale Variablen.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

MARTINLE
Mitglied
Tischler


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

Beiträge: 485
Registriert: 18.10.2007

AUTOCAD 2016,
MS Windows7, 64-bit

erstellt am: 31. Okt. 2013 13: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

Hallo cadffm!
Danke für deine schnell Hilfe.
Ja es funktioniert.
Wie kann ich die globale Variable wieder los werden?
MIt (setvar OBJ nil) geht das?

lg. Martin

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: 21533
Registriert: 03.06.2002

Alles

erstellt am: 31. Okt. 2013 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 Nur für MARTINLE 10 Unities + Antwort hilfreich

Du "erzeugst" sie mit SETQ und du kannst sie auch ändern mit SETQ


Befehl: (setq obj (car(entsel)))

Objekt wählen: <Objektname: 7dca5748>

Befehl: !obj
<Objektname: 7dca5748>

Befehl: (setq OBJ nil)
nil

Befehl: !obj
nil

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

MARTINLE
Mitglied
Tischler


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

Beiträge: 485
Registriert: 18.10.2007

AUTOCAD 2016,
MS Windows7, 64-bit

erstellt am: 31. Okt. 2013 13:34    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

Danke!!!!!!!!!!!!  

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