|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 20.12.2007 um 20:12 Uhr (0)
Hi,... keine Variable... neeProbier mal Jörn Bosse seinen ersten Code...... das ist ein guter Ansatz... oder einen der anderen... http://ww3.cad.de/foren/ubb/Forum145/HTML/001738.shtml#000030 "Gruppe auflösen"Wenn nicht melde dich nochmal, bin gerade net auf Arbeit,habe da dann noch ein paar Zeilen die gehen könnten...Mfg Heiko
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 07.01.2008 um 09:23 Uhr (0)
Hi Mario,wie oben angekündigt ein paar Zeilen.Schließe mich Marc an ... uppen bzw Erfahrungsbericht...Danke...Mfg Heiko
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 13.02.2008 um 07:16 Uhr (0)
Morgen,Mal ein Versuch in ActiveX zum löschen aller Gruppen (defun c:exga (/ a acadobj doc item) ;;(vl-load-com) (or acadobj (setq acadobj (vlax-get-acad-object))) (or doc (setq doc (vla-get-activedocument acadobj))) (vlax-for item (vla-item (vla-get-dictionaries doc) "ACAD_GROUP") (setq a (if a (1+ a) 0 ) ) (vla-delete item) ) (princ (strcat "
-- " (itoa a) " -- Gruppen aufgelöst")) (princ))Mfg Heiko
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 14.02.2008 um 06:28 Uhr (0)
@cadmium: Ja, gut so. ... dazu fehlt mir leider das Wissen...... war ja auch nur ein Versuch...Weiter so..., tolles Forum... (Schleim)Mfg Heiko
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 14.02.2008 um 07:05 Uhr (0)
Hab mich doch nochmal an Cadmiums Zeilen VERSUCHT...... nun auch mit Abfrage bei Null Gruppen(defun c:exga (/ A DICT) (vl-load-com) (setq A 0) (if (not (vl-catch-all-error-p (setq DICT (vl-catch-all-apply vla-item (list (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object) ) ) "ACAD_GROUP" ) ) ) ) ) (if (= (vla-get-count DICT) 0) (princ "
KEINE Gruppen vorhanden!") (progn (vlax-for ITEM DICT (if (not (vl-catch-all-error-p (vl-catch-all-apply ...
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 05.03.2010 um 10:01 Uhr (0)
Hi,ich verweise mal aufUser FAQ oder/undFAQ: Arbeitsbereich (Workspace)oder aufs RuA-Brett dort ist die Frage imho besser aufgehoben.------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 21.07.2006 um 17:03 Uhr (0)
Hallo Leute!Erstmal allen DankeRE: Jörn ... werde mich mal versuchen an dem Code ... , bei gelingen poste ich dann auch ... .RE: Caladis ... ja, genau diesen Beitrag bzw. Code meinte ich ... .RE: Frederik ... nicht für LT (LISP einlesen und verwerten geht wohl mit dem Extender oder so ählich) sondern für AutoCad 2007.Ich meinte nicht einen "Gruppen-Auflösen-Code" für LT sondern in Anlehnung an LT. Sorry wenn ich mich oben nicht eindeutig ausgedrückt habe, hoffe mein Anliegen ist jetzt klarer.Tipps und Anre ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 11.08.2006 um 13:40 Uhr (0)
Hab es mal mit einer weiteren Schleife probiert;;;;;;;;neu .... , es will aber noch nichtwirklich , der "Zähler" beim Vergleich mit denanderen Objekten scheint nicht OK zu sein!? ;;; Funktion löst "oberste" vorhandene Gruppe auf(defun C:xxyy (/ GNAME GROUPSEL c gnamen d) (princ "
Objekt(e) anwählen, dessen Gruppe(n) aufgelöst werden soll(en): ") (setq GROUPSEL (ssget)) ALT-PICKSTYLE (getvar "pickstyle") (if GROUPSEL (progn (setq d 0) (repeat (sslength GROUPSEL) (progn (setq GNAME (GET-GROUPNAM ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 15.08.2006 um 07:07 Uhr (0)
Hallo,Re: JörnDein Versuch ;;;noch neuer funktioniert gut, wie bereits oben beschrieben liegt meine Absicht darin, die nuuuuuuuur die oberste, höchste, letzte Gruppe von mehren Gruppen (in Anlehnung an LT) aufzulösen. Ich bin der Meinung, dass über GET-GROUPNAME eine Liste mit Gruppennamen ausgegeben ="gname", in der genau diese oberste Gruppe an Stelle eins, ganz vorne steht (evtl. über car ansprechbar). Wenn man die Grundgedanken von CADmium und Marc einbezieht, ist die Gruppe mit den meisten Objekten di ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 22.08.2006 um 07:25 Uhr (0)
Hallo alle zusammenNun ein neuer der Ansatz um einer soliden Implementierung gerecht zu werden -Ansatz- da noch nicht getestet! (reine Trockenübung am Editor beim Feierabendbier)Der Marc, der hat da wirklich Recht .Benötige mal wieder eine weitere Meinung bzw. Verbesserungsvorschlag od. Korrektur der einzelnen Fragmente im Mittelteil. (das Ganze ist auch im Plural erwünscht);;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx (/ GNAME GROUPSEL c dgnamen d g_liste) ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 23.08.2006 um 13:31 Uhr (0)
HalloNun das ganze mal getestetVisual-Lisp-Editor ACad sagt:; Fehler: Zu wenige Argumente in SETQ: (SETQ MERKERSET (ITOA (SSLENGTH (SSGET "_P"))) (SETQ DGNAMEN ELEM)) (???was will der Künstler mir damit sagen???)beim folgenden Code:;;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx (/ GNAME GROUPSEL c dgnamen d g_liste merkerset) (princ "
Objekt(e) anwählen, dessen Gruppe(n) aufgelöst werden soll(en): ") (setq GROUPSEL (ssget)) ALT-PICKSTYLE (getvar "pickstyle")( ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 25.08.2006 um 07:19 Uhr (0)
Hi Marc, hi Jörn, @Marc"as designed" or NOT "as designed" this is the question?IMHO - Mit cons... in der Subfunktion wird die ACAD-Logik umgedreht!? auch ACAD folg IMHO einer Logik welcher? this? only now? ...Euer Weg ist dennoch der richtigeAnzahl der Entities der Gruppen!?Es klemmt wie immer bei der Implementierung - im gekennzeichneten Bereich warum???Guter Rat (kann auch schon wo anders klemmen [IMHO]) ;;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 29.08.2006 um 07:57 Uhr (0)
Soooo;;; löst jeweils nur die "obersten" vorhandenen Gruppen im Auswahlsatz auf(defun C:xxx (/ GROUPSEL GNAME DGNAMEN D G_LISTE MERKERSET) (princ "
Objekt(e) anwählen, dessen Gruppe(n) aufgelöst werden soll(en): ") (setq GROUPSEL (ssget)) ALT-PICKSTYLE (getvar "pickstyle") (if GROUPSEL (progn (repeat (sslength GROUPSEL) (if (setq GNAME (GET-GROUPNAME (entget (ssname GROUPSEL (setq D (if D (1+ D)0)))))) (if GNAME (progn (foreach ELEM GNAME (command "_.select" "_group" elem "") ...
|
| In das Form Lisp wechseln |
