|
AutoLisp : GC10 mit nentsel in
Brischke am 10.07.2003 um 15:07 Uhr (0)
Hallo T. Bürger, so schlimm ist das auch nicht. Folgende Zeilen veranschaulichen das Prinzip. Code: (defun c:TTT (/ pick obj masterobj zpt wie) (arxload geomcal (princ geladen )) (setq pick (nentsel)) (if pick (setq obj (cdr(assoc 10 (entget(car pick)))) masterobj (cdr(assoc 10 (entget(car(last pick)))))) ) (setq zpt(mapcar + obj masterobj) wi (* (/ 180.0 pi)(cdr (assoc 50 (entget(car(last pick))))))) (setq zpt(cal rot(zpt,masterobj,wi) )) (command _.LINE z ...
|
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
Brischke am 10.06.2003 um 19:51 Uhr (0)
Hallo Andrea, ich habe mir zwar die Zeichnung nicht angesehen, aber mal in Dein Lisp reingeschaut. Versuche es mal mit folgendem Code. Dieser ermittelt den/die Schnittpunkte von 2 Elementen. Falls du wissen willst, was diese Zeilen anrichten , dann schau mal auf Axel s VL-Seiten, da solltest du diesen Code auch finden. Code: (defun intersect(ent1 ent2 / ar) (vl-load-com) (setq ar (vlax-invoke-method (vlax-ename- vla-object ent1) IntersectWith (vlax-ename- vla-object ent2) ...
|
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
Brischke am 12.06.2003 um 08:40 Uhr (0)
Hallo Andrea, ein Toleranzwert ist nicht möglich. Was heißt eigentlich, schneiden sich nicht direkt? Entweder die Linien schneiden sich - oder nicht! Du könntest natürlich die Linien in eine Ebene Projezieren und dann die Schnittpunkte ermitteln, aber ob dir das weiterhilft? Ich denke, du solltest die Linien genauer der Körperkontur anpassen, dann schneiden die sich auch. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33 ...
|
|
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 ...
|
|
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 ...
|
|
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+!+!+
|
|
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 ...
|
|
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+!+!+
|
|
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 ...
|
|
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 ...
|
|
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 ...
|
|
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 ...
|
|
AutoLisp : Maus oder Tastatur benutzt ??
Brischke am 31.07.2003 um 10:50 Uhr (0)
Hallo pan, meines Wissens nicht. Aber was willst du mit einer relativen Koordinaten Eingabe? dann mach (getdist..) und errechne, falls du das brauchst den Winkel hinterher, oder du verschiebst das BKS und rechnest mit (trans den Punkt auf dieses Koordinatensystem um. Irgendwie sehe ich keinen Sinn in deinem Vorhaben - lass mich aber gerne aufklären. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.0 ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
