|
pit-cup : Pit-Effekt beim öffnen von Zeichnungen ?
Juergen55 am 07.04.2007 um 00:06 Uhr (0)
Hallo Hetkala,ja die Darstellung des Lisp-Codes trägt nicht gerade zum leichten verstehen bei ! In einer Zeile leicht zusammengefasst, sollte es so gehen:(if (not (menugroup "Elektro"))(progn (command "_menuload" "Elektro")(menucmd "P20=+Elektro.pop1")))Also für das Menü Elektro solltest Du dann Dein entsprechendes Menü einsetzen. Bei (if (not (menugroup "Elektro")) sollte diese Menügruppe in diesem Menü auch vorkommen !Gruß, Jürgen
| | In das Form pit-cup wechseln |
|
AutoLisp : Kennt jemand die Parameter zum View-Befehl ?
Juergen55 am 08.02.2004 um 20:22 Uhr (0)
Hallo, ich wollte mir ein kleines Lisp für Ausschnitte erstellen, habe aber Probleme mit den Parametern zum Befehl View ist es wirklich so das diese Parameter nirgendwo beschrieben sind ? geht das nur über testen in der Befehlszeile ? Eigentlich sollte es so funktionieren das tut es aber nur in der Befehlszeile ! (defun c:T14 () (setq ga 1) (while (/= ga 0 ) (command _view _window 01 ) (command _view _window 02 ) ) ) Wie muß der Befehl aussehen damit es klappt hab scho ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Zoom-Befehl per Lisp mit Faktor XP ?
Juergen55 am 23.02.2004 um 14:35 Uhr (0)
Hallo, anbei nun das Ergebnis was ich programmiert habe : Eine direkte Massstabseingabe für die Ansichtsfenster, durch die While-Schleife widerholt sich das ganze, und man kann testen welcher Masstab am besten passt ! (defun c:T11 () (setq ga 1) (while (/= ga 0) (setq ba (getvar tilemode)) (if (= ba 1)(progn (setvar tilemode 0))) (command _.MSPACE ) (princ
Eventuell Ansichtsfenster wechseln ! ) (setq fa (getreal
Massstab eingeben 1 : )) (setq fa (/ 1 fa)) (setq fx (strcat (rtos fa) xp )) (prin ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Attributseigenschaften übertragen mit entmode, entupd, was stimmt hier nicht ?
Juergen55 am 16.07.2004 um 18:21 Uhr (0)
Hallo, ich hab hier ein kleines Lisp das noch nicht ganz so funktioniert, im ersten Teil werden von einem bestehenden Attribut Eigenschaften gelesen, dann wird ein neues Attribut erstellt mit den Eigenschaften des bestehenden Attributs ! Im zweiten Teil werden dann mit entmod und entupd weitere Eigenschaften übertragen und das funktioniert noch nicht richtig es wird nur die erste Eigenschaft übertragen dann steigt das Ganze aus, woran kann es liegen ? Der Fehler hängt wohl mit dem entupd zusammen ! Hier de ...
| | In das Form AutoLisp wechseln |
|
Rund um Autocad : In Datei drucken mit Lisp ?
Juergen55 am 02.11.2003 um 20:03 Uhr (0)
Hallo, Danke für die vielen Antworten, ich hab jetzt heute Nachmittag endlich mal Zeit gehabt mir das selber genauer anzusehen ! Für alle die auch Interesse daran haben, hier nun meine Lösung zum Problem : (defun c:T12 () (while (setq bview (tblnext "VIEW" (not bview))) (setq bviewN(cdr (assoc 2 bview))) (setq v (getstring " Pfad-Plotdateiname (x:/xxxx/xx.plt) ")) (command "_.-plot" "ja" "modell" "" "" "millimeter" "hochformat" "nein" "ansicht" bviewN "anpassen" "" "ja" "acad.ctb" "ja" "nein" "ja" ...
| | In das Form Rund um Autocad wechseln |
|
AutoLisp : Block an einer Kante absetzen mit OFang möglich ?
Juergen55 am 27.09.2004 um 20:44 Uhr (0)
Hallo, folgende kleine Routine benutze ich zum einfügen von Blöcken, um diese ausgerichtet an einer Kante abzusetzen. Dies funktioniert im Prinzip auch, aber wenn ich den Absetzpunkt mit OFang wähle, wird mir der Block immer leicht versetzt zur eigentlich gewählten Kante ! Wo liegt der Fehler in meiner Routine ? Seltsamerweise klappt es wunderbar wenn der OFang ausgeschaltet wird, wie kommt das, kann es sein das ACAD-Befehle die aus Lisp heraus aufgerufen werden nicht mehr korrekt funktionieren ? Wenn man ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
