| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| CIDEON Whitepaper: Collaboration mit optimiertem Daten- und Projektmanagement, ein Whitepaper
|
Autor
|
Thema: Polylinie in Kreis umwandeln (6547 mal gelesen)
|
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 22. Mrz. 2005 12:48 <-- editieren / zitieren --> Unities abgeben:
hi, wenn ich ein bauteil, mit mehreren bohrungen, erstellt habe und dieses isolliere, dann mit umgrenzung auf einem anderen layer neue umgrenzungen erstelle, sind dieses ja alles polylinien. gibt es eine möglichkeit die umgrenzungen der bohrungen wieder zu kreisen zu machen. jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foxus Mitglied Konstrukteur
Beiträge: 181 Registriert: 17.05.2004 AutoCAD Mechanical 2018
|
erstellt am: 22. Mrz. 2005 13:06 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
|
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 22. Mrz. 2005 13:56 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
|
Foxus Mitglied Konstrukteur
Beiträge: 181 Registriert: 17.05.2004 AutoCAD Mechanical 2018
|
erstellt am: 22. Mrz. 2005 14:02 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
|
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 22. Mrz. 2005 14:11 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
@Foxus: und was erhältst du, wenn du eine Polylinie in Form eines Kreises mit _explode (_xplode) bearbeitest ? >>> 2 Bögen ! (das mir hier jetzt ja keiner mit Halbkreisen anfängt... ) Anmerkung zum Tool: es macht natürlich aus jedem vorhandenen Bogen einen Kreis, also Vorsicht und generiert euch keine doppelten Kreise (danke an Cadzia für den Hinweis !) ------------------ Grüsse Thomas [Diese Nachricht wurde von tunnelbauer am 22. Mrz. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadse Mitglied Applikationsingenieur, Dipl. Ing. (FH)
Beiträge: 55 Registriert: 08.09.2003
|
erstellt am: 22. Mrz. 2005 14:34 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 22. Mrz. 2005 14:39 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
So, anbei noch ein BTN-Tool: 1. Anhang als vlx-Datei in Supportpfad speichern 2. in Vlx-Datei in ACAD laden 3. Aufruf mit DT:PL2CIRCLE Dabei kann die Polylinie auch aus mehreren "Bögen" gleichen Mittelpunkts bestehen ... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." [Diese Nachricht wurde von CADmium am 22. Mrz. 2005 editiert.]
[Diese Nachricht wurde von CADmium am 24. Mrz. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 22. Mrz. 2005 15:54 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Bögen mit gleichem Mittelpunkt und Radius, die insgesamt einen Vollkreis beschreiben lassen sich mit dem Befehl VERBINDEN/_JOIN zu einem Kreis zusammenfassen (erst ab AutoCAD 2006). Code:
Befehl: verbinden Quellobjekt auswählen: Bogen auswählen zum Verbinden mit Quelle oder [Schließen]: Bogen auswählen zum Verbinden mit Quelle: 1 gefunden Kombinierte Bogensegmente bilden einen Kreis. In Kreis umwandeln? [Ja/Nein] <Ja>: J 2 Bogen verbunden und in Kreis umgewandelt
------------------ Mit freundlichem Gruß Udo Hübner ---------- Der versteckte Fehler bleibt nie unentdeckt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 22. Mrz. 2005 17:54 <-- editieren / zitieren --> Unities abgeben:
@cadse: ich habe ja schon auf einem anderen layer die kreise, muss nur um ein NC programm zu erstellen mit umgrenzung arbeiten (kontur und versch. bohrungen) @cadminum: funzt nicht, erkennt zwar polylinien aber wandelt diese (runden) nicht in kreise. schade jörg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 22. Mrz. 2005 18:03 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
@cadworker: hast du mal ein Beispiel dafür ? Eigentlich sollte das Tool von CADmium mit allen Varianten von Polylinien arbeiten (Plinetype 0-2) (am "lebenden" Objekt experementiert es sich leichter...) ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 22. Mrz. 2005 18:04 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
.. stell doch mal bitte eine Zeichnung mit solchen "Polylinienkreisen" rein ... Mit Polylinie nachgezogene Kreise macht es nämlich bei mir, Stützpunktanzahl /LWPoly/2D-Poly ... egal .. ------------------ - 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 |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 22. Mrz. 2005 20:49 <-- editieren / zitieren --> Unities abgeben:
@moderatoren: einfach rechteck (1000x1000) erstellen, 4-5 kreise (r=1.5), oder selbst bei einem, anderer layer, umgrenzung, isolieren, schieben, fertig. dann pl2circle und ? oder liegt es an 2002? werde es gleich mal checken. jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 22. Mrz. 2005 20:58 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Zitat: Original erstellt von cadworker: @moderatoren: einfach rechteck (1000x1000) erstellen, 4-5 kreise (r=1.5), oder selbst bei einem, anderer layer, umgrenzung, isolieren, schieben, fertig. dann pl2circle und ?
Hab ich gemacht .. und funzt super! Muß allerdings gestehen, das ich zwischendurch mal ne andere vlx hochgeladen habe weil es bei der ersten mit 2D-Polys Probleme gab. Zieh dir nochmal die aktuelle Version und probiers noch mal. ------------------ - 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 |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 22. Mrz. 2005 21:11 <-- editieren / zitieren --> Unities abgeben:
|
newcad Mitglied Abteilungsleiter in der AV
Beiträge: 260 Registriert: 12.11.2003 Acad 2008 DE SP1 Expresstools DE Acad LT 2008 DE SP1<P>Intel Core2Quad Q6600 2,4GHz Windows xp pro, SP3 2GB DDR2 Ram GeForce GT 220 1024MB Zwei-Bildschirm-Arbeitsplatz TFT=V7 22"Wide TFT=V7 22"Wide AutoCAD OEM 2010 CAD+T Konstruktionsmodul
|
erstellt am: 23. Mrz. 2005 07:03 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Hallo Cadworker, vielleicht würde es ja auch Sinn machen, wenn das Programm einen zusätzlichen Layer, für die Umgrenzung, erstellen würde. Dadurch könnte später auch einfacher der Umgrenzungslayer isoliert werden. Ansgar Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 23. Mrz. 2005 20:39 <-- editieren / zitieren --> Unities abgeben:
|
flaschenpost Mitglied Architekt
Beiträge: 497 Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 23. Mrz. 2005 23:33 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Wenn Bögen vorliegen und kein 2006 zur Verfügung steht, kann man sich auch das auf einen Button packen: ^C^C(while(setq x(car(entsel)))(setq y(entget x))(setq y(reverse(cdr(member(assoc 50(reverse y))(reverse y)))))(setq y(subst '(0 . "CIRCLE")'(0 . "ARC") y))(entmake y)(entdel x)) Gruß Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 24. Mrz. 2005 06:58 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 24. Mrz. 2005 08:33 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Hier das tuts auf alle Fälle ps das macht dier auch aus eckigen Kreisen einen Kreis Code:
(defun C:P2C ( / elem minx maxx miny maxy mitte ) (vl-load-com) (while (setq elem(entsel)) (if(wcmatch(cdr(assoc 0 (entget (car elem))))"*POLYLINE") (progn (setq elem(car elem)) (vla-getboundingbox (vlax-ename->vla-object elem) 'xmin 'xmax ) ;_ end of vla-getboundingbox (setq MINX (car (vlax-safearray->list xmin)) MINY (cadr (vlax-safearray->list xmin)) MAXX (car (vlax-safearray->list xmax)) MAXY (cadr (vlax-safearray->list xmax)) MITTE (list (/ (+ MINX MAXX) 2) (/ (+ MINY MAXY) 2) ) ;_ end of list ) (entmake (list (cons 0 "CIRCLE") (cons 100 "AcDbEntity") (cons 67 0) (cons 410 "Model") (cons 8 "0") (cons 100 "AcDbCircle") (cons 10 mitte) (cons 40 (abs(distance mitte(list (/(+ maxx minx)2)miny)))) ) ;_ end of list ) ;_ end of entmake ) ) ) )
------------------ Gruß CADwieselBesucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 24. Mrz. 2005 09:27 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 24. Mrz. 2005 09:36 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
jo , echt super, der macht sogar aus einer geraden schräg in der Ebene liegenden Polylinie eine Kreis, ok, wenn sie waagerecht oder senkrecht liegt, gehts in die Hose und das Ursprungsobjekt wird auch nicht gelöscht.... und wenn man das (if(wcmatch(cdr(assoc 0 (entget (car elem))))"*POLYLINE") rausnimmt kann man es sogar für Kreise um Texte nutzen .. das nenn ich mal vielseitig ------------------ - 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 |
newcad Mitglied Abteilungsleiter in der AV
Beiträge: 260 Registriert: 12.11.2003 Acad 2008 DE SP1 Expresstools DE Acad LT 2008 DE SP1<P>Intel Core2Quad Q6600 2,4GHz Windows xp pro, SP3 2GB DDR2 Ram GeForce GT 220 1024MB Zwei-Bildschirm-Arbeitsplatz TFT=V7 22"Wide TFT=V7 22"Wide AutoCAD OEM 2010 CAD+T Konstruktionsmodul
|
erstellt am: 24. Mrz. 2005 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
@cadwiesel 1. kann man das Lisp umschreiben oder erweitern, das man mehrere Objekte auf einmal auswählen kann (vielleicht die 'Wahl Funktion einbauen)? 2. wenn ich den Befehl: P2C aufrufe und ein Objekt gewählt habe, wird auf dem vorhendenen Objekt ein zusätzlicher Kreis (mit dem aktuellen Layer) erzeugt, aber nicht die Polylinie in einen Kreis umgewandelt. Dadurch habe ich dann mehrere Objekte aufeinander liegen. Dies ist dann bei der Erstellung von CNC-Daten hinderlich. Kann man das Lisp so gestallten, daß automatisch ein andere Layer erzeugt wird, bzw. aktuell geschaltet wird? Diesen könnte ich dann isolieren, und meine gewünschten Objekte dann verschieben.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 24. Mrz. 2005 12:55 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
So, habs noch mal etwas überarbeitet und die pl2circle.VLX neu geuppt. Siehe ein Stückchen weiter oben sollte jetzt auch auf 2002 laufen.. Achso : das Teil nimmt wirklich nur kreisförmige Polylinien und löscht die Ursprungsobjekte ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." [Diese Nachricht wurde von CADmium am 24. Mrz. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 24. Mrz. 2005 12:58 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
hier isses (defun C:P2C (/ as elem minx maxx miny maxy mitte) (vl-load-com) (while (if (setq as (ssget '((0 . "*POLYLINE")))) (progn (repeat (sslength as) (setq elem (ssname as 0)) (vla-getboundingbox (vlax-ename->vla-object elem) 'xmin 'xmax ) ;_ end of vla-getboundingbox (setq MINX (car (vlax-safearray->list xmin)) MINY (cadr (vlax-safearray->list xmin)) MAXX (car (vlax-safearray->list xmax)) MAXY (cadr (vlax-safearray->list xmax)) MITTE (list (/ (+ MINX MAXX) 2) (/ (+ MINY MAXY) 2) ) ;_ end of list ) ;_ end of setq (entmake (list (cons 0 "CIRCLE") (cons 100 "AcDbEntity") (cons 67 0) (cons 410 "Model") (assoc 8 (entget elem)) (cons 100 "AcDbCircle") (cons 10 mitte) (cons 40 (abs (distance mitte (list (/ (+ maxx minx) 2) miny))) ) ;_ end of cons ) ;_ end of list ) ;_ end of entmake (setq as (ssdel elem as)) (entdel elem) ) ;_ end of repeat ) ;_ end of progn ) ;_ end of if ) ;_ end of while ) ;_ end of defun ------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
newcad Mitglied Abteilungsleiter in der AV
Beiträge: 260 Registriert: 12.11.2003 Acad 2008 DE SP1 Expresstools DE Acad LT 2008 DE SP1<P>Intel Core2Quad Q6600 2,4GHz Windows xp pro, SP3 2GB DDR2 Ram GeForce GT 220 1024MB Zwei-Bildschirm-Arbeitsplatz TFT=V7 22"Wide TFT=V7 22"Wide AutoCAD OEM 2010 CAD+T Konstruktionsmodul
|
erstellt am: 24. Mrz. 2005 13:06 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 24. Mrz. 2005 13:22 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Zitat: Original erstellt von newcad: Hallo cadwiesel,Was muss ich aus dem Lisp löschen, wenn ich vermeiden will, das auch die Rechtecke zu Kreisen werden?
Wiesel arbeitet mit getboundingbox! Da werden Rechtecke, Dreiecke, schräg in der Ebene liegende gerade Polylinien.. zu Kreisen! Um wirklich bloß kreisförmige PLs umzuwandeln braucht es schon einen anderen Ansatz!! Hab ich aber oben schon mal erläutert.. ------------------ - 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 |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 24. Mrz. 2005 13:39 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
etwas Eigeninitiative bei der Auswahl der Objekte wollte ich euch schon überlassen. Der Vorteil ist aber auch, daß mit dieser Methode solche 'Krüppelkreise' wie sie aus Importformaten kommen können schön Rund gemacht werden. Ich habe noch den Layer angepasst. Der Kreis wird nun auf dem Layer worauf das Quellobjekt lag, erstellt. ------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
newcad Mitglied Abteilungsleiter in der AV
Beiträge: 260 Registriert: 12.11.2003 Acad 2008 DE SP1 Expresstools DE Acad LT 2008 DE SP1<P>Intel Core2Quad Q6600 2,4GHz Windows xp pro, SP3 2GB DDR2 Ram GeForce GT 220 1024MB Zwei-Bildschirm-Arbeitsplatz TFT=V7 22"Wide TFT=V7 22"Wide AutoCAD OEM 2010 CAD+T Konstruktionsmodul
|
erstellt am: 24. Mrz. 2005 14:08 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Also ich versuche es mal, Wir haben Bibliothekszeichnungen mit Bauteilen, die mit/zu Blöcken verschachtelt sind. Beispiel: Stell Dir einen einfachen Schrank (im Grundriss) mit einem Boden vor. Auf diesem Boden sind die Seiten des Schrankes als Rechtecke (als Block) gezeichnet. Die Seiten liegen auf dem Layer Seiten, der Sockelboden auf dem Layer Sockelboden. In dem Zeichnungsblock der Seiten sind die Bohrungen für Schrauben oder Dübel als Kreise gezeichnet. Diese liegen aber auf dem Layer Boden. Wenn ich nun den Layer Boden isoliere, kann ich auf ihm eine Umgrenzung erzeugen und diese in eine CNC-Datei schreiben. Um aber über die Schnellauswahl die Kreise/Polylinien einem CNC-Werkzeug zuordnen zu können, müssen es Kreise sein. Da unsere Schränke aber nur selten rechteckig aussehen, wäre es toll, wenn ich alle Objekte auswählen könnte, mir aber nur die Kreise umgewandelt würden. Hilft das weiter? Ansgar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 24. Mrz. 2005 14:20 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Hallo Ansgar... sag mal, hast du mich auf der Ignoreliste ? Liest du dir meine Beiträge nicht durch? Für dein Anliegen ist Wiesel's Lisp ungeeignet!! dafür mußt du das nehmen!!! ------------------ - 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 |
newcad Mitglied Abteilungsleiter in der AV
Beiträge: 260 Registriert: 12.11.2003 Acad 2008 DE SP1 Expresstools DE Acad LT 2008 DE SP1<P>Intel Core2Quad Q6600 2,4GHz Windows xp pro, SP3 2GB DDR2 Ram GeForce GT 220 1024MB Zwei-Bildschirm-Arbeitsplatz TFT=V7 22"Wide TFT=V7 22"Wide AutoCAD OEM 2010 CAD+T Konstruktionsmodul
|
erstellt am: 24. Mrz. 2005 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Hallo Thomas, ich will dich überhaupt nicht ignorieren. Im Gegenteil. Als das Posting am Dienstag begonnen hat, habe ich mir deine vlx geladen. Klappte auch bis gestern. Dann wurde ich immer durch eine AutoCad Meldung an einen abgelaufenen Testzeitraum erinnert, mit dem Hinweis mich bei cadmium@cad.de zu melden. Die Meldung habe ich dann ignoriert. Beim nächsten Versuch die Polylinien umzuwandeln machte AutoCad die letzten ca.100 Befehle rückgängig. (Wie bei meiner PM über die Konstruktionslinien. Du erinnertst dich?) Als dann das posting mit dem Lisp kam hatte ich die Hoffnung das wäre die Lösung für effizenteres Arbeiten. Da ich aber keine Ahnung davon habe, was man mit Lisp oder VLX machen kann, bin ich an dieser Stelle unwissend. Ansgar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
newcad Mitglied Abteilungsleiter in der AV
Beiträge: 260 Registriert: 12.11.2003 Acad 2008 DE SP1 Expresstools DE Acad LT 2008 DE SP1<P>Intel Core2Quad Q6600 2,4GHz Windows xp pro, SP3 2GB DDR2 Ram GeForce GT 220 1024MB Zwei-Bildschirm-Arbeitsplatz TFT=V7 22"Wide TFT=V7 22"Wide AutoCAD OEM 2010 CAD+T Konstruktionsmodul
|
erstellt am: 24. Mrz. 2005 18:11 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Hallo Thomas, auch auf die Gefahr hin, daß ich dich nerve. Ich habe gerade die vlx neu geladen. APPLOAD pl2CIRCLE.vlx erfolgreich geladen. Nach dem Aufruf mit PL2Circle kommt aber die Meldung: Unbekannter Befehl "DT:PL2CIRCLE". Drücken Sie F1-Taste für Hilfe. Was mache ich falsch? Ansgar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 25. Mrz. 2005 09:54 <-- editieren / zitieren --> Unities abgeben:
bei mir ist es genauso, DT:PL2CIRCLE und ?????? nichts passiert ausser die von ansgar geschriebene meldung. oder ist DAS die 2002-version jörg [Diese Nachricht wurde von cadworker am 25. Mrz. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 25. Mrz. 2005 10:00 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
also unter AutoCAD 2004 funzt es ganz normal - unter AutoCAD 2006 leider nicht (da werde ich aber mit Thomas direkt drüber sprechen). Und eine Meldung in Richtung mit CADmium in Verbindung setzen konnte ich auch nie reproduzieren.... ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadworker Mitglied Holztechniker
Beiträge: 106 Registriert: 09.10.2004 AMD K7 2400 256 DDR; XP-Prof. SP2; ACAD 2002+2004 Voll; ET
|
erstellt am: 25. Mrz. 2005 10:21 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von tunnelbauer: Und eine Meldung in Richtung mit CADmium in Verbindung setzen konnte ich auch nie reproduzieren....[/B]
diese "meldung" bezieht sich auch eher auf das plaetten.lsp habe ich nähmlich auch jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Gromhelm2 Mitglied
Beiträge: 45 Registriert: 06.11.2006 AutoCad MAP 3D 2010
|
erstellt am: 06. Jan. 2008 12:28 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
|
Gromhelm2 Mitglied
Beiträge: 45 Registriert: 06.11.2006 AutoCad MAP 3D 2010
|
erstellt am: 06. Jan. 2008 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
ah super, habs hinbekommen, das hier funktioniert: Zitat:
(defun C:P2C (/ as elem minx maxx miny maxy mitte) (vl-load-com) (while (if (setq as (ssget '((0 . "*POLYLINE")))) (progn (repeat (sslength as) (setq elem (ssname as 0)) (vla-getboundingbox (vlax-ename->vla-object elem) 'xmin 'xmax ) ;_ end of vla-getboundingbox (setq MINX (car (vlax-safearray->list xmin)) MINY (cadr (vlax-safearray->list xmin)) MAXX (car (vlax-safearray->list xmax)) MAXY (cadr (vlax-safearray->list xmax)) MITTE (list (/ (+ MINX MAXX) 2) (/ (+ MINY MAXY) 2) ) ;_ end of list ) ;_ end of setq (entmake (list (cons 0 "CIRCLE") (cons 100 "AcDbEntity") (cons 67 0) (cons 410 "Model") (assoc 8 (entget elem)) (cons 100 "AcDbCircle") (cons 10 mitte) (cons 40 (abs (distance mitte (list (/ (+ maxx minx) 2) miny))) ) ;_ end of cons ) ;_ end of list ) ;_ end of entmake (setq as (ssdel elem as)) (entdel elem) ) ;_ end of repeat ) ;_ end of progn ) ;_ end of if ) ;_ end of while ) ;_ end of defun
wenn man das prog mit p2c aufruft. Ganz viel Danke!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 06. Jan. 2008 16:47 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
Zitat: Original erstellt von Gromhelm2: Hallo,gibt es eine vlx-Datei für Autocad 2007 ? Leider funktioniert es nicht - es kommt die Meldung ; error: no function definition: C T:PL2CIRCLE
... da Tool hat einfach sein Absolutes Verfallsdatum erreicht ...und da dir das andere Lisp genügt, brauch ich die vlx ja nicht neu kompilieren ...?! ------------------ - 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 |
Gromhelm2 Mitglied
Beiträge: 45 Registriert: 06.11.2006 AutoCad MAP 3D 2010
|
erstellt am: 06. Jan. 2008 18:06 <-- editieren / zitieren --> Unities abgeben: Nur für cadworker
|