|
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 |
|
AutoLisp : Testen ,ob der Befehl/Funktion verfügbar ist.
TK_KE am 08.09.2003 um 11:46 Uhr (0)
Hallo CADwiesel! ... wenn es doch so einfach wäre... !!!!!! ... ne, das sind Befehle aus ner "arx" wie "_line" und andere AUTOCAD-Befehle. (not _line) oder (not c:_line) ergibt auch immer T und der Befehl ist vorhanden... Und da nicht jeder die Mechanical-Erweiterung hat, meine Progs aber da ohne größere Fehlermeldungen auch laufen sollen.... Bei selbstdefinierten Lisp s funktoniert Deine Variante aber natürlich. Weiter Vorschläge????????? In Erwartung Thomas
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Testen ,ob der Befehl/Funktion verfügbar ist.
Brischke am 08.09.2003 um 11:56 Uhr (0)
Dann versuche es doch über eine Versionsabfrage - ist nur so eine Idee... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Ich bin vom 07.-10.10. auf dem Anwendertreffen anzutreffen.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Testen ,ob der Befehl/Funktion verfügbar ist.
Brischke am 08.09.2003 um 12:28 Uhr (0)
Hallo, um das einiegermaßen hantieren zu können, kannst du ja die Versionen in eine ASCII-Datei schreiben. Ich würde dass dann in folgendem Format machen: ("VERSION_X" . T);wenn lauffähig ("VERSION_Y" . nil);wenn nicht Dann ist für dich nur die Version aus der aktuellen Acad-Version wichtig, die du dann mit Hilfe der ASCII-Datei abschecken kannst ob es denn läuft. Vorteil, bei neuen Versionen brauchst du nur die ASCII-Datei tauschen. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over nigh ...
|
| In das Form AutoLisp wechseln |
