|
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 11:03 Uhr (0)
Danke für die schnelle Antwort - ich versuche gleich mal eine Beispielzeichnung einzufügen, sobald ich verstanden habe, wie das funktioniert.Kurz für zwischendurch eine andere Frage - gibt es einen LISP-Befehl, mit dem ich alle Objekte markieren kann? Ich hab hier ein Beispiel-Tool und versuche das ein bißchen für unsere Zwecke umzumodeln.
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
CADmium am 09.01.2012 um 11:07 Uhr (0)
für 1. am besten zippen oder umbenennen in Beispiel.dwg.txtfür 2.(sssetfirst nil(ssget "_x" (list(cons 410(getvar"CTAB")))))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
Musterzeichnung.dwg.txt |
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 11:41 Uhr (0)
Die Beispieldatei kommt gleich.Ich hab jetzt von der Autodesk University ein Tool "Changing Hundreds of AutoCAD Drawings in a Hurry" runtergeladen und versuche das gerade abzuändern.Es besteht aus 3 Dateien, einer BAT, einer SCR und einer LSP. Die BAT startet für alle DWGs im Verzeichnis eine Instanz von AutoCAD und führt daraufhin die SCR aus. Die SCR lädt die LSP ins AutoCAD, führt den in der Lisp definierten Befehl aus und schließt AutoCAD wieder. Mein Problem ist denke ich in der LISP Datei...Der Code ...
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
CADmium am 09.01.2012 um 11:51 Uhr (0)
du mußt die lsp für jede Zeichnung laden .... also in der SCR oder über die acaddoc.lsp------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 12:09 Uhr (0)
Ich lade die LSP ja doch jedesmal neu - in der SCR steht ja folgende Zeile, die das macht, dachte ich:(load "t:T-002_EXPLODEfeexplode.lsp")Die BAT lädt dann mit einer Schleife auch jedesmal die SCR Datei neu, die Schleife in der BAT sieht folgendermaßen aus:FOR %%f in (t:T-002_EXPLODEDWG*.dwg) do start /wait c:"program files"GraitecAdvanceSteel2009SteelBinAdvanceSteel8x64.exe "%%f" /b t:T-002_EXPLODEfeexplode.scrDas ist jetzt alles sehr verwirrend, ich weiß. LISP scheint schon ein bißchen Hexerei zu sein
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
CADchup am 09.01.2012 um 12:10 Uhr (0)
Hi,du hast NIL bei den Variablen stehen, so kann die Funktion nicht laufen! NIL ist ein geschütztes AutoLISP-Symbol, ein besonderes noch dazu. Axel könnte das jetzt schön erklären... Außerdem gibt es den Befehl QSAVE in einem lokalisierten Acad nicht, allenfalls _QSAVE. Und der speichert einfach nur die aktuelle DWG. Du willst aber _SAVEAS verwenden. GrußCADchup
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 13:23 Uhr (0)
Ah danke dir CADchup, damit bin ich jetzt schon einen großen Schritt weitergekommen. Das ist Magie Ich hab eure Vorschläge jetzt übernommen und meine LSP sieht mittlerweile so aus:(defun c:feexplode(/ dn pa pawbdn flag fesel) (setq dn (getvar "dwgname")) (setq pa (getvar "dwgprefix")) (setq pawbdn (strcat pa "explode"dn)) (setq flag (getvar "qaflags")) (setvar "qaflags" 5) (sssetfirst nil(setq fesel (ssget "_x" (list(cons 410(getvar"CTAB")))))) (command "_EXPLODE" fesel "") (setvar "qaflags" flag) (command ...
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
CADchup am 09.01.2012 um 14:01 Uhr (0)
Hi,weil dein Tool nicht ordentlich durchläuft!Lass mal jede einzelne Zeile von Hand auf deine Zeichnung los.Tipp: Dein (sssetfirst...) wählt Objekte gleich aus. Wenn du so vorgehen willst, brauchst du EXPLODE keine Variable zu übergeben, denn ab da holperts. GrußCADchup------------------CADmaro.de
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
CADmium am 09.01.2012 um 14:16 Uhr (0)
und explode und Auswahlsätze in Makros/Scripts ist da noch ne andere Sache .. wird da nicht nur das erste Objekt aufgelöst ? ( war früher jedenfalls so )------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : AfraLisp - Seite
Dorfy am 03.08.2009 um 14:42 Uhr (0)
Hi Ernst,versuch malAnsicht - Webseitenstil -kein Stil------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Lisp wechseln |
|
Lisp : AfraLisp - Seite
Theodor Schoenwald am 09.01.2012 um 15:23 Uhr (0)
Hallo Stephan,gerade habe ich ein Information aus der alten Webseite benötigt.Den Text auf der alten Seite sieht man deshalb nicht, weil er invertiert dargestellt wird.Wenn man mit ser Maus über die Seite zieht ist alles sichtabar.Für micht ist die Webseite von Ken - nach der Seite von Axel - die beste Webseite zum Thema Lisp und DCL.Alles ist einfach, übersichtlich und zum Vertsehen gut aufbereitet.Wenn jemand zu finden wäre, der die Themen in die deutsche Sprache übersetzt, könnte man daraus ein weiteres ...
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 10:40 Uhr (0)
Hallo,tut mir leid, ich bin heute das erste Mal hier und finde auf die Schnelle leider nicht das, was mir weiterhilft. Was LISP anbelangt, gehen meine Kenntnisse leider auch gegen 0.Vielleicht weiß einer von euch ja weiter, das wäre super.Folgendes Problem: wir brauchen ein LISP-Tool, das eine DWG öffnet, anschließend alles markiert und alles aufbricht (EXPLODE). Dann sollten alle Objekte, die nicht auf dem Zeichnungsblatt liegen gelöscht werden und zum Schluss soll die Datei in einem Unterordner abgespeic ...
|
| In das Form Lisp wechseln |
|
Lisp : Linien selektieren
Madler am 11.01.2012 um 16:36 Uhr (0)
Wie einfach es doch manchmal ist...In diesem Fall auch mal ohne LISP zu lösen (Dank an "wronzky").@CADmiumVielen Dank für den schnellen Code. Werd ihn mal testen und für die Automatisierung weiterverwenden.Gruß Markus
|
| In das Form Lisp wechseln |
