|
Lisp : Code für AutoCAD-Gruppen...
CADmium am 09.05.2007 um 10:18 Uhr (0)
Zitat:Original erstellt von Plotter:Voller Freude ein gutes Tool für Gruppen gefunden!Leider ist in der Zip Datei keine cui-Datei die in der Anleitung erwähnt wird ;-(Wahrscheinlich bin ich aber einfach nur zu blind. Weiß einer Rat?die cui wirst du dir wohl selber anpassen müssen. Als der Code entwickelt wurde gabs nur mnu usw. .. die könnstest du dir allerdings in die cui importieren.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die H ...
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
Mario Scht am 18.12.2007 um 11:51 Uhr (0)
Hi zusammen, folgendes Problem ist bei mir aufgetreten:In manchen Zeichnungen funktioniert das Auflösen der einzelnen Gruppen mit XG wunderbar und vor allem superschnell. In anderen Zeichnungen, vergleichbaren Umfangs, braucht es ewig bis eine kleine Gruppe (30 Elemente) aufgelöst wurde. Es klappt, aber es dauert 20 bis 30 Sekunden.Gibt es ein Systemvariäbelchen welches hier umgestellt werden kann? Hattet ihr auch schon mal das Problem? Ich habe Warmstarts und alles mögliche aus dem Standardrepertoir schon ...
|
| In das Form Lisp wechseln |
|
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...
marc.scherer am 02.01.2008 um 11:08 Uhr (0)
Hallo Mario,zu: Zitat:Original erstellt von Mario Scht:In manchen Zeichnungen funktioniert das Auflösen der einzelnen Gruppen mit XG wunderbar und vor allem superschnell. In anderen Zeichnungen, vergleichbaren Umfangs, braucht es ewig bis eine kleine Gruppe (30 Elemente) aufgelöst wurde. Es klappt, aber es dauert 20 bis 30 Sekunden.Vielleicht kannst Du ja mal eine Datei bei der das Auflösen so lange dauert hier uppen.Kannst ja alles bis auf die Gruppe löschen und dann auch gleich mal schauen ob es nach dem ...
|
| 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...
Mario Scht am 07.01.2008 um 10:26 Uhr (0)
Ich wünsche Euch erstmal ein gesundes Neues Jahr und alles was Ihr Euch wünscht +1. Ich glaube ich spinne. Ich habe mein Problem an meinem letzten Arbeitstag geschrieben. Heute mache ich die Kiste an und es klappt alles. Ich blicke es nicht. Trotzdem Vielen Dank! Gruß Mario
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
glocker am 12.02.2008 um 15:53 Uhr (0)
Hallo,wir hatten recht lange Glück, aber nun schlagen bei uns immer wieder Fremdzeichnungen mit GRUPPE-Objekten ein. Das Tool EXGR.LSP funktioniert hervorragend - hilft uns sehr.Wäre es möglich, dieses Tool so zu erweitern, daß alle GRUPPE-Objekte in der aktuellen Zeichnung auf einen Schlag zerlegt werden?Bereits im Vorraus herzlichen Dank!
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
marc.scherer am 12.02.2008 um 16:04 Uhr (0)
Zitat:Original erstellt von glocker:Wäre es möglich, dieses Tool so zu erweitern, daß alle GRUPPE-Objekte in der aktuellen Zeichnung auf einen Schlag zerlegt werden?Funktion XGA aus dem Posting ein paar Zeilen weiter oben: http://ww3.cad.de/foren/ubb/Forum145/HTML/000019.shtml#000017 ...------------------Ciao,Marc
|
| 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...
CADmium am 13.02.2008 um 09:21 Uhr (0)
Mal etwas (hoffentlich konstruktive) Programmkritik und der Verweis auf die von Axel angesprochenen Stilblüten und Programmierstile (defun c:exga (/ a acadobj doc item) ;;(vl-load-com) (or acadobj (setq acadobj (vlax-get-acad-object))) warum or ? .. acadobj ist lokal definiert und daher nil - warum überhaupt in eine Variable speichern? (or doc (setq doc (vla-get-activedocument acadobj)))- Siehe acadobj .. (vlax-for item (vla-item (vla-get-dictionaries doc) "ACAD_GROUP") (setq a (if a (1+ a) ...
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
marc.scherer am 13.02.2008 um 09:33 Uhr (0)
@cadmium: Ja, gut so. Aber wie Du weißt bin ich ja ein Freund KLARER Rückmeldungen an den User.Und die Meldung: Zitat:"--0-- Gruppen aufgelöst"ist da meiner Meinung nach nicht ausreichend.Null Gruppen aufgelöst WARUM?Weil keine Gruppen da sind? Weil die vorhandenen Gruppen aus irgendeinem Grund nicht aufgelöst werden konnten?IMHO sollte die Rückgabe hier unterschiedlich sein.------------------Ciao,Marc
|
| 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 |
