|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
Brischke am 06.05.2004 um 12:09 Uhr (0)
Hallo Ralph, wer diese Zeilen mal verbockt hat, dass kann ich dir sagen. ;-) Solange du allerdings die andere Lisp hier nicht einstellst, kann ich nicht mehr tun, als dir den Hinweis auf (setvar..) (getvar ..) zu geben. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : plot protokoll
Brischke am 06.05.2004 um 12:14 Uhr (0)
Hallo Michelangelo, Ich würde das der Einfachheit halber mit einer ASCII-Datei lösen. Dazu einen Reactor gebastelt, der dann automatisch die Daten (Welche eigentlich??) in diese Datei schreibt. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
Brischke am 06.05.2004 um 12:22 Uhr (0)
Hallo Ralph, dann sieht es so aus: Code: (defun lbogen(cen p1 len / ang1 ang2 ang3 rad) (setq rad(distance cen p1)) (setq ang1(angle cen p1)) (setq ang2(+ ang1(/ len rad))) (if(minusp len)(setq ang3 ang1 ang1 ang2 ang2 ang3 len(abs len))) (entmake (list (0 . arc ) (cons 10 cen) (cons 40 rad) (cons 50 ang1) (cons 51 ang2) ) ) ) (defun c:lbogen1( / cen oldlayer) (setq oldlayer (getvar CLAYER )) (if (tblobjname LAYER 0_Li_Cy_013 ) (setvar CLAY ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : plot protokoll
Brischke am 06.05.2004 um 13:11 Uhr (0)
Hallo Michelangelo Was hast du denn schon zu Papier gebracht? Wo hakt es denn konkret? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fortlaufende Nummern
Brischke am 06.05.2004 um 14:41 Uhr (0)
Hallo Heinz, mit diesem Tool wird nichts kopiert, nur erzeugt. Deshalb ist es auch nicht möglich das Objekt vorher anzuzeigen (oder nur mit großem Aufwand). Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fortlaufende Nummern
Brischke am 06.05.2004 um 15:00 Uhr (0)
Hallo Heinz, klar kann man das machen, aber wie du selber schon festgestellt hast, ist das etwas schwieriger und zeitaufwendiger. Die Logic aus CADmiums Beitrag müsstest du dann einarbeiten. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
Brischke am 10.05.2004 um 10:30 Uhr (0)
Hallo Ralph, Ist vielleicht noch irgendein anderer Befehl aktiv? Was steht denn im Textfenster? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
Brischke am 10.05.2004 um 10:38 Uhr (0)
Hallo Ralph, verändere mal die Zeile (setvar CMDECHO 1 ) auf 1 dann schau noch einmal, was im Textfenster so steht. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
Brischke am 10.05.2004 um 11:17 Uhr (0)
Sicher, dass dieser Layer 0_Li_Cy_013 existiert? Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
Brischke am 10.05.2004 um 11:48 Uhr (0)
Hallo Marc,wozu ist dies: (if ( (- (length LST) (length (vl-remove ELEM LST))) 1) überhaupt drin? Es ist doch gar nicht notwendig, das Element von der Liste zu entfernenDeshalb dann soCode:(defun DOUBLES? (LST / RETVAL) (foreach E LST (if (not (member E RETVAL)) (setq RETVAL (cons E RETVAL)) ) ) (reverse RETVAL) );oder an Stelle der (foreach ..) (mapcar (lambda (E) (if (not (member E RETVAL)) (setq RETVAL (cons E RETVAL)) ) ) LST )Grüße Holger------------------Holger Brischke(defun - ...
|
| In das Form Lisp wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
Brischke am 10.05.2004 um 12:45 Uhr (0)
Hallo Marc,Ok, habe es nicht getestet, nur überflogen und dann geschrieben.Hier deshalb das ganze ohne (vl-..) und so wie du es benötigst. Ich habe das ganze dann auch so gemacht, dass du mal dies und mal jenes als Ergebnis erhältst.Code:(defun DOUBLES? (LST WIE / RETVAL CHECK);|WIE - T = Liefert die doppelten Einträge der Liste LSTWIE - nil = Liefert die nicht doppelt vorhandenen Einträge der Liste LSTBSP:(DOUBLES? (0 1 2 3 4 5 6 6 7 8 9 6 11) T); - (6)(DOUBLES? (0 1 2 3 4 5 6 6 7 8 9 6 11) nil); - (0 1 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : schnitt linie mit kreis/lwpolylinie
Brischke am 10.05.2004 um 13:44 Uhr (0)
Hallo Jan, Die Berechnung von Schnittpunkten ist doch seit vlax-... überhaupt kein Problem mehr. Schau mal in der VBA-Hilfe nach der Methode IntersectWith . Ebenso kannst du mal auf den einschlägig bekannten Sieten mal etwas die Suchfunktion mit desem Begriff quälen oder eben stöbern. Du wirst bestimmt fündig. z.B. hier Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : mehrere Zeichnungen mit Script bearbeiten
Brischke am 11.05.2004 um 14:12 Uhr (0)
Hallo Georg, dann musst du dir ein Programm schreiben, das alle diese Dateinamen ermittelt, und dann eine Script-Datei mit allen diesen Namen schreibt, die dann wiederum aufgerufen wird. Oder du nimmst ScriptPro aus den Migrationstools. oder bei obi Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
