---

Hallo, ich stelle mich wahrscheinlich wieder dumm an. Ab er ich weiß nicht wie ich entmod auf das letzte gezeichnete Objekt ansetze:

Ich möchte Bemaßungen die aus einer Lisp herhaus entstanden sind mit entmod auf einen anderen Layer legen.
Hier das Beispiel:

(defun c:bw() ;winkel Bemaßung
  (command "_dimangular")
(setq en (ssget "l"))
  (setq ed (entget en))         
(setq ed
  (subst (cons 8 "BEM")
    (assoc 8 ed)             
    ed                       
  )
)
(entmod ed)                   
(princ)
)

Alternativ benutze ich jetzt:

(defun c:ba() ;ausgerichte Bemaßung
(setq lyakt (getvar "clayer"))
(setvar "clayer" "BEM")
  (command "_dimaligned")
(while (not (= 0 (getvar "CMDACTIVE")))
  (command pause)
  ) 
(setvar "clayer" lyakt)
(Princ) 
)

hat aber den Nachteil das ich nicht an den Mtext komme, und das es den Layer schon geben muß.
Wenn ich den noch abfrage und anlege ist das Programm so langsam.
Hat einer eine Idee wo mein Fehler ist?

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

---

ersetz mal
(setq en (ssget "l"))

durch
(setq en (car(entsel "\nObjekt wählen: ")))

Beim 2. wäre vielleicht (für deinen Wissensstand)

statt
(setvar "clayer" "BEM")

(command "_layer" "_m" "BEM" "" )
besser. Da wird der Layer bei nicht vorhandensein gleich angelegt.

Letztendlich wäre aber für dein Vorhaben eine automatische Layerverwaltung per command-Reaktor am sinnvollsten.

da werden dann alle abgesetzten Befehle überwacht, ist es einer , wo eine Bemaßung erstellt werden soll, wird der alte layer gespeichert, der Bemaßungslayer gesetzt, bei Befehlsende oder abbruch der alte Layer wieder restauriert..

Das kann man dan auch für andere Befehle so machem ,dass alle Schraffuren oder alle Hilfslinien immer auf den gleichen Layer kommen.

------------------
      - 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

---

Wenn ich das:
(setq en (car(entsel "\nObjekt wählen: ")))
einsetze, fragt ACAD schon nach dem Objekt bevor ich überhaubt die Bemaßung gemacht habe.
Und ich will ja nicht gefragt werden, sondern es soll immer die Bemaßung genommen werden, die gerade angelegt worden ist.

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

---

Sorry, habe den unteren Teil Deines Beitrages nicht gesehen.
Wie funktioniert das mit den command-Reaktorn?

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

---

Hi,
schau dir mal entlast an
das noch schön in ne abfrage packen und fertig

mfg heiko

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

---

Ich denke, das mit den command-Reaktore übersteigt deinen momentanen Lispwissensstand,
probier mal

(defun c:bw(/ lastobj en ed)
  (setq lastobj (entlast))
  (command "_dimangular")
  (while (not (= 0 (getvar "CMDACTIVE")))
    (command pause)
  )
  (and(not(equal lastobj (setq en (entlast))))
      (tblobjname "LAYER" "BEM")
      (setq ed (entget en))
      (setq ed (subst (cons 8 "BEM")
                      (assoc 8 ed)             
                      ed                       
               )
      )     
      (entmod ed)
  )   
)

(ungestetet , einfach jetzt hier so reingekloppt.. )

... nochwas zum Thema..
------------------
      - 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

---

Vielen Dank!

das "ungeteste" funktioniert!
Teste gerade die Varinate mit den Reaktoren von der Seite "noch was zum Thema".
Das klappt super, und hat den Vorteil das die Mtext funktionen erhalten bleiben.
Ich verstehe das nicht alles im Detail, aber nicht jeder kann so ein Profi sein wie Ihr.

Mein Bereich ist mehr CNC-prog.
Bei der Gelegenheit, gibt es eigentlich auch frei Gruppencodes in DXF.2000 in die man mit LISP Informationen eingeben kann, um die dann mit den Steuerdateien (d2f) für die CNC-Prog. wieter zu verarbeiten. Um z.B. Werkzeugnummer. oder Zustellungen aus Acad direkt über d2f nach fmc und dann weiter in die Maschinensteuerung (src) zu schicken?

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