|
AutoLisp : Polylinien
CADmium am 08.12.2003 um 22:38 Uhr (0)
Hallo Vision! Teste mal die Lisp im Anhang! ......... ... sollte dir alle Blockreferenzen - Schachtelung egal - deren Blockdefinitionen 2D-Polylinien enthalten auflösen... Solltest du allerdings für die nur die 2D-Polylinien in LW-Polylinien umgewandelt haben wollen, nimm "konvert". Im Gegensatz zu "polykonvert" geht dieser Befehl durch die ganze Zeichnungsdatenbank und somit auch durch die Blockdefinitionen. Gruß Thomas [Diese Nachricht wurde von CADmium am 20. Dez. 2003 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Polylinien
vision am 09.12.2003 um 10:37 Uhr (0)
Hallo Thomas (CADmium), das LISP "Explode_2D_Blocks" funktioniert 100-prozentig. Vielen Dank! Eine bitte hätte ich aber noch: Könntes Du noch eine Abfrage einbauen, das nur Blöcke mit 2DPolylinien mit einer globalen Breite 0.3 und 0.7 mm aufgelöst werden? Für Deine Bemühungen bedanke ich mich schon im Voraus.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Pedit / Verbinden
vision am 09.12.2003 um 12:22 Uhr (0)
AutoCAD 2002 Hallo, wer hatt noch Ressourcen frei und kann mir den Befehlsablauf zum verbinden von 2DPolylinien, wie unten aufgeführt, als Button-Befehl oder Lisp-Prg. erstellen? Befehl PEDIT: _pedit Polylinie wählen oder [mehrere Objekte]: o Objekte wählen: Option eingeben [Schließen/Öffnen/Verbinden/BReite/kurve Angleichen/Kurvenlinie/kurve LÖschen/LInientyp/Zurück]: v Fuzzy-Abstand eingeben oder [Verbindungstyp] 0.0000 : v Verbindungstyp eingeben [Dehnen/Hinzufügen/Beides] Hinzufügen : h Fuzzy-Absta ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
vision am 09.12.2003 um 13:25 Uhr (0)
AutoCAD 2002 Hallo, ich möchte auf Linien (2DPolylinien mit einer Breite 0) die sich horizontal u. vertikal kreuzen, einen Bruch auf der horizontalen Linie mit dem Bruchabstand von jeweils 0,75 mm links u. rechts vom Schnittpunkt der vertikalen Linie einfügen. Ich habe dazu schon einige Tools ohne Erfolg ausprobiert. Auch verstehe ich nicht den Aufwand, den einige Prg. zum Brechen betreiben (z. B. _CIRCLE _TRIM _.ERASE KR _ZOOM ...). Ist es denn nicht möglich, den AutoCAD Bruchbefehl per LISP ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
vision am 09.12.2003 um 15:05 Uhr (0)
Hallo CADwiesel, das LISP-Prg. ist genau das was ich suche! Vielen Dank! (Wenn Ihr ein Spendenkonto hättet, würde ich glatt was überweisen!)
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
vision am 09.12.2003 um 19:33 Uhr (0)
Hallo CADwiesel, ich versuche in dem LISP-Prg. den Fang Schnittpunkt mit (setvar OSMODE 32) vorzugeben. Leider ohne Erfolg! (Je nach dem in welcher Zeile ich das einsetze, kommt entweder eine Fehlermeldung oder es kommt kein Schnittpunkt-Fang) Wie funktioniert es? MfG Klaus
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
Brischke am 09.12.2003 um 20:15 Uhr (0)
Hallo Vision, du musst den Fang vor dem Bruchbefehl auch wieder zurück setzen, sonst arbeitet dieser nicht richtig. Zitat: Original erstellt von CADwiesel: ... (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 32) (setq t_2 (car (entsel)) schn (getpoint
Schnittpunkt wählen ) ) ;_ end of setq (setvar OSMODE 0) (command _break T_2 (vlax-curve-getPointAtDist (vlax-ename- vla-object t_2) (- (vlax-curve-getDistAtPoint ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Polylinien
CADmium am 09.12.2003 um 20:25 Uhr (0)
Seufz Habe ich es einmal angefangen, muß ich s wohl auch zu Ende führen... Das jetzige Lisp sollte so funzen wie gewünscht ....... Gruß Thomas
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
vision am 11.12.2003 um 08:54 Uhr (0)
Hallo Holger, würdest Du mir bitte das Bruch-Lisp so erweitern, dass der Befehl in einer Wiederhol-Schleife läuft und mit der rechten Mausatste abbricht? Für Deine Bemühungen bedanke ich mich im Voraus.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
Proxy am 11.12.2003 um 13:47 Uhr (0)
Zitat: Original erstellt von vision: Hallo Holger, würdest Du mir bitte das Bruch-Lisp so erweitern, dass der Befehl in einer Wiederhol-Schleife läuft und mit der rechten Mausatste abbricht? Für Deine Bemühungen bedanke ich mich im Voraus. einfach beim Button ein * hinzufügen, etwa so: Code: [_Button( Mehrfacher zentrischer Bruch , bild1.bmp , bild2.bmp )] * ^C^C^P_z_bruch ------------------ (entmake (entget (entlast)))
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Linien-Bruch
CADmium am 11.12.2003 um 14:36 Uhr (0)
Hallo Vision! Eins vorweg : .. erwarte nicht immer 100%-ige Komplettlösungen. Holger hat in seinem Signum z.B. einen Verweis auf defun.de . Da bekommst du wahrscheinlich genau die für dich zurechtgeschnittenen Lösung! Und wenn s wirklich Arbeitszeit spart, sollte dir das auch etwas wert sein! Weil aber nun wirklich der kreative Teil schon fertig ist, und es auch mal Ausnahmen geben muß, ist im Anhang das was du suchst. (Hoffentlich....) Ansonsten kann ich bloß meine Empfehlung wiederholen sich auf den en ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Punktliste sortieren!
Proxy am 14.12.2003 um 19:00 Uhr (0)
kleiner Denkanstoss Zitat: (defun STD-REMOVE-DUPLICATES (lst / ele new) (setq new nil) (foreach ele lst (if (not ( member ele new)) (setq new (cons ele new)))) (reverse new)) ------------------ (entmake (entget (entlast))) | Die Pro-Version auf Anfrage erhältlich. Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole sto ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Testen ,ob der Befehl/Funktion verfügbar ist.
CADwiesel am 08.09.2003 um 11:24 Uhr (0)
Der Befehl ist doch sicherlich auch nichts anderses, als irgendeine Lisp Prog. Versuch doch mal die Geschichte mit (if (not amlayer)(load "C:amlayer")) ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
