|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : reskalieren mit lisp (amrescale)
tappenbeck am 17.10.2006 um 16:26 Uhr (0)
hallo cadmium,in wieweit würde amrescale auch mit einem "normalen" autocad zusammenarbeiten ??mir ist der befehl unbekannt ?und aus welchem aufsatz stammt dieser ?gruß Jan :-)------------------jan :-)
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 17.10.2006 um 11:52 Uhr (0)
Hallo zusammen,ich habe mir auf den Nummerntastenblock Shortcuts für Punktfilter gelegt um während des Zeichnens immer schnell damit arbeiten zu können.Das klappte auch bis Autocad 2004 ganz gut.Seitdem aber die dynamische Eingabe (am Cursor) eingeführt wurde, funktionieren die Shortcuts nicht mehr richtig.Wenn ich z.B. beim Zeichnen einer Linie "6"-Drücke (für .X-Filter) dann erscheint in der Befehlszeile richtig .X von aber gleichzeitig erscheint in der dynamischen Eingabe eine 6.Daraufhin löst sich der ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 19.10.2006 um 10:53 Uhr (0)
Ich nochmal.Die Frage mal etwas einfacher formuliert:Gibt es eine Möglichkeit, einen in Lisp definierten Befehl transparent zu starten (also während ein anderer Befehl aktiv ist)?------------------GrußMarkus
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 19.10.2006 um 11:17 Uhr (0)
Hallo CADwiesel,habe gerade herausgefunden, dass ich die Punktfilter (z.B. ".x") nicht aus Lisp gestartet kriege. Sind die Punktfilter vielleicht fest in den Acad-Befehlen integriert?Hier mein Code:Code:(defun c:xfil() (setq dynm(getvar "dynmode")) (setvar "dynmode" 0) (command ".x") (setvar "dynmode" dynm))------------------GrußMarkus
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 19.10.2006 um 14:40 Uhr (0)
Hallo CADchup,stimmt. Aber das ".X" lässt sich so nicht aus Lisp starten (Unbekannter Befehl...).Gibts da vielleicht eine andere Möglichkeit?------------------GrußMarkus
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 20.10.2006 um 07:46 Uhr (0)
Hallo CADwiesel,das ist der Punktfilter, der sich anscheinend nur bei einer Objekterstellung benutzen lässt.Daher vermute ich mal, dass die Punktfilter fest in den Objektbefehlen (z.B. Linie) integriert sind.Kann ich diese Punktfilter trotzdem irgendwie in Lisp aufrufen?------------------GrußMarkus
|
| In das Form Lisp wechseln |
|
Lisp : (command _open)
CADwiesel am 24.10.2006 um 07:29 Uhr (0)
wo? im einem script, oder einem Lisp?und was heißt funktioniert nicht?gib das doch mal in deiner Befehlszeile ein wasn dann?------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : (command _open)
bu am 24.10.2006 um 07:36 Uhr (0)
Tach CADwiesel,grundsätzlich in Lisp.Ich will eine Datei direkt öffen und dachte es geht über:(setvar "filedia "0")(command "_open" "C: est.dwg")(setvar "filedia" 1)Gebe ich in die Befehlszeile _open ein springt sofort die Dialogbox "datei öffnen" auf.Gebe ich in die Befehlszeile (command "_open") passiert einfach nichts.Gruss bu
|
| In das Form Lisp wechseln |
|
Lisp : (command _open)
CADmium am 24.10.2006 um 11:06 Uhr (0)
geht nicht, da das Lisp im Namespace der aktuelen Zeichnung läuft. Man kann zwar via ActivX mehrere Zeichnungen öffnen und auch auf andere geöffnete Zeichungen zugreifen, aber der Zoombefehl läßt sich nur in der aktuellen ausführen... da hilft dir bloß ein Lisp, das die acaddoc.lsp temporär ändert, die neue Zeichnung aufruft, durch die geänderte acaddoc.lsp die Modifikation in der neuen Zeichnung vornimmt und die acaddoc.lsp wieder zurückändert.. ------------------ - Thomas -"Bei 99% aller Probleme ist ...
|
| In das Form Lisp wechseln |
|
Lisp : (command _open)
bu am 24.10.2006 um 10:32 Uhr (0)
@Paulchen (initdia) funzt leider nicht@cadmiumHut ab, der Fachmann staunt der Laie wundert sich..!Da sieht man es mal wieder, da hatte ich keine Chance.Was nicht heísst dass mir noch was einfällt. Das Problem ist, dass ich beim Öffnen gleich auf Zoom Grenzen gehen und auch noch einen Layerkonverter starten will. Beim Öffnen der Zeichnung falle ich jedoch aus meinem Lisp heraus. Und in die ACADDOC will ichs nicht einbinden da es nur spezielle Zeichnungen betrifft. Hat jeman eine Idee?Gruss bu
|
| In das Form Lisp wechseln |
|
Lisp : (command _open)
CAD-Huebner am 24.10.2006 um 11:10 Uhr (0)
Oder eine Lisp-Routine, die eine Script Datei schreibt (Mit OPEN ZOMM Usw. Und am Ende das Script startet (ungetestet - sollte aber klappen).------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Lisp wechseln |
|
Lisp : MTEXT zu TEXT - aber nur im Modellbereich
Attilio am 24.10.2006 um 12:10 Uhr (0)
Hi CADmium,danke für die rasche Antwort.Wie ich eben gesehen habe, hatte ich das Lisp gar nicht mitgeschickt.Ich habe versucht meines mit deinem zu verwurschteln...mit mäßigem Erfolg. Kannst Du mir grad helfen die 2 Lisps zueinander zu bringen ?Das da benutze ich...(defun c:mtit (/ sset mt lay counter) (setq counter 0) (if (setq sset (ssget "X" ((0 . "MTEXT")))) (repeat (sslength sset) (setq mt (ssname sset counter) lay (cdr (assoc 8 (entget mt))) counter (1+ counter) ) (command "._layer" ...
|
| In das Form Lisp wechseln |
