|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 14.07.2003 um 15:12 Uhr (0)
So, ich habe nun das Problem gelöst. Es ist ganz einfach: Es ist entscheidend, ob man den Schnittpunkt zwischen der blauen Linie und der grünen Linie sucht oder umgekehrt. Ich habe in das LISP somit eingefügt, dass wenn kein Schnittpunkt gefunden wird, die Inhalte der Variablen ent1 und ent2 vertauscht werden sollen. Dann erhalte ich den fehlenden SP. (Vielleicht hilft dieser Beitrag irgendwann mal anderen, die das gleiche Problem haben). Viele Grüße Andrea
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 15.07.2003 um 07:19 Uhr (0)
Hallo Theodor, gut ist übertrieben, ich habe nämlich schon wieder ein Problem entdeckt. Wenn eine der Linien aus vielen kleinen, einzelnen Linien zusammengesetzt wurde, dann läßt sich schon wieder kein Schnittpunkt finden. Es ist zum Verrückt werden. Wenn ich das Problem gelöst habe, dann werde ich das LISP hier rein stellen. Viele Grüße Andrea
|
| In das Form AutoLisp wechseln |
|
AutoLisp : mtext --> text
Brischke am 16.07.2003 um 10:03 Uhr (0)
Hallo Attilio, prinzipiell ist das sicher machbar, man muß nur aus dem Text die Font s auslesen. Problem ist (zwar jetzt nicht in der Bsp-Zeichnung), dass innerhalb eines MTEXT auch mehrere Font s genutzt werden. Gehst du da mit Ursprung drauf, werden entsprechend der Fonts einzelne Textobjekte erzeugt. Es ist dann nicht mehr ein Textobjekt, nicht einmal je Zeile, sondern in einer Zeile werden einzelne Textobjekte erzeugt, und ob das dann das Ziel ist? Überleg Dir das noch mal, ob das dann wirklich so sein ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
TK_KE am 16.07.2003 um 10:31 Uhr (0)
........ dumme Frage : DXF-Codes usw sind mir ja bekannt, aber GC-3 ???? Kleiner Tipp wäre nett! (auch mit Lisp , dann spare ich mir die Arbeit ;-) ) Gruß Thomas
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
Brischke am 17.07.2003 um 08:26 Uhr (0)
Hallo Thomas, die Zeilen: (setq e1 (entget (TBLOBJNAME layer (nth n lst)) ( RAK )) xd (cdr (assoc -3 e1)) Fragen nur EED s der Applikation RAK ab. Dies wird jedoch nicht die sein, die für das Mechanical-Layermanagement verantwortlich ist. Nimm mal an Stelle des RAK ein *, dann werden alle EED s ausgegeben. (setq e1 (entget (TBLOBJNAME layer (nth n lst)) ( * )) xd (cdr (assoc -3 e1)) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! I ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Auswahlsatz - nach Farbe filtern?
Brischke am 10.07.2003 um 16:12 Uhr (0)
Hallo Jürgen, dann sucht man nicht mehr nach der Farbe, sondern nach den Layern, die alle Rot sind. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.08.2003+!+!+
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Auswahlsatz - nach Farbe filtern?
Brischke am 11.07.2003 um 10:45 Uhr (0)
Hallo Jürgen, dann nimmst du einmal die Variante Layer SOWIESO +Farbe VONLAYER und das andere mal, nur die Farbe FARBNR . Beides addiert ergibt dann, das was du suchst. So kann das dann aussehen: Code: (defun ssget:Farbe (farbe vLayer / at autom as) (if vlayer (setq at T autom (apply strcat (mapcar (lambda (S) (if at (progn (setq at nil) S );progn (strcat , S) ) ) (apply append (mapcar (lamb ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Auswahlsatz - nach Farbe filtern?
Brischke am 21.07.2003 um 11:40 Uhr (0)
Hallo Wisch, Code: (setq AS (ssget _X )) (mapcar (lambda (EL) (setq AS(ssdel EL AS)) ) (append (ssget:Farbe 7 T) (ssget:Farbe 7 nil) ) ) (mapcar entdel (bau_elemli AS)) damit sollte es dann gehen (in Verbindung mit dem vorherigen Code-Zeilen) Bei Fragen... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.08.2003+!+!+
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerbeschreibung im Layerdialog von ADT 2004
JürgenBecker am 18.07.2003 um 08:35 Uhr (0)
Hallo Leute, weiß jemand wie ich per Lisp oder VBA an die Layerbeschreibung komme, die im Layerdialog vom ADT-2004 angezeigt wird. Jürgen
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerbeschreibung im Layerdialog von ADT 2004
tmoehlenhoff am 21.07.2003 um 12:33 Uhr (0)
Da muss man wohl etwas weiter ausholen: Im Normalfall steht die Beschreibung überhaupt nicht in der Zeichnung, da sind per default z.B. im Layerstandard Architectural Desktop Format aus einem vorangestelltem ADT:, dem Entwurfsverfasser (in der Regel also Architekt), einem / und dem Komponentenfeld Inhalt 1 des Layerschlüssels besteht. Der Layermanager baut also die Beschreibung immer dynamisch zusammen, was man gut beobachten kann, denn wenn man den Layer umbenennt paßt sich die Beschreigung automatisch ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zeichenkette entfernen
edgar am 28.07.2003 um 14:33 Uhr (0)
Hallo Leute, Wie kann man in Lisp eine Zeichenkette entfernen? (remove #u Gurke.pkg ) = Grke.pkg Wenn ich aber jetzt nicht das u, sondern das .pkg entfernen möchte, wie mache ich das? Gruß Edgar
|
| In das Form AutoLisp wechseln |
|
AutoLisp : AutoCAD-Layer zurückschalten
Günther Frischbier am 29.07.2003 um 14:22 Uhr (0)
Hallo LISP-Experten, Ich habe eine Funktion zur Erzeugung eines Bogenmasses. Bevor diese jedoch erzeugt wird (auf Layer AM_5), wird der zuvor aktuelle Layer ausgelesen und weggeschrieben (Variable Layer_alt ). Am Ende des Programms soll wieder auf das vor der Bogenmaßerzeugung aktuelle Layer geschaltet werden. Leider klappt das nicht so richtig; das Programm gibt folgende Fehlermeldungen: Befehl: Bitte Bogen wählen: _dimangular Bogen, Kreis, Linie wählen oder Scheitelpunkt angeben : Position des Maßbogen ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layer aufruf aus DCL
Brischke am 29.07.2003 um 17:08 Uhr (0)
Hallo Waldemar, so wie es Helmut beschrieben hat, sollte es gehen. Ich halte eine derartige Vorgehensweise jedoch nicht für so gut. Ich trenne in den Funktionen generell die Benutzereingaben von der eigentlichen Arbeitsfunktion . Somit hat man sehr leicht die Möglichkeit aus einem Tool mit Dialogfenster eines zu basteln, welches nur in der Befehlszeile arbeitet. Außerdem ist es in vielen Fällen so, dass die Dialogfenster vom Aufbau her gleich sind, nur eben die Bezeichner der Felder, oder die Listen mit a ...
|
| In das Form AutoLisp wechseln |
