Schnellauswahl mit einem Klick (Autodesk/Rund um AutoCAD)

Hallo,

ich bekomme immer wieder Grundrisse die ich anpaßen muß und einige Sachen löschen muß. Z.B. muß ich da alle Schraffuren mit Muster Solid rauslöschen und alle Bemaßungen.

Jetzt gehe ich immer über den Filter und fang mir so die Objekte.

Wie kann ich mir z.B. "alle Schraffuren mit Muster Solid rauslöschen" auf einen Button oder Befehl legen, um mit einen Klick alle Schraffuren mit Muster Solid rauszulöschen?

Das ganze dann für Bemaßung auch noch.

Gibt es da schon was oder muß man sich da selber was bastel

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

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

Für Solids:

Code:

_erase;(ssget "X" '((2 . "SOLID")))

Für Bemaßungen:

Code:

_erase;(ssget "X" '((0 . "DIMENSION")))

------------------
Grüsse

Thoma s

Korrekturen zum Kochbuch AutoLISP

[Diese Nachricht wurde von tunnelbauer am 07. Aug. 2009 editiert.]

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

[EDIT]wegen Korrektur von Thomas hinfällig[/EDIT]
Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 07. Aug. 2009 editiert.]

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

Danke tunnelbauer,

aber wie bekomme ich die Befehle jetzt auf einen Button oder in einen Befehl?

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

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

Wenn nur auf einen Button (oder du strickst dir einen Lisp-Aufruf rundherum...)

Für Button-Makros gibt es hier eigentlich schon genug Befehle; und zum Thema Anpassung auch genug Anleitungen... einfach ein bisschen suchen...

------------------
Grüsse

Thoma s

Korrekturen zum Kochbuch AutoLISP

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

So - habe hier was gefunden und etwas gebastelt.

Gelöscht wird die Bemaßung jetzt, allerdings nur eine Bemaßung

Code:
(defun C:test (/ INDEX AUSWAHLSATZ OBJFILTER ASLENGTH)
(command "_.-layer" "_thaw" "*" "_unlock" "*" "_on" "*" "")
(setq OBJFILTER (cons 0 "DIMENSION"))
(if (not (setq AUSWAHLSATZ
(ssget "_I"
(list OBJFILTER (cons 410 (getvar "ctab")))
) ;_ end of ssget
) ;_ end of setq
) ;_ wenn kein pickset vorh.
(progn
(initget "Ja Nein")
(setq QUEST
(getkword
"\nLöschen über die gesamte Zeichnung? [Ja/Nein] <Nein>: "
) ;_ end of getkword
) ;_ end of setq
(if (not QUEST)
(setq QUEST "Nein")
) ;_ end of if
(if (= QUEST "Nein")
(princ "\nOk, dann eben nicht...")
(progn
(setq AUSWAHLSATZ
(ssget
"_X"
(list OBJFILTER (cons 410 (getvar "ctab")))
) ;_ end of ssget
) ; nimm alle
(if AUSWAHLSATZ
(progn
(setq INDEX -1
ASLENGTH (sslength AUSWAHLSATZ)
) ;_ end of if
(repeat ASLENGTH ;_ end of sslength
(command "_erase"
(ssname AUSWAHLSATZ (setq INDEX (1+ INDEX)))
) ;_ end of command
) ;_ end of repeat
(princ (strcat "\n>> "
(itoa ASLENGTH)
" << Objekt(e) gelöscht. "
) ;_ end of strcat
) ;_ end of princ
) ;_ end of progn
(princ "\nKeine löschbaren Objekte gefunden!")
) ;_ end of if
) ;_ end of progn
) ;_ end of if
) ;_ end of progn
) ;_ end of if
(princ)
)

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

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

Und Tubas Beitrag hat dir warum nicht gefallen?

------------------
Gruß Yvonne
Inoffizielle ADT-Help-Site

Bietet dir jemand eine Lösung an, dann freue dich und sei dankbar - es gibt Leute, die Probleme haben für die es keine Lösungen gibt.

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

Zitat:
Original erstellt von charlieBV:
Und Tubas Beitrag hat dir warum nicht gefallen?

ich geht mal davon aus du meinst

Zitat:
Original erstellt von tunnelbauer:
Für Solids:
Code:
_erase;(ssget "X" '((2 . "SOLID")))
Für Bemaßungen:
Code:
_erase;(ssget "X" '((0 . "DIMENSION")))

Habe kein Plan wie ich es verwenden soll

Zitat:
Original erstellt von xem:

Danke tunnelbauer,
aber wie bekomme ich die Befehle jetzt auf einen Button oder in einen Befehl?

Darum habe ich weiter gesucht und eine LISP gefunden was schon in die Richtung ging.

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

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

Mahlzeit,

Dann versuch es doch einfach mal mit häppchenweise rantasten, so wie hier auch schon beschrieben oder in der FAQ, Thema Makros und Skripte.

Der liebe Maulwurf hat Dir eine Zeile präsentiert. Was tut die? Sie ruft einen Befehl auf [_erase;] und erase verlangt traditionell nach einem Auswahlsatz [(ssget "X" '((2 . "SOLID")))]

Jetzt legst Du Dir erstmal nur das auf einen button, testest und stellst etwas fest. Was? Richtig, Du hast nach dem Druck auf's Knöppel erst einmal nur die Bemassungen im Auswahlsatz und mußt das noch mit enter bestätigen -> ;

Eingebaut, testen, was stellst Du fest: ein ; reicht irgendwie nicht. Nochmal einen dahinter und gucken, ob es jetzt tut.

es tut und Du hast einen button, der Dir alle Bems rauslöscht.

Frag aber bitte nicht nächste Woche nach Texten und danach die Woche nach kleinen grünen Kreisen....

PS: ich verwende gerne im nackten ACAD das "Ähnliche wählen für alle" (das ist der thread-Titel für Deine Forensuche), da klicke ich ein Element an und hab auf Knopfdruck alle Elemente, die ähnlich sind in der Auswahl.

------------------
Gruß,
runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

Danke runkelruebe,

ich werd mich nächste Woche noch mal damit beschäftigen und ggf. meine Erfolge und Misserfolge hier postem. Schönes Wochenende an alle die mir hier geholfen haben.

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

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

Hallo,

habe mir jetzt folgendes zusammengebastelt

Code:
(defun c:test ( / as) ; lokale Variable
(setq as (ssget "_X" '((-4 . "<OR")
(2 . "SOLID")
(0 . "DIMENSION")
(-4 . "OR>"))))
(if as
(command "._erase" as "")
)
(setq as nil) ; as wird freigeben
(princ)
)

Wenn ich jetzt andere Objekte in die Auswahl einfügen möchte, wo finde ich eine Liste mit den Bezeichnungen? ("DIMENSION")

und bei (0 . "DIMENSION") - was bedeutet die 0?
bei (2 . "SOLID") - was bedeutet die 2?

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

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

Autodesk war so nett und hat die Bedeutungen der Zahlen hier veröffentlicht:
http://www.autodesk.com/techpubs/autocad/acad2000/dxf/group_codes_in_numerical_order_dxf_01.htm

Und was hier unter 6. gelistet ist, kannst du hernehmen...
http://www.autodesk.com/techpubs/autocad/acad2000/dxf/

------------------
Grüsse

Thoma s

Korrekturen zum Kochbuch AutoLISP

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

Hallo Xem,
die Aufgabe habe ich auch öfter.
Für mich war "delall" sehr hilfreich
Beitrag http://ww3.cad.de/foren/ubb/Forum54/HTML/007627.shtml#000011
dafindest du was Du brauchst

Grüße
Jochen

------------------
N
W-|-O
S

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

Zitat:
Original erstellt von xem:
Hallo,
habe mir jetzt folgendes zusammengebastelt
Code:
(defun c:test ( / as) ; lokale Variable
(setq as (ssget "_X" '((-4 . "<OR")
   (2 . "SOLID")
   (0 . "DIMENSION")
   (-4 . "OR>"))))
(if as
(command "._erase" as "")
)
(setq as nil) ; as wird freigeben
(princ)
)

Wenn ich jetzt noch das LISP:

Code:
(defun c:testt ( / as) ; lokale Variable
(setq as (ssget "_X" '((-4 . "<OR")
(0 . "Hatch")
(-4 . "OR>"))))
(if as
(command "ändern" as "" "ei" "f" "253" "")
)
(setq as nil) ; as wird freigeben
(princ)
)

mit einfügen will - kann ich es nicht einfach hinten dranhängen.

Worauf muß ich da Achten und wie würde das dann aussehen?

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

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

Leg Dir die beiden auf einen einzigen Button

Im Ernst:

Also total aus dem Fenster gelehnt versteh ich nur so viel, dass Du in einem Aufwasch alle Bemassungen und Solids löschen sowie allen Schraffuren die Objektfarbe 253 geben willst.

Noch weiter aus dem Fenster gelehnt vermute ich, wenn es schon LISP sein und bleiben soll, dass Du die beiden kombinieren kannst, indem Du vom ersten das "Ende", vom zweiten den "Anfang" wegnimmst...

Du willst ja das Proggi nicht nach dem Löschen beenden und dann ein neues aufrufen, sondern eines das alles macht.

Also nimm Deinen zweiten Teil (nur die Auswahl und den Befehl samt Abfrage) und schreib die in Dein erstes LISP mit rein.

Hat bei mir funktioniert. Bisschen probieren und evtl ein bisschen nachlesen was was ist, da bist Du ja eh schon dabei.

------------------
Liebe Grüsse, Marita

A positive attitude may not solve all your problems, but it will annoy enough people to make it worth the effort. -- Herm Albright

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

Danke Marita

so funzt es und wieder was dazu gelernt. Also heute nicht umsonst aufgestanden

Code:
(defun c:testt ( / as) ; lokale Variable
(setq as (ssget "_X" '((-4 . "<OR")
(2 . "SOLID")
(0 . "DIMENSION")
(-4 . "OR>"))))
(if as
(command "._erase" as "")
)
(setq as nil) ; as wird freigeben
(setq as (ssget "_X" '((-4 . "<OR")
(0 . "Hatch")
(-4 . "OR>"))))
(if as
(command "ändern" as "" "ei" "f" "253" "")
)
(setq as nil) ; as wird freigeben
(princ)
)

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

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

machs lieber so :
(setq as (ssget "_X" (list'(-4 . "<OR")
'(-4 . "<AND")
'(0 . "HATCH")
'(2 . "SOLID")
'(-4 . "AND>")
'(0 . "DIMENSION")
'(-4 . "OR>")
(cons 410 (getvar "CTAB"))
)
)
)

sonst sind nachher auch Blockreferenzen eines Blockes, der zufällig SOLID heißt weg ....

für die 2.Auswahl genügt
(setq as (ssget "_X" (list '(0 . "Hatch")
(cons 410 (getvar "CTAB"))
)
)
)

das mit dem GC410 berücksichtigt nur den aktuellen Bereiche (Block bei refedit , bzw. Layout), da commands eh nur auf den aktuellen Bereich angewendet werden können.

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

Danke CADmium!

Ich habe grade noch etwas gebastelte und probiert.

Warum kennt er den Befehl _burst aus den Expresstolls nicht? Genauso eigene Befehle die ich über ein LISP erstellt habe?

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

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

Wer kennt _burst aus den "Expresstools" nicht?

Sind diese Installiert und alle notwendigen Dateien (arx , lsp ) geladen?

Sind deine Lispdateien in der aktuellen Zeichnung geladen und die Befehle mit (defun c:NAME() .. ) definiert ?

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

Weil sie nicht geladen sind?

------------------
Grüsse

Thoma s

Korrekturen zum Kochbuch AutoLISP

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

Also Expresstools werden ja automatisch mitgeladen. Von Hand eingegeben kennt er den Befehl. Im LISP nicht mehr.

Befehl: test
_burst Unbekannter Befehl "BURST". Drücken Sie F1-Taste für Hilfe.

Die LISP werden auch immer mit dem Start von AutoCAD mitgeladen.

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

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

burst ist ja auch kein ACADBefehl ( nur die gehen per command-Aufruf .. innerhalb einer Lispfunktion wird Burst z.B. so (c:burst) aufgerufen ..... wie jede andere Lispfunktion auch ...

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

Ich nehme mal an des es so nicht funktioniert

Code:
(command "c:burst" "all" "")

Wie würde die Zeile aussehen wenn ich über die gesamte Zeichnung den Befehl _burst ausführen möchte?

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

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

du kannst bloß (c:burst) ohne Parameter aufrufen .. wenn du alle Blöcke auflösen und die Attribute in Texte umwandeln willst , mußt du dir burst aus den Etools umschreiben ( da die Auswahl erst innerhalb der Funktion getroffen wird) oder gleich ne Eigene Funktion mit Parameterübergabe schreiben. ( Irgendwo hier hatte ich auch mal so eine Funktion ... multiburst oder so .. ist aber sicher nicht mehr aktuell)

------------------
- 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 den Befehl Xplode ausführe bekomme ich Attribute aus den Blöcken, die ich gern löschen möchte, aber irrgend wie funzt das net.

Code:
(defun c:testt ( / as) ; lokale Variable
;Attribute lösen
(setq as (ssget "_X" '((-4 . "<OR")
(0 . "ATTRIB")
(-4 . "OR>"))))
(if as
(command "_erase" as "")
)
(setq as nil) ; as wird freigeben
(princ)
)

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

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

Du wirst mit "(0 . "ATTRIB")" nie Attribute selektieren können weil Attribute nur verschachtelt xistieren können !
Wenn du Objekte in der Zeichnung hast zu der das Eigenschaftenfenster sagt "Attribut" dann ist das in
Wirklichkeit eine Attributdefinition ! (0 . "ATTDEF") wie du auch mit (entget(car(entsel))) abfragen kannst.

Man erstellt sie in Acad auch über den Befehl ATTDEF..
(in einer Blockreferenz widerum, das sind ATTRIBS ! - Siehe User FAQ zum Thema Blöcke)

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

Attribute sind an die Blockreferenz gebunden und nur mit dieser auswählbar .. zum löschen muß die Blockreferenz gewählt werden ( geht auch nicht mit _erase ) und sich dann zum Att durchgehangelt werden. Allerdings korrepondieren dann die Referenzen nicht mehr mit den Blockdefinitionen ... somit wäre ein Löschen der Attributsdefinition im Block mit anschließendem Attsync sinnvoller... es geht zwar auch anders, aber ich denke, soweit bist du in Lisp noch nicht.

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

Jetzt wollte ich Trick 17 anwenden und es geht net.

Habe auf einen Button:
_xplode;(ssget "_X" '((0 . "INSERT")));;g;n;

Dann kommt:

Befehl: _xplode
Aufzulösende Objekte wählen.
Objekte wählen: (ssget "_X" '((0 . "INSERT")))
Kann nicht zu LISP zurückkehren.
*Ungültige Auswahl*

Warum geht das denn jetzt net? Ich wollte alle Blöcke mit _xplode auflösen.

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

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

ich zitiere Thomas von obigem Eintrag:
burst ist ja auch kein ACADBefehl ( nur die gehen per command-Aufruf .. innerhalb einer Lispfunktion wird Burst z.B. so (c:burst) aufgerufen ..... wie jede andere Lispfunktion auch ...

Gleiches gilt auch für 'xplode', das ist eine Lispfunktion, in der Du neuerlich etwas Lisp-Interpretiertes drauflegen willst.

Probier mal:
(setq a (ssget "X" '((0 . "INSERT"))))
(sssetfirst a a)
_xplode . . .

Damit selektierst Du die Blockreferenzen vor dem Befehl (und Objektwahl vor Befehl ist ja hoffentlich EIN), dann den Befehl gestartet und wenn es eine bestehende Selektion gibt, dann wird diese verwendet ohne nach weiteren Objekten/Objektwahl zu fragen.

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 11. Aug. 2009 editiert.]

Supi!!!

Code:
(setq a (ssget "X" '((0 . "INSERT"))))
(sssetfirst a a)
_xplode;g;h;

so paßt es

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

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