 |
Lisp : Mtext auslesen und als Dateinamen verwenden
PAS81 am 04.01.2012 um 11:19 Uhr (5)
Hallo Leute,ich habe mal ne Frage!Wir nutzen bei uns in der Firma eine Lisp zum DXF-Speichern. Sieht wie folgt aus!Code:;---- Funktion um Zeichnung in DXF Version 2007 in Auftragsbezogenen-Ordner zu speichern ----(defun c:DXF_0001_Rohdecke () (setq objekte (ssget)) (setq Name (getfiled "DXF speichern unter" "F:Aufträge 001 Test 550110CNCHOMAG 2_MDD415_Owners_Cabin 1_Rohdecken" "dxf" 1) ) (command "dxfout" Name "V" "2007" "O" objekte "" ""));----Ende des Lisp Programmes----In jedem Werkstück was wir anwähl ...
|
| In das Form Lisp wechseln |
|
Lisp : Mtext auslesen und als Dateinamen verwenden
Dorfy am 04.01.2012 um 11:38 Uhr (1)
Hallo und willkommen!mitCode:(vlax-get (vlax-ename-vla-object (car (entsel))) "textstring") solltest du an den String kommen,vorher nicht vergessenCode:(VL-LOAD-COM)ggf. mit strcat noch alles neu zusammenbauen------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : gleiche Werte doch nicht gleich
Dorfy am 05.01.2012 um 10:52 Uhr (0)
versuch malCode:(equal expr1 expr2 [fuzz])(equal (+ 294.46 3.15) 297.61 0.000001)------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| 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
CADmium am 09.01.2012 um 10:44 Uhr (0)
Auch wenns sicher nichts im Rahmen der Forenhilfe wird ... ne Beispielzeichnung wäre nicht schlecht, schon wegen evtl. nicht unterstützter Objekttypen usw. - so ein Aufsatz hat evtl auch noch seine Tücken....------------------ - 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 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 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 : 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 nicht, allenfalls _QSAVE. Und der speichert einfach nur die aktuelle DWG. Du willst aber _SAVEAS verwenden. GrußCADchup[Diese Nachricht wurde von CADchup am 09. Jan. 2012 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 12:18 Uhr (0)
Ich dachte, das mache ich? Im Script steht ja folgende Zeile, die den Befehl lädt:(load "t:T-002_EXPLODEfeexplode.lsp")Und das Script wird ja durch eine Schleife in der BAT immer wieder aufgerufen vor jeder Datei. Hier der Quelltext der BAT:FOR %%f in (t:T-002_EXPLODEDWG*.dwg) do start /wait c:"program files"GraitecAdvanceSteel2009SteelBinAdvanceSteel8x64.exe "%%f" /b t:T-002_EXPLODEfeexplode.scrTut mir leid, ist alles ein bißchen verwirrend. Aber LISP scheint schon ein bißchen Hexerei zu sein.
|
| In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
spider_dd am 09.01.2012 um 15:27 Uhr (0)
Hallo fewoer... und was wird mit verschachtelten Blöcken u. a. Objekten, Blöcken die als "nicht Auflösbar" gekennzeichnet sind, Attributen ... (nur mal so ein paar Gedanken)Suche mal hier und im Rund um AutoCAD Brett nach alles auflösen, da finden sich so manche Diskussionen dazu (und weitere Lösungsansätze).GrußThomas
|
| In das Form Lisp wechseln |
