|
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 |
|
AutoLisp : Layer aufruf aus DCL
Brischke am 30.07.2003 um 13:32 Uhr (0)
Hallo Waldemar, Hallo Theodor, hier nun mal ein schnell zusammen geschossenes Beispiel Ich habe ein Dialogfenster, eine Lisp. In der Lisp sind insgesamt 4 Funktionen definiert. Rechteck zeichnen und 2 Zahlen multiplizieren, jeweils 1x mit und 1x ohne Dialogfenster. Bei Fragen ... Grüße Holger Code: ;;;Hauptprogramm - Multiplikation mit DIA (defun c:mal (/) (main_sub multipliziere "Multiplikation" "Faktor 1" "Faktor 2") (princ) ) ;;;Hauptprogramm - Multiplikation ohne DIA (defun c:-mal (/) (main ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : koordinate checken
Brischke am 31.07.2003 um 10:47 Uhr (0)
Hallo Marvin, mit Code: (ssget _X (list (-4 . and ) (0 . LINE ) (-4 . or ) (cons 10 Koordinate) (cons 11 Koordinate) (-4 . or ) (-4 . and ) ) ) geht das eleganter - aber ob am Ende das Ergebnis tatsächlich den Tatsachen entspricht ist fraglich. Sicherer ist es wirklich alle Linien Anfangs- und Endpunkte mit der Koordinate zu vergleichen. Aber nicht mit (= A B) sondern mit (equal A B toleranz) Die ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : koordinate checken
Brischke am 31.07.2003 um 11:50 Uhr (0)
immer wieder die selben ;-) Ok- ich werde mir einen anderen Nick besorgen, damit das dann nicht so auffällt. besonders frustrierend, wenn man das wissen eigentlich hat, aber einfach nicht drauf kommt...naja die übung machts, hoff ich mal ;-) Ich bin auch erst ca.10 Jahre beim AutoLISP - kann deine Hoffnungen bestätigen - allein der Meilenstein weg vom (command..) zum (entmake..) brauchte Jahre das mit dem equal ist ein guter tip...danke Habe ich selber Tage/Wochen/Monate für gebraucht, um das ...
|
| In das Form AutoLisp wechseln |
