| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: entmod Gruppencode 8 (651 mal gelesen)
|
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 27. Mrz. 2009 09:03 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 27. Mrz. 2009 09:09 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
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 |
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 27. Mrz. 2009 09:18 <-- editieren / zitieren --> Unities abgeben:
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 |
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 27. Mrz. 2009 09:22 <-- editieren / zitieren --> Unities abgeben:
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 27. Mrz. 2009 09:22 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 27. Mrz. 2009 10:03 <-- editieren / zitieren --> Unities abgeben: Nur für woppi
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 |
woppi Mitglied cnc-programmierung
Beiträge: 65 Registriert: 16.01.2009 Acad Architecture 2020
|
erstellt am: 27. Mrz. 2009 12:45 <-- editieren / zitieren --> Unities abgeben:
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 |