|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
AsSchu am 06.05.2004 um 11:13 Uhr (0)
Hallo, ich würde die .lsp und das Makro mal hier reinstellen. Dann kann man besser sehen was Du meinst. Ciao
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
cadffm am 06.05.2004 um 11:14 Uhr (0)
poste Lisp & Makro (wie du es eigentlich gern hättest - es aber nicht so weiterläuft) dann packt es dir einer mit in das Lisp (auch den Layer einstellen VOR dem Lisp kann dann da mit rein) ------------------ - Sebastian -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
Brischke am 06.05.2004 um 11:16 Uhr (0)
Hallo Ralph, neben den vielen Fragezeichen, die ich jetzt im Gesicht habe zu dem was du jetzt meinen könntest mal 2 Befehle: (getvar .. ermittelt den Wert einer Systemvariablen (setvar .. setzt den Wert einer Systemvariablen CLAYER ist die Systemvariable, welche den aktuellen Layer bestimmt. somit kannst du mit (setq oldlayer (getvar CLAYER )) den Layer vor Befehlsausführung sichern und mit (setvar CLAYER oldlayer) am Ende wieder aktuell setzen. Reicht das als Info? Grüße Holger ------------------ Hol ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : plot protokoll
Brischke am 06.05.2004 um 11:22 Uhr (0)
Hallo Michelangelo, klar geht das. Frage: Ist die XLS eine einfache ASCII-Datei oder eine wirkliche Excel-Tabelle? Ist es eine ASCII-Datei, dann kann man im LISP mit (open PFAD+DATEINAME a ) Zeilen an die Datei anfügen. Ist es eine wirkliche Excel-Tabelle wird das ganze etwas komplizierter, da man dann diese am besten mit Excel öffnet und dort dann die Daten anfügt. Wie ist es? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Installationsprogramm für Lisp-Programme
mkl-cad am 06.05.2004 um 11:40 Uhr (0)
Danke benwisch Das ACADinstall ist klasse. Sowas hab ich gesucht. Könnte dich knuddeln. 10 Points!. Martin
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
ABDN am 06.05.2004 um 11:40 Uhr (0)
Das nachfolgende Programm sollte den Layer auf 0_Li_Cy_013 setzen und danach die Lisp-Datei Boesch ausführen und danach den alten Layer wieder einstellen. Funktioniert aber nicht und ich weiss nicht warum. Kann mir jemand Helfen? Wäre super Danke (defun pre_lay (reatyp befname / );Wenn Programm gestartet wird (cond ((wcmatch (car befname) Boesch* ) (setq *oldlay* (getvar CLAYER )) (setvar CLAYER 0_Li_Cy_013 );Anstatt der 0 den Layer einsetzen, der zum Bemassen genutzt werden soll ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
Brischke am 06.05.2004 um 11:52 Uhr (0)
Hallo Ralph, das ist nun etwas ganz Anderes. Du wusstest dass du da Code eines Reactors vor dir hast? Dieser reagiert auf die Befehlsausführung eines AutoCAD Befehls. In LISP defienierte Befehle werden durch diesen Reactor nicht beachtet. Wenn du nun schon eine LISP-Datei hast, dann wäre es absoluter Unsinn einen Reactor dafür zu verwenden. Schau dir mein letztes Posting an, dann kannst du ja die Lisp-Datei am Anfang und am Ende dahingehend verändern. getvar,setvar Bei Fragen ... Grüße Holger ------------- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
ABDN am 06.05.2004 um 11:58 Uhr (0)
Hallo Holger, diese Lisp-Datei ist nicht von mir. Außerdem kenne ich mich mit Lisp zuwenig aus als das ich jetzt wüsste was du von mir willst. Ich brauche jemanden der mir so eine Lisp-Datei umschreibt bzw. erstellt. Deshalb die große Hilfe dich ich brauche. Ralph
|
| In das Form AutoLisp wechseln |
|
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
ABDN am 06.05.2004 um 12:17 Uhr (0)
Hallo Holger, dies ist die andere Lisp-Datei. Mit dieser Datei kann ich Bogen zeichnen mit eingabe einer Bogenlänge. Nun hätte ich gern, dass vor Programmstart ein bestimmter Layer eingestellt wird z.B. Bogenlayer. Nach Programm ende soll dann der alte Layer wieder zurückgesetzt werden. Kannst du mir hier weiterhelfen? (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 ...
|
| 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 : Ausführung dieser Lisp-Datei der alte Layer wieder zurückgesetzt
ABDN am 06.05.2004 um 12:29 Uhr (0)
Hi Holger, danke für deine Hilfe. Funktioniert so wie ich es mir vorgestellt habe Danke Gruß Ralph
|
| In das Form AutoLisp wechseln |
